diff --git a/tests/UnitTest.hs b/tests/UnitTest.hs
index 00414ec..a31c9bf 100644
--- 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