[commit: testsuite] master: Test Trac #7894 (2449037)

[Simon Peyton Jones]

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

On branch  : master

https://github.com/ghc/testsuite/commit/24490371deeeac2cc4dcb034ac4a4be8c7addc64

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

commit 24490371deeeac2cc4dcb034ac4a4be8c7addc64
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jun 7 08:59:51 2013 +0100

    Test Trac #7894

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

 tests/ghci/scripts/T7894.script |    1 +
 tests/ghci/scripts/T7894.stderr |    2 ++
 tests/ghci/scripts/all.T        |    1 +
 3 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/tests/ghci/scripts/T7894.script b/tests/ghci/scripts/T7894.script
new file mode 100644
index 0000000..426a677
--- /dev/null
+++ b/tests/ghci/scripts/T7894.script
@@ -0,0 +1 @@
+:i Data.Maybe.->
diff --git a/tests/ghci/scripts/T7894.stderr b/tests/ghci/scripts/T7894.stderr
new file mode 100644
index 0000000..b0a04e4
--- /dev/null
+++ b/tests/ghci/scripts/T7894.stderr
@@ -0,0 +1,2 @@
+
+Top level: Not in scope: ‛Data.Maybe.->’
diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T
index cf8c82b..a1f770f 100755
--- a/tests/ghci/scripts/all.T
+++ b/tests/ghci/scripts/all.T
@@ -150,4 +150,5 @@ test('T4175', normal, ghci_script, ['T4175.script'])
 test('T7872', normal, ghci_script, ['T7872.script'])
 test('T7873', normal, ghci_script, ['T7873.script'])
 test('T7939', normal, ghci_script, ['T7939.script'])
+test('T7894', normal, ghci_script, ['T7894.script'])