[commit: ghc] master: Add regression test for #15007 (f6ac083)

[git at git.haskell.org]

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

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

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

commit f6ac0833b733afa628955cdcf6e31171a53e2222
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Wed Jul 4 16:49:19 2018 +0300

    Add regression test for #15007


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

f6ac0833b733afa628955cdcf6e31171a53e2222
 .../should_run/T13285.stdout => ghci/should_run/T15007.script}      | 1 +
 .../tests/ghci/{scripts/T10249.stderr => should_run/T15007.stderr}  | 6 +++---
 .../should_run/T13285.stdout => ghci/should_run/T15007.stdout}      | 0
 testsuite/tests/ghci/should_run/all.T                               | 1 +
 4 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/testsuite/tests/deSugar/should_run/T13285.stdout b/testsuite/tests/ghci/should_run/T15007.script
similarity index 66%
copy from testsuite/tests/deSugar/should_run/T13285.stdout
copy to testsuite/tests/ghci/should_run/T15007.script
index 6ed281c..04f2649 100644
--- a/testsuite/tests/deSugar/should_run/T13285.stdout
+++ b/testsuite/tests/ghci/should_run/T15007.script
@@ -1,2 +1,3 @@
 1
 1
+_
diff --git a/testsuite/tests/ghci/scripts/T10249.stderr b/testsuite/tests/ghci/should_run/T15007.stderr
similarity index 79%
copy from testsuite/tests/ghci/scripts/T10249.stderr
copy to testsuite/tests/ghci/should_run/T15007.stderr
index c821566..da1dc5d 100644
--- a/testsuite/tests/ghci/scripts/T10249.stderr
+++ b/testsuite/tests/ghci/should_run/T15007.stderr
@@ -1,9 +1,9 @@
 
-<interactive>:1:1: error:
+<interactive>:3:1: error:
     • Found hole: _ :: t
       Where: ‘t’ is a rigid type variable bound by
                the inferred type of it :: t
-               at <interactive>:1:1
+               at <interactive>:3:1
     • In the expression: _
       In an equation for ‘it’: it = _
-    • Relevant bindings include it :: t (bound at <interactive>:1:1)
+    • Relevant bindings include it :: t (bound at <interactive>:3:1)
diff --git a/testsuite/tests/deSugar/should_run/T13285.stdout b/testsuite/tests/ghci/should_run/T15007.stdout
similarity index 100%
copy from testsuite/tests/deSugar/should_run/T13285.stdout
copy to testsuite/tests/ghci/should_run/T15007.stdout
diff --git a/testsuite/tests/ghci/should_run/all.T b/testsuite/tests/ghci/should_run/all.T
index 430df28..d92b0e7 100644
--- a/testsuite/tests/ghci/should_run/all.T
+++ b/testsuite/tests/ghci/should_run/all.T
@@ -33,3 +33,4 @@ test('T13825-ghci',just_ghci, ghci_script, ['T13825-ghci.script'])
 test('T14963a', just_ghci, ghci_script, ['T14963a.script'])
 test('T14963b', just_ghci, ghci_script, ['T14963b.script'])
 test('T14963c', [extra_hc_opts("-fdefer-type-errors")], ghci_script, ['T14963c.script'])
+test('T15007', just_ghci, ghci_script, ['T15007.script'])