Add testcase for #5979
authorPaolo Capriotti <p.capriotti@gmail.com>
Sat, 31 Mar 2012 10:13:52 +0000 (11:13 +0100)
committerPaolo Capriotti <p.capriotti@gmail.com>
Sat, 31 Mar 2012 10:54:43 +0000 (11:54 +0100)
testsuite/tests/ghci/scripts/T5979.script [new file with mode: 0644]
testsuite/tests/ghci/scripts/T5979.stderr [new file with mode: 0644]
testsuite/tests/ghci/scripts/T5979.stdout [new file with mode: 0644]
testsuite/tests/ghci/scripts/all.T

diff --git a/testsuite/tests/ghci/scripts/T5979.script b/testsuite/tests/ghci/scripts/T5979.script
new file mode 100644 (file)
index 0000000..a233d3d
--- /dev/null
@@ -0,0 +1,4 @@
+:set -XPackageImports
+import "nonexisting" Control.Monad.State
+import "mtl" Control.Monad.State
+import "mtl" Control.Monad.Reader
diff --git a/testsuite/tests/ghci/scripts/T5979.stderr b/testsuite/tests/ghci/scripts/T5979.stderr
new file mode 100644 (file)
index 0000000..30bd301
--- /dev/null
@@ -0,0 +1,4 @@
+
+<no location info>:
+    Could not find module `Control.Monad.State'
+    It is not a module in the current program, or in any known package.
diff --git a/testsuite/tests/ghci/scripts/T5979.stdout b/testsuite/tests/ghci/scripts/T5979.stdout
new file mode 100644 (file)
index 0000000..e69de29
index a2efb2a..b4541d6 100755 (executable)
@@ -113,3 +113,4 @@ test('T5564', normal, ghci_script, ['T5564.script'])
 test('Defer02', normal, ghci_script, ['Defer02.script'])
 test('T5820', normal, ghci_script, ['T5820.script'])
 test('T5836', normal, ghci_script, ['T5836.script'])
+test('T5979', normal, ghci_script, ['T5979.script'])