[commit: testsuite] master: Add test for 'distrust-all-packages' flag (5ce8ef1)

[David Terei]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5ce8ef1f25e103f755e0e191927c8f1026fa6c8d

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

commit 5ce8ef1f25e103f755e0e191927c8f1026fa6c8d
Author: David Terei <davidterei at gmail.com>
Date:   Wed Feb 8 16:19:32 2012 -0800

    Add test for 'distrust-all-packages' flag

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

 tests/safeHaskell/check/Check09.hs     |    8 ++++++++
 tests/safeHaskell/check/Check09.stderr |    3 +++
 tests/safeHaskell/check/Check10.hs     |    8 ++++++++
 tests/safeHaskell/check/all.T          |    7 +++++++
 4 files changed, 26 insertions(+), 0 deletions(-)

diff --git a/tests/safeHaskell/check/Check09.hs b/tests/safeHaskell/check/Check09.hs
new file mode 100644
index 0000000..9d4d03c
--- /dev/null
+++ b/tests/safeHaskell/check/Check09.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE Safe #-}
+module Check09 where
+
+import Data.ByteString.Char8
+
+b :: ByteString
+b = pack "Hello World"
+
diff --git a/tests/safeHaskell/check/Check09.stderr b/tests/safeHaskell/check/Check09.stderr
new file mode 100644
index 0000000..ae3f836
--- /dev/null
+++ b/tests/safeHaskell/check/Check09.stderr
@@ -0,0 +1,3 @@
+
+Check09.hs:4:1:
+    bytestring-0.9.2.0:Data.ByteString.Char8 can't be safely imported! The package (bytestring-0.9.2.0) the module resides in isn't trusted.
diff --git a/tests/safeHaskell/check/Check10.hs b/tests/safeHaskell/check/Check10.hs
new file mode 100644
index 0000000..21fad6a
--- /dev/null
+++ b/tests/safeHaskell/check/Check10.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE Safe #-}
+module Check10 where
+
+import Data.ByteString.Char8
+
+b :: ByteString
+b = pack "Hello World"
+
diff --git a/tests/safeHaskell/check/all.T b/tests/safeHaskell/check/all.T
index 41d8edf..4cef8f8 100644
--- a/tests/safeHaskell/check/all.T
+++ b/tests/safeHaskell/check/all.T
@@ -57,3 +57,10 @@ test('Check08',
      extra_clean(['Check08_A.hi', 'Check08_A.o', 'Check08_B.hi', 'Check08_B.o']),
      multimod_compile_fail, ['Check08', ''])
 
+# check -distrust-all-packages flag works
+test('Check09', normal, compile_fail, ['-fpackage-trust -distrust-all-packages'])
+
+# as above but trust this time
+test('Check10', normal, compile,
+     ['-fpackage-trust -distrust-all-packages -trust bytestring -trust base'])
+