Update tests following changes in base

10 files changed, 14 insertions, 14 deletions

diff --git a/testsuite/tests/concurrent/should_run/3279.hs b/testsuite/tests/concurrent/should_run/3279.hs
index 279895f444..f479704310 100644
--- a/testsuite/tests/concurrent/should_run/3279.hs
+++ b/testsuite/tests/concurrent/should_run/3279.hs
@@ -3,7 +3,6 @@
 import System.IO.Unsafe
 import GHC.Conc
 import Control.Exception
-import Prelude hiding (catch)
 
 f :: Int
 f = (1 +) . unsafePerformIO $ do
diff --git a/testsuite/tests/concurrent/should_run/conc073.hs b/testsuite/tests/concurrent/should_run/conc073.hs
index 66bbe8e371..64d9d998a6 100644
--- a/testsuite/tests/concurrent/should_run/conc073.hs
+++ b/testsuite/tests/concurrent/should_run/conc073.hs
@@ -1,6 +1,5 @@
 import Control.Exception
 import Control.Concurrent
-import Prelude hiding (catch)
 
 main = do
   m1 <- newEmptyMVar
diff --git a/testsuite/tests/concurrent/should_run/mask002.hs b/testsuite/tests/concurrent/should_run/mask002.hs
index 15b2e64a00..264ac1fb70 100644
--- a/testsuite/tests/concurrent/should_run/mask002.hs
+++ b/testsuite/tests/concurrent/should_run/mask002.hs
@@ -1,7 +1,6 @@
 import Control.Exception
 import Control.Concurrent
 import Text.Printf
-import Prelude hiding(catch)
 
 -- Test combinations of nesting mask/uninterruptibleMask with
 -- forkIO/forkIOUnmask
diff --git a/testsuite/tests/concurrent/should_run/throwto002.hs b/testsuite/tests/concurrent/should_run/throwto002.hs
index 98c9f1f7a1..db67c24df7 100644
--- a/testsuite/tests/concurrent/should_run/throwto002.hs
+++ b/testsuite/tests/concurrent/should_run/throwto002.hs
@@ -7,7 +7,6 @@ import System.Environment
 import Control.Monad
 import GHC.Conc
 import Data.IORef
-import Prelude hiding (catch)
 
 main = do
   r <- newIORef 0
diff --git a/testsuite/tests/concurrent/should_run/throwto003.hs b/testsuite/tests/concurrent/should_run/throwto003.hs
index 6369c62352..7a7582f561 100644
--- a/testsuite/tests/concurrent/should_run/throwto003.hs
+++ b/testsuite/tests/concurrent/should_run/throwto003.hs
@@ -2,7 +2,6 @@
 import Control.Concurrent
 import Control.Exception
 import Control.Monad
-import Prelude hiding (catch)
 
 main = do
   m <- newMVar 1
diff --git a/testsuite/tests/numeric/should_run/numrun013.hs b/testsuite/tests/numeric/should_run/numrun013.hs
index 93fe56f74c..8f7966ec3c 100644
--- a/testsuite/tests/numeric/should_run/numrun013.hs
+++ b/testsuite/tests/numeric/should_run/numrun013.hs
@@ -3,7 +3,6 @@
 
 import Control.Exception
 import Data.Int
-import Prelude hiding (catch)
 
 main :: IO ()
 main = do print ((minBound :: Int) `div` (-1))   `myCatch` print
diff --git a/testsuite/tests/rename/should_fail/T5281.hs b/testsuite/tests/rename/should_fail/T5281.hs
index f83e4aec8e..837b0ac6ca 100644
--- a/testsuite/tests/rename/should_fail/T5281.hs
+++ b/testsuite/tests/rename/should_fail/T5281.hs
@@ -1,8 +1,8 @@
 -- The issue here is getting an error message with a decent source location
 module T5281 where
 
-x = catch   -- This use of catch 
-            -- (a) comes from the implicitly imported Prelue
-            -- (b) this Prelude.catch is deprecated
+import T5281A
+
+x = deprec
 
 
diff --git a/testsuite/tests/rename/should_fail/T5281.stderr b/testsuite/tests/rename/should_fail/T5281.stderr
index c12f4e777c..3fa7670bb6 100644
--- a/testsuite/tests/rename/should_fail/T5281.stderr
+++ b/testsuite/tests/rename/should_fail/T5281.stderr
@@ -1,5 +1,4 @@
 
-T5281.hs:4:5: Warning:
-    In the use of `catch'
-    (imported from Prelude, but defined in System.IO.Error):
-    Deprecated: "Please use the new exceptions variant, Control.Exception.catch"
+T5281.hs:6:5: Warning:
+    In the use of `deprec' (imported from T5281A):
+    Deprecated: "This is deprecated"
diff --git a/testsuite/tests/rename/should_fail/T5281A.hs b/testsuite/tests/rename/should_fail/T5281A.hs
new file mode 100644
index 0000000000..34ef9b7272
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/T5281A.hs
@@ -0,0 +1,7 @@
+
+module T5281A where
+
+{-# DEPRECATED deprec "This is deprecated" #-}
+deprec :: Int
+deprec = 5
+
diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T
index bad0d8330c..168d65748e 100644
--- a/testsuite/tests/rename/should_fail/all.T
+++ b/testsuite/tests/rename/should_fail/all.T
@@ -82,7 +82,7 @@ test('mc13', normal, compile_fail, [''])
 test('mc14', normal, compile_fail, [''])
 test('T5211', normal, compile, [''])  # Warnings only
 test('T1595a', normal, compile_fail, [''])
-test('T5281', normal, compile, [''])  # Warnings only
+test('T5281', normal, multimod_compile, ['T5281', '-v0'])  # Warnings only
 test('T5372',
      extra_clean(['T5372a.hi', 'T5372a.o']),
      multimod_compile_fail,