[commit: ghc] master: testsuite: Add test for #13591 (f6eaf01)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f6eaf01c14960f9d600d5e4c743efc59c37bd4e3/ghc

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

commit f6eaf01c14960f9d600d5e4c743efc59c37bd4e3
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Sun Apr 23 10:03:46 2017 -0400

    testsuite: Add test for #13591
    
    Reviewers: austin
    
    Subscribers: rwbarton, thomie
    
    GHC Trac Issues: #13591
    
    Differential Revision: https://phabricator.haskell.org/D3470


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

f6eaf01c14960f9d600d5e4c743efc59c37bd4e3
 testsuite/tests/ghci/scripts/T13591.script   | 1 +
 testsuite/tests/ghci/scripts/T13591A.hs      | 4 ++++
 testsuite/tests/ghci/scripts/T13591A.hs-boot | 2 ++
 testsuite/tests/ghci/scripts/T13591B.hs      | 4 ++++
 testsuite/tests/ghci/scripts/all.T           | 1 +
 5 files changed, 12 insertions(+)

diff --git a/testsuite/tests/ghci/scripts/T13591.script b/testsuite/tests/ghci/scripts/T13591.script
new file mode 100644
index 0000000..1143153
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T13591.script
@@ -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
index 0000000..4d77e90
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T13591A.hs
@@ -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
index 0000000..7f18059
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T13591A.hs-boot
@@ -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
index 0000000..25f348f
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T13591B.hs
@@ -0,0 +1,4 @@
+module T13591B where
+import {-# SOURCE #-} First
+two :: Int
+two = one + 1
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index cde72e4..16c9ab2 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -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'])