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