From 948691e89322e88ed2f83bfee4a18dcbdd2f696e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 26 Apr 2011 20:08:36 -0400 Subject: exit nonzero when there were failure, not just errors ya, I need a test suite for my test suite --- test.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test.hs b/test.hs index ab4766b42..2cb0415ab 100644 --- a/test.hs +++ b/test.hs @@ -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 -- cgit v1.2.3