#4, make sure the tests fail if there is an error
authorNeil Mitchell <ndmitchell@gmail.com>
Sun, 19 Oct 2014 13:01:25 +0000 (14:01 +0100)
committerNeil Mitchell <ndmitchell@gmail.com>
Sun, 19 Oct 2014 13:01:25 +0000 (14:01 +0100)
tests/AutoTest.hs

index 8902869..8526c99 100644 (file)
@@ -35,7 +35,11 @@ instance Arbitrary QChar where
 
 
 quickSafe :: Testable a => a -> IO ()
-quickSafe prop = quickCheckWith (stdArgs { chatty = False }) prop
+quickSafe prop = do
+    res <- quickCheckWithResult (stdArgs { chatty = False }) prop
+    case res of
+        Success{} -> return ()
+        _ -> error $ show res
     -- checkit quick prop
 
 -- below is mainly stolen from Test.QuickCheck, modified to crash out on failure