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.Stack.VM
import qualified Gyehoek.Test.CPS.Stackify


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.Stack.VM.root
  , Gyehoek.Test.CPS.Stackify.root
  ]