Skip to content

Instantly share code, notes, and snippets.

@Bodigrim

Bodigrim/huge-test-tree.hs

Created November 3, 2024 12:09
Show Gist options
  • Save Bodigrim/f8a63d4829610743073ec997d39d3b46 to your computer and use it in GitHub Desktop.
Save Bodigrim/f8a63d4829610743073ec997d39d3b46 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
huge-test-tree.hs
module Main where
import Test.Tasty
import Test.Tasty.Providers
data Foo = Foo
instance IsTest Foo where
testOptions = pure []
run _ _ _ = pure $ testPassed ""
main :: IO ()
main = do
let tests = map (\k -> singleTest (show k) Foo) [0..500]
mkGroups t = map (\k -> testGroup (show k) t) [0..500]
defaultMain $
testGroup "All" $ mkGroups tests
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment