diff options
| author | amsay <amsay@amsay.net> | 2010-06-25 03:23:35 +0000 |
|---|---|---|
| committer | amsay <amsay@amsay.net> | 2010-06-25 03:23:35 +0000 |
| commit | f5c10becf005bf4c0134b0ceef9677950e400adc (patch) | |
| tree | 52dcd364e04b73ce16914aea5eadfe332962e9ee /testsuite/tests/ghc-regress/ghci | |
| parent | 5489321664f0778f22cca7d4495d8aefd8e16592 (diff) | |
| download | haskell-f5c10becf005bf4c0134b0ceef9677950e400adc.tar.gz | |
ghci script for trac #2362
Diffstat (limited to 'testsuite/tests/ghc-regress/ghci')
4 files changed, 42 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/ghci/scripts/all.T b/testsuite/tests/ghc-regress/ghci/scripts/all.T index ab1cfcf36f..1fa4ea01c4 100644 --- a/testsuite/tests/ghc-regress/ghci/scripts/all.T +++ b/testsuite/tests/ghc-regress/ghci/scripts/all.T @@ -49,6 +49,7 @@ test('ghci032', normal, ghci_script, ['ghci032.script']) test('ghci033', normal, ghci_script, ['ghci033.script']) test('ghci034', normal, ghci_script, ['ghci034.script']) test('ghci035', normal, ghci_script, ['ghci035.script']) +test('ghci036', normal, ghci_script, ['ghci036.script']) test('2452', normal, ghci_script, ['2452.script']) test('T2766', normal, ghci_script, ['T2766.script']) diff --git a/testsuite/tests/ghc-regress/ghci/scripts/ghci036.script b/testsuite/tests/ghc-regress/ghci/scripts/ghci036.script new file mode 100644 index 0000000000..3615e07252 --- /dev/null +++ b/testsuite/tests/ghc-regress/ghci/scripts/ghci036.script @@ -0,0 +1,19 @@ +import Data.List (nub) +:t nubBy +import Data.List (nubBy) +:t nub +:m +Data.List +:m -Data.List +:t nub +:t nubBy +import Data.List hiding (nub) +:t nub +import qualified Data.List as L +:t nub +:t L.nub +:m +Data.List +:t L.nub +:m -Data.List +:t L.nub +:m Prelude +:t nub
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/ghci/scripts/ghci036.stderr b/testsuite/tests/ghc-regress/ghci/scripts/ghci036.stderr new file mode 100644 index 0000000000..1fe34062af --- /dev/null +++ b/testsuite/tests/ghc-regress/ghci/scripts/ghci036.stderr @@ -0,0 +1,20 @@ + +<interactive>:1:1: Not in scope: `nubBy' + +<interactive>:1:1: Not in scope: `nub' + +<interactive>:1:1: Not in scope: `nubBy' + +<interactive>:1:1: Not in scope: `nub' + +<interactive>:1:1: Not in scope: `nub' + +<interactive>:1:1: + Failed to load interface for `L': + Use -v to see a list of the files searched for. + +<interactive>:1:1: + Failed to load interface for `L': + Use -v to see a list of the files searched for. + +<interactive>:1:1: Not in scope: `nub' diff --git a/testsuite/tests/ghc-regress/ghci/scripts/ghci036.stdout b/testsuite/tests/ghc-regress/ghci/scripts/ghci036.stdout new file mode 100644 index 0000000000..739118210d --- /dev/null +++ b/testsuite/tests/ghc-regress/ghci/scripts/ghci036.stdout @@ -0,0 +1,2 @@ +nub :: Eq a => [a] -> [a] +L.nub :: Eq a => [a] -> [a] |