module Main where
import Grisette.Lib.Control.Monad.Coroutine.SuspensionFunctorsTests
import Grisette.Lib.Control.Monad.CoroutineTests
import Test.Tasty
import Test.Tasty.Ingredients
import qualified Test.Tasty.Ingredients.ConsoleReporter as ConsoleReporter
import qualified Test.Tasty.Runners.Reporter as Reporter
main :: IO ()
main = defaultMainWithIngredients [composeReporters Reporter.ingredient ConsoleReporter.consoleTestReporter] tests
tests :: TestTree
tests =
testGroup
"grisette-monad-coroutine"
[ testGroup
"Grisette.Lib.Control.Monad"
[ testGroup
"Coroutine"
[suspensionFunctorsTests],
coroutineTests
]
]