Update T5129 test:
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Tue, 20 Mar 2018 07:48:14 +0000 (10:48 +0300)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Tue, 20 Mar 2018 07:48:14 +0000 (10:48 +0300)
- Add some comments
- Remove $s as they complicate desugarer output for no reason
- Remove an indirection, case_negative is now main

testsuite/tests/codeGen/should_run/T5129.hs

index 6bc1912..2808f54 100644 (file)
@@ -10,12 +10,13 @@ throwIfNegative n | n < 0     = error "negative"
 data HUnitFailure = HUnitFailure String deriving (Show,Typeable)
 instance Exception HUnitFailure
 
+assertFailure :: String -> a -- Not an IO function!
 assertFailure msg = E.throw (HUnitFailure msg)
 
-case_negative =
-    handleJust errorCalls (const $ return ()) $ do
-        evaluate $ throwIfNegative (-1)
-        assertFailure "must throw when given a negative number"
+main :: IO ()
+main =
+    handleJust errorCalls (const (return ())) (do
+        evaluate (throwIfNegative (-1)) -- Pure expression evaluated in IO
+        assertFailure "must throw when given a negative number")
   where errorCalls (ErrorCall _) = Just ()
 
-main = case_negative