mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

exit nonzero when there were failure, not just errors

Browse source 
ya, I need a test suite for my test suite
This commit is contained in:
Joey Hess 2011-04-26 20:08:36 -04:00
parent bb8e3c5b6d
commit 948691e893
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test.hs
View file

@ -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