actually show _WHAT_ message we're getting when we fail in ci

ekmett · Mar 29, 2024 · d7ddbc7 · d7ddbc7
1 parent 56aef2d
commit d7ddbc7
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/t/Test.hs b/t/Test.hs
@@ -27,8 +27,7 @@ todoTest = do
   case result of
     Left ex -> do
         let msg = show ex
-        putStrLn msg
-        assertBool "todo(1)" $
+        assertBool ("unexpected exception message format: " ++ msg) $
            all (flip isInfixOf msg) [ -- --enable-profiling disabled
                "Control.Placeholder.todo: not yet implemented"
              , "test/Test.hs:26:29"