@@ -9,12 +9,17 @@ import Effectful.Environment
9import qualified Utils as U
9import qualified Utils as U
11environmentTests :: TestTree
11environmentTests :: TestTree
12−environmentTests = testGroup "Environment"
12+environmentTests = testCaseSteps "Environment" $ \step -> do
13+ -- These tests need to be run sequentially because of
14+ -- https://github.com/arybczak/effectful/issues/39.
13− [ testCase "set and get an environment variable" test_setAndGet
15+ step "set and get an environment variable"
14− , testCase "unset and try to get an environment variable" test_unsetAndGet
17+ step "unset and try to get an environment variable"
15− , testCase "execute effects with custom arguments" test_withArgs
19+ step "execute effects with custom arguments"
16− , testCase "execute effects with custom program name" test_withProg
21+ step "execute effects with custom program name"
19test_setAndGet :: Assertion
24test_setAndGet :: Assertion
20test_setAndGet = runEff . runEnvironment $ do
25test_setAndGet = runEff . runEnvironment $ do