From f5c10becf005bf4c0134b0ceef9677950e400adc Mon Sep 17 00:00:00 2001
From: amsay <amsay@amsay.net>
Date: Fri, 25 Jun 2010 03:23:35 +0000
Subject: ghci script for trac #2362

---
 testsuite/tests/ghc-regress/ghci/scripts/all.T       |  1 +
 .../tests/ghc-regress/ghci/scripts/ghci036.script    | 19 +++++++++++++++++++
 .../tests/ghc-regress/ghci/scripts/ghci036.stderr    | 20 ++++++++++++++++++++
 .../tests/ghc-regress/ghci/scripts/ghci036.stdout    |  2 ++
 4 files changed, 42 insertions(+)
 create mode 100644 testsuite/tests/ghc-regress/ghci/scripts/ghci036.script
 create mode 100644 testsuite/tests/ghc-regress/ghci/scripts/ghci036.stderr
 create mode 100644 testsuite/tests/ghc-regress/ghci/scripts/ghci036.stdout

(limited to 'testsuite/tests/ghc-regress')

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]
-- 
cgit v1.2.1