testsuite: Add test for #13591
authorBen Gamari <bgamari.foss@gmail.com>
Sun, 23 Apr 2017 14:03:46 +0000 (10:03 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sun, 23 Apr 2017 15:05:48 +0000 (11:05 -0400)
Reviewers: austin

Subscribers: rwbarton, thomie

GHC Trac Issues: #13591

Differential Revision: https://phabricator.haskell.org/D3470

testsuite/tests/ghci/scripts/T13591.script [new file with mode: 0644]
testsuite/tests/ghci/scripts/T13591A.hs [new file with mode: 0644]
testsuite/tests/ghci/scripts/T13591A.hs-boot [new file with mode: 0644]
testsuite/tests/ghci/scripts/T13591B.hs [new file with mode: 0644]
testsuite/tests/ghci/scripts/all.T

diff --git a/testsuite/tests/ghci/scripts/T13591.script b/testsuite/tests/ghci/scripts/T13591.script
new file mode 100644 (file)
index 0000000..1143153
--- /dev/null
@@ -0,0 +1 @@
+:l T13591A
diff --git a/testsuite/tests/ghci/scripts/T13591A.hs b/testsuite/tests/ghci/scripts/T13591A.hs
new file mode 100644 (file)
index 0000000..4d77e90
--- /dev/null
@@ -0,0 +1,4 @@
+module T13591A where
+import Second
+one :: Int
+one = _
diff --git a/testsuite/tests/ghci/scripts/T13591A.hs-boot b/testsuite/tests/ghci/scripts/T13591A.hs-boot
new file mode 100644 (file)
index 0000000..7f18059
--- /dev/null
@@ -0,0 +1,2 @@
+module T13591A where
+one :: Int
diff --git a/testsuite/tests/ghci/scripts/T13591B.hs b/testsuite/tests/ghci/scripts/T13591B.hs
new file mode 100644 (file)
index 0000000..25f348f
--- /dev/null
@@ -0,0 +1,4 @@
+module T13591B where
+import {-# SOURCE #-} First
+two :: Int
+two = one + 1
index cde72e4..16c9ab2 100755 (executable)
@@ -252,3 +252,4 @@ test('T13202', normal, ghci_script, ['T13202.script'])
 test('T13202a', normal, ghci_script, ['T13202a.script'])
 test('T13466', normal, ghci_script, ['T13466.script'])
 test('GhciCurDir', normal, ghci_script, ['GhciCurDir.script'])
+test('T13591', expect_broken(13591), ghci_script, ['T13591.script'])