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
  ]