20 lines
429 B
Haskell
20 lines
429 B
Haskell
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
|
|
|
|
|
|
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
|
|
]
|
|
|