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