{-# 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 -- 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 -- ]