Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5ce8ef1f25e103f755e0e191927c8f1026fa6c8d >--------------------------------------------------------------- commit 5ce8ef1f25e103f755e0e191927c8f1026fa6c8d Author: David Terei <[email protected]> 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']) + _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
