-- This is run by "cabal test"
main = do
  runTestTT testsQ
  putStrLn "Expected 3 Failures for above code\n"
  c <- runTestTT testsM
  if failures c == 0 then exitSuccess else exitFailure
main = do
  runTestTT testsQ
  putStrLn "Expected 3 Failures for above code\n"
  c <- runTestTT testsM
  if failures c == 0 then exitSuccess else exitFailure
main = do
  runTestTT testsQ
  putStrLn "Expected 3 Failures for above code\n"
  c <- runTestTT testsM
  if failures c == 0 then exitSuccess else exitFailure