module Main where

import Test.Tasty (TestTree, defaultMain, testGroup)

import Polysemy.Test (unitTest)
import Polysemy.Test.Test.FilesTest (test_fixture, test_tempFile)
import Polysemy.Test.Test.HedgehogTest (test_fail, test_hedgehogRewrite)

tests :: TestTree
tests =
  testGroup "all" [
    unitTest "read fixtures" test_fixture,
    unitTest "write and read temp files" test_tempFile,
    unitTest "rewrite TestT to Sem" test_hedgehogRewrite,
    unitTest "convert MonadFail to assertion" test_fail
  ]

main :: IO ()
main =
  defaultMain tests