Update T5129 test:
[ghc.git] / 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