main :: IO ()
main = do count <- runTestTT $ testsSuite
          if failures count > 0 then Exit.exitFailure else return ()
main :: IO ()
main = do count <- runTestTT $ testsSuite
          if failures count > 0 then Exit.exitFailure else return ()
main = do count <- runTestTT $ testsSuite
          if failures count > 0 then Exit.exitFailure else return ()