diff options
author | 2011-04-26 20:08:36 -0400 | |
---|---|---|
committer | 2011-04-26 20:26:19 -0400 | |
commit | 948691e89322e88ed2f83bfee4a18dcbdd2f696e (patch) | |
tree | efe576f5cda86de9a6d44eb265219bacce533a1e /test.hs | |
parent | bb8e3c5b6dda5874ec214d7f6dcfe6f8445d622b (diff) |
exit nonzero when there were failure, not just errors
ya, I need a test suite for my test suite
Diffstat (limited to 'test.hs')
-rw-r--r-- | test.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -64,8 +64,8 @@ main = do propigate r propigate :: (Counts, Int) -> IO () -propigate (Counts { errors = e }, _) - | e > 0 = error "failed" +propigate (Counts { errors = e , failures = f }, _) + | e+f > 0 = error "failed" | otherwise = return () quickcheck :: Test |