Skip to content

Instantly share code, notes, and snippets.

@martijnbastiaan
Created August 28, 2022 10:31
Show Gist options
  • Save martijnbastiaan/0c348a46ddec1fd3f63134f7b17843cd to your computer and use it in GitHub Desktop.
Save martijnbastiaan/0c348a46ddec1fd3f63134f7b17843cd to your computer and use it in GitHub Desktop.
tasty-bench/src/Test/Tasty/Bench.hs
2011: TestGroup name tts -> TestGroup name (map (go (name : path)) tts)
tasty-expected-failure/Test/Tasty/ExpectedFailure.hs
102: go (TestGroup name tests) = TestGroup name (map go tests)
tasty-silver/Test/Tasty/Silver/Filter.hs
126: filter' pth (TestGroup n ts) = Just $ TestGroup n (catMaybes $ map (filter' $ pth <//> n) ts)
tasty-silver/Test/Tasty/Silver/Interactive/Run.hs
38:wrapRunTest' tp f (TestGroup n ts) = TestGroup n (fmap (wrapRunTest' (tp <//> n) f) ts)
tasty-inspection-testing/src/Test/Tasty/Inspection.hs
139: pure $ AppE (AppE (ConE 'TestGroup) (LitE (StringL (showTHName name)))) (ListE exps)
151: pure $ AppE (AppE (ConE 'TestGroup) (LitE (StringL "<empty>"))) (ListE [])
154: pure $ AppE (AppE (ConE 'TestGroup) (LitE (StringL groupName))) (ListE exps)
tasty-focus/src/Test/Tasty/Focus.hs
52: NotFocused -> TestGroup "ignored" []
54: go (TestGroup n t) = TestGroup n (fmap go . filter anyFocused $ t)
tasty-rerun/src/Test/Tasty/Ingredients/Rerun.hs
262: else Tasty.TestGroup "" []
264: go prefix (Tasty.TestGroup name tests) =
265: Tasty.TestGroup name (go (prefix ++ [name]) <$> tests)
tasty-bdd/src/Test/Tasty/Bdd.hs
197:onEach op (TestGroup n ts) = TestGroup n $ (map $ onEach op) ts
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment