module Main where
import Polysemy.Resume.ExampleTest (test_example)
import Polysemy.Resume.HigherOrderTest (test_switchInterpreter)
import Polysemy.Resume.Test.InterceptTest (test_intercept)
import Polysemy.Test (unitTest)
import Test.Tasty (TestTree, defaultMain, testGroup)
tests :: TestTree
tests =
testGroup "unit" [
unitTest "stop and resume" test_example,
unitTest "switch higher order interpreter" test_switchInterpreter,
unitTest "intercept" test_intercept
]
main :: IO ()
main =
defaultMain tests