From 66de6b7e5ed20fb8b833ff267fe578e4716e83c7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 1 Jun 2025 11:26:00 +0200 Subject: Show name of failed test in output Changelog: Show name of failed test in output --- src/Run.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Run.hs b/src/Run.hs index 329dc78..8088f23 100644 --- a/src/Run.hs +++ b/src/Run.hs @@ -105,7 +105,10 @@ runTest out opts gdefs test = do (Right (), Nothing) -> do when (not $ optKeep opts) $ removeDirectoryRecursive testDir return True - _ -> return False + _ -> do + flip runReaderT out $ do + void $ outLine OutputError Nothing $ "Test ‘" <> testName test <> "’ failed." + return False evalGlobalDefs :: [ (( ModuleName, VarName ), SomeExpr ) ] -> GlobalDefs -- cgit v1.2.3