From 379d88e72a66eb876dfdf452d79081f5e4277979 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 14 Jan 2026 20:02:29 +0100 Subject: Print test names in verbose output Changelog: Verbose output now includes test names. --- src/Run.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Run.hs') 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 -- cgit v1.2.3