Revision 3a3c1eb4 test.hs
b/test.hs | ||
---|---|---|
58 | 58 |
main :: IO () |
59 | 59 |
main = do |
60 | 60 |
errs <- newIORef 0 |
61 |
let wrap lst = map (wrapTest errs) lst
|
|
61 |
let wrap = map (wrapTest errs)
|
|
62 | 62 |
runTests "PeerMap" options $ wrap testPeerMap |
63 | 63 |
runTests "Container" options $ wrap testContainer |
64 | 64 |
runTests "Instance" options $ wrap testInstance |
... | ... | |
66 | 66 |
runTests "Text" options $ wrap testText |
67 | 67 |
runTests "Cluster" options $ wrap testCluster |
68 | 68 |
terr <- readIORef errs |
69 |
(if (terr > 0)
|
|
69 |
(if terr > 0
|
|
70 | 70 |
then do |
71 | 71 |
hPutStrLn stderr $ "A total of " ++ show terr ++ " tests failed." |
72 | 72 |
exitWith $ ExitFailure 1 |
Also available in: Unified diff