summaryrefslogtreecommitdiff
path: root/src/Run.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Run.hs')
-rw-r--r--src/Run.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Run.hs b/src/Run.hs
index 7cea577..430a663 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -107,6 +107,9 @@ runTest out opts gdefs test = do
resetOutputTime out
testRunResult <- newEmptyMVar
+ flip runReaderT out $ do
+ void $ outLine OutputGlobalInfo Nothing $ "Starting test ‘" <> testName test <> "’"
+
void $ forkOS $ do
isolateFilesystem testDir >>= \case
True -> do
@@ -134,7 +137,7 @@ runTest out opts gdefs test = do
return True
_ -> do
flip runReaderT out $ do
- void $ outLine OutputError Nothing $ "Test ‘" <> testName test <> "’ failed."
+ void $ outLine OutputGlobalError Nothing $ "Test ‘" <> testName test <> "’ failed."
return False