Add test for #19867wip/T19867-test

4 files changed, 11 insertions, 0 deletions

diff --git a/testsuite/tests/ghci/scripts/T19867.hs b/testsuite/tests/ghci/scripts/T19867.hs
new file mode 100644
index 0000000000..22c1b13735
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T19867.hs
@@ -0,0 +1,3 @@
+import Control.Monad (sequence)
+
+x = guard
diff --git a/testsuite/tests/ghci/scripts/T19867.script b/testsuite/tests/ghci/scripts/T19867.script
new file mode 100644
index 0000000000..01a719277e
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T19867.script
@@ -0,0 +1 @@
+:load T19867
diff --git a/testsuite/tests/ghci/scripts/T19867.stderr b/testsuite/tests/ghci/scripts/T19867.stderr
new file mode 100644
index 0000000000..e2c6da7edc
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T19867.stderr
@@ -0,0 +1,6 @@
+
+T19867.hs:3:5: error:
+    Variable not in scope: guard
+    Suggested fix:
+      Perhaps you want to add ‘guard’ to the import list in the import of
+      ‘Control.Monad’ (T19867.hs:1:1-31).
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 9e7ca144a6..177af883b8 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -347,6 +347,7 @@ test('T19650',
      ],
      ghci_script,
      ['T19650.script'])
+test('T19867', normal, ghci_script, ['T19867.script'])
 test('T20019', normal, ghci_script, ['T20019.script'])
 test('T20101', normal, ghci_script, ['T20101.script'])
 test('T20206', normal, ghci_script, ['T20206.script'])