diff options
author | David Terei <davidterei@gmail.com> | 2012-08-23 02:01:03 -0700 |
---|---|---|
committer | David Terei <davidterei@gmail.com> | 2012-08-23 02:01:03 -0700 |
commit | ecababfaafc033b4412fe98aabff29c9bce833fc (patch) | |
tree | 3541772a891706081d247db7810abf587932bf82 /testsuite/tests/safeHaskell/ghci | |
parent | 2853d32c6f1838b3561fc38014d5ab655039c9bb (diff) | |
download | haskell-ecababfaafc033b4412fe98aabff29c9bce833fc.tar.gz |
Add test for #7172.
Diffstat (limited to 'testsuite/tests/safeHaskell/ghci')
-rw-r--r-- | testsuite/tests/safeHaskell/ghci/all.T | 2 | ||||
-rw-r--r-- | testsuite/tests/safeHaskell/ghci/p18.script | 10 | ||||
-rw-r--r-- | testsuite/tests/safeHaskell/ghci/p18.stderr | 0 | ||||
-rw-r--r-- | testsuite/tests/safeHaskell/ghci/p18.stdout | 7 |
4 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/safeHaskell/ghci/all.T b/testsuite/tests/safeHaskell/ghci/all.T index 1c878c6759..937dcd8585 100644 --- a/testsuite/tests/safeHaskell/ghci/all.T +++ b/testsuite/tests/safeHaskell/ghci/all.T @@ -17,4 +17,6 @@ test('p14', normal, ghci_script, ['p14.script']) test('p15', normal, ghci_script, ['p15.script']) test('p16', normal, ghci_script, ['p16.script']) test('p17', normal, ghci_script, ['p17.script']) +# 7172 +test('p18', normal, ghci_script, ['p18.script']) diff --git a/testsuite/tests/safeHaskell/ghci/p18.script b/testsuite/tests/safeHaskell/ghci/p18.script new file mode 100644 index 0000000000..445dffa9a0 --- /dev/null +++ b/testsuite/tests/safeHaskell/ghci/p18.script @@ -0,0 +1,10 @@ +-- Test :issafe works +:unset +s + +-- first without package trust +:issafe Data.ByteString + +-- now with package trust +:set -fpackage-trust +:issafe Data.ByteString + diff --git a/testsuite/tests/safeHaskell/ghci/p18.stderr b/testsuite/tests/safeHaskell/ghci/p18.stderr new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/testsuite/tests/safeHaskell/ghci/p18.stderr diff --git a/testsuite/tests/safeHaskell/ghci/p18.stdout b/testsuite/tests/safeHaskell/ghci/p18.stdout new file mode 100644 index 0000000000..adc5c8a740 --- /dev/null +++ b/testsuite/tests/safeHaskell/ghci/p18.stdout @@ -0,0 +1,7 @@ +Trust type is (Module: Trustworthy, Package: untrusted) +Package Trust: Off +Data.ByteString is trusted! +Trust type is (Module: Trustworthy, Package: untrusted) +Package Trust: On +Trusted package dependencies (untrusted): bytestring-0.10.0.0 +Data.ByteString is NOT trusted! |