[commit: testsuite] master: Remove BadImport04 and BadImport09 (4268603)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/42686031e0cf7759f78984b3518237afe0842d02

>---------------------------------------------------------------

commit 42686031e0cf7759f78984b3518237afe0842d02
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Feb 16 14:09:05 2013 +0000

    Remove BadImport04 and BadImport09
    
    They are now redundant

>---------------------------------------------------------------

 tests/safeHaskell/unsafeLibs/BadImport04.hs     |   12 ------------
 tests/safeHaskell/unsafeLibs/BadImport04.stderr |    3 ---
 tests/safeHaskell/unsafeLibs/BadImport09.hs     |   12 ------------
 tests/safeHaskell/unsafeLibs/BadImport09.stderr |    4 ----
 tests/safeHaskell/unsafeLibs/all.T              |    2 --
 5 files changed, 0 insertions(+), 33 deletions(-)

diff --git a/tests/safeHaskell/unsafeLibs/BadImport04.hs b/tests/safeHaskell/unsafeLibs/BadImport04.hs
deleted file mode 100644
index df369f3..0000000
--- a/tests/safeHaskell/unsafeLibs/BadImport04.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-{-# LANGUAGE Safe #-}
--- | Import unsafe module System.IO.Unsafe to make sure it fails
-module Main where
-
-import System.IO.Unsafe (unsafePerformIO)
-
-f :: Int
-f = unsafePerformIO $ putStrLn "What kind of swallow?" >> return 2
-
-main :: IO ()
-main = putStrLn $ "X is: " ++ show f
-
diff --git a/tests/safeHaskell/unsafeLibs/BadImport04.stderr b/tests/safeHaskell/unsafeLibs/BadImport04.stderr
deleted file mode 100644
index e0fa256..0000000
--- a/tests/safeHaskell/unsafeLibs/BadImport04.stderr
+++ /dev/null
@@ -1,3 +0,0 @@
-
-BadImport04.hs:5:1:
-    System.IO.Unsafe: Can't be safely imported! The module itself isn't safe.
diff --git a/tests/safeHaskell/unsafeLibs/BadImport09.hs b/tests/safeHaskell/unsafeLibs/BadImport09.hs
deleted file mode 100644
index 30881b1..0000000
--- a/tests/safeHaskell/unsafeLibs/BadImport09.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-{-# LANGUAGE Safe #-}
--- | Import unsafe module Foreign.Marshal to make sure it fails
-module Main where
-
-import Foreign.Marshal
-
-f :: Int
-f = unsafeLocalState $ putStrLn "What kind of swallow?" >> return 2
-
-main :: IO ()
-main = putStrLn $ "X is: " ++ show f
-
diff --git a/tests/safeHaskell/unsafeLibs/BadImport09.stderr b/tests/safeHaskell/unsafeLibs/BadImport09.stderr
deleted file mode 100644
index 2dd8e7c..0000000
--- a/tests/safeHaskell/unsafeLibs/BadImport09.stderr
+++ /dev/null
@@ -1,4 +0,0 @@
-
-BadImport09.hs:5:1:
-    Foreign.Marshal: Can't be safely imported!
-    The module itself isn't safe.
diff --git a/tests/safeHaskell/unsafeLibs/all.T b/tests/safeHaskell/unsafeLibs/all.T
index 69d1804..5fc0c6e 100644
--- a/tests/safeHaskell/unsafeLibs/all.T
+++ b/tests/safeHaskell/unsafeLibs/all.T
@@ -31,12 +31,10 @@ test('BadImport03',
      extra_clean(['BadImport03_A.o', 'BadImport03_A.hi']),
      multimod_compile_fail,
      ['BadImport03', ''])
-test('BadImport04', normal, compile_fail, [''])
 test('BadImport05', normal, compile_fail, [''])
 test('BadImport06', normal, compile_fail, [''])
 test('BadImport07', normal, compile_fail, [''])
 test('BadImport08', normal, compile_fail, [''])
-test('BadImport09', normal, compile_fail, [''])
 
 # check safe modules are marked safe
 test('GoodImport01', normal, compile, [''])