Remove redundant SafeHaskell tests

5 files changed, 0 insertions, 39 deletions

diff --git a/testsuite/tests/safeHaskell/unsafeLibs/Dep01.hs b/testsuite/tests/safeHaskell/unsafeLibs/Dep01.hs
deleted file mode 100644
index 5ee1cd0288..0000000000
--- a/testsuite/tests/safeHaskell/unsafeLibs/Dep01.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-module Dep01 where
-
-import Control.Monad
-import Control.Monad.ST
-import Data.STRef
-
-sumST :: Num a => [a] -> IO a
-sumST xs = unsafeSTToIO $ do
-    n <- newSTRef 0
-    forM_ xs $ \x -> do
-        modifySTRef n (+x)
-    readSTRef n
-
diff --git a/testsuite/tests/safeHaskell/unsafeLibs/Dep01.stderr b/testsuite/tests/safeHaskell/unsafeLibs/Dep01.stderr
deleted file mode 100644
index 656408bc48..0000000000
--- a/testsuite/tests/safeHaskell/unsafeLibs/Dep01.stderr
+++ /dev/null
@@ -1,4 +0,0 @@
-
-Dep01.hs:8:12: Warning:
-    In the use of ‛unsafeSTToIO’ (imported from Control.Monad.ST):
-    Deprecated: "Please import from Control.Monad.ST.Unsafe instead; This will be removed in the next release"
diff --git a/testsuite/tests/safeHaskell/unsafeLibs/Dep02.hs b/testsuite/tests/safeHaskell/unsafeLibs/Dep02.hs
deleted file mode 100644
index f9dbb26064..0000000000
--- a/testsuite/tests/safeHaskell/unsafeLibs/Dep02.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module Dep02 where
-
-import Control.Monad
-import Control.Monad.ST.Lazy
-import Data.STRef.Lazy
-
-sumST :: Num a => [a] -> a
-sumST xs = runST $ do
-    n <- newSTRef 0
-    forM_ xs $ \x -> do
-        modifySTRef n (+x)
-    readSTRef n
-
-badST :: ()
-badST = runST $ unsafeIOToST $ putStrLn "Hello World"
-
diff --git a/testsuite/tests/safeHaskell/unsafeLibs/Dep02.stderr b/testsuite/tests/safeHaskell/unsafeLibs/Dep02.stderr
deleted file mode 100644
index 4ea40a834f..0000000000
--- a/testsuite/tests/safeHaskell/unsafeLibs/Dep02.stderr
+++ /dev/null
@@ -1,4 +0,0 @@
-
-Dep02.hs:15:17: Warning:
-    In the use of ‛unsafeIOToST’ (imported from Control.Monad.ST.Lazy):
-    Deprecated: "Please import from Control.Monad.ST.Lazy.Unsafe instead; This will be removed in the next release"
diff --git a/testsuite/tests/safeHaskell/unsafeLibs/all.T b/testsuite/tests/safeHaskell/unsafeLibs/all.T
index 81fd18a08a..605f7de3c5 100644
--- a/testsuite/tests/safeHaskell/unsafeLibs/all.T
+++ b/testsuite/tests/safeHaskell/unsafeLibs/all.T
@@ -10,8 +10,6 @@ def f( name, opts ):
 setTestOpts(f)
 
 # Check correct methods are deprecated
-test('Dep01', normal, compile, [''])
-test('Dep02', normal, compile, [''])
 test('Dep05', normal, compile_fail, [''])
 test('Dep06', normal, compile_fail, [''])
 test('Dep07', normal, compile_fail, [''])