souplesse

commit aeb002092c9beeec1e986b0de262a03718e01028
parent 36eeea6befec4cd5f13cf399f4b25850170747a6
Author: Daniel Barlow <dan@telent.net>
Date:   Wed, 30 Oct 2024 20:45:37 +0000

make hunit exit 1 if there are errors

Diffstat:
M
tests/UnitTest.hs
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git 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