diff options
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 |