Show name of failed test in output

Changelog: Show name of failed test in output

1 files changed, 4 insertions, 1 deletions

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