make hunit exit 1 if there are errors

2024-10-30 20:45:37 +00:00 · 2024-10-30 20:45:37 +00:00 · aeb002092c
commit aeb002092c
parent 36eeea6bef
1 changed files with 3 additions and 1 deletions
--- a/tests/UnitTest.hs
+++ b/tests/UnitTest.hs
@ -108,4 +108,6 @@ tests = TestList [
 main :: IO ()
 main = do
    result <- runTestTT tests
-    if failures result > 0 then Exit.exitFailure else Exit.exitSuccess
+    if (failures result > 0) || (errors result > 0)
+      then Exit.exitFailure
+      else Exit.exitSuccess