dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make hunit exit 1 if there are errors

Browse Source
This commit is contained in:
Daniel Barlow 2024-10-30 20:45:37 +00:00
parent 36eeea6bef
commit aeb002092c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/UnitTest.hs
View File

@ -108,4 +108,6 @@ tests = TestList [
main :: IO () main :: IO ()
main = do main = do
result <- runTestTT tests 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