msyds/gyehoek-hs
1
0
Fork 0
Code Issues Pull Requests 1 Actions 1 Packages Projects Releases Wiki Activity

tasty-discover
build / build (push) Successful in 1m27s
Details

Browse Source
This commit is contained in:
msyds
2026-08-20 06:04:52 -06:00
parent fc8cf263aa
commit baa5d248fd
9 changed files with 48 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Main.hs
+22 -21
View File
@@ -1,27 +1,28 @@
{-# OPTIONS_GHC -F -pgmF tasty-discover #-}
module Main (main) where
import Test.Tasty (TestTree, testGroup)
import Test.Tasty.Silver.Interactive (defaultMain)
import qualified Gyehoek.Test.Golden
import qualified Gyehoek.Test.Sexp
import qualified Gyehoek.Test.CPS.Syntax
import qualified Gyehoek.Test.Scheme.Syntax
import qualified Gyehoek.Test.Stack.VM
import qualified Gyehoek.Test.CPS.Stackify
import qualified Gyehoek.Test.CPS.Eval
-- import Test.Tasty (TestTree, testGroup)
-- import Test.Tasty.Silver.Interactive (defaultMain)
-- import qualified Gyehoek.Test.Golden
-- import qualified Gyehoek.Test.Sexp
-- import qualified Gyehoek.Test.CPS.Syntax
-- import qualified Gyehoek.Test.Scheme.Syntax
-- import qualified Gyehoek.Test.Stack.VM
-- import qualified Gyehoek.Test.CPS.Stackify
-- import qualified Gyehoek.Test.CPS.Eval
main :: IO ()
main = defaultMain =<< root
-- main :: IO ()
-- main = defaultMain =<< root
root :: IO TestTree
root = testGroup "test" <$> sequenceA
[ Gyehoek.Test.Golden.root
, Gyehoek.Test.Sexp.root
, Gyehoek.Test.CPS.Syntax.root
, Gyehoek.Test.Scheme.Syntax.root
, Gyehoek.Test.Stack.VM.root
, Gyehoek.Test.CPS.Stackify.root
, Gyehoek.Test.CPS.Eval.root
]
-- root :: IO TestTree
-- root = testGroup "test" <$> sequenceA
-- [ Gyehoek.Test.Golden.root
-- , Gyehoek.Test.Sexp.root
-- , Gyehoek.Test.CPS.Syntax.root
-- , Gyehoek.Test.Scheme.Syntax.root
-- , Gyehoek.Test.Stack.VM.root
-- , Gyehoek.Test.CPS.Stackify.root
-- , Gyehoek.Test.CPS.Eval.root
-- ]