[commit: ghc] master: Test Trac #8931 (8bf8ce1)

[git at git.haskell.org]

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

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

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

commit 8bf8ce1e7cb1b97a1f18ec6f5552e339808ffba9
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Apr 3 13:34:52 2014 +0100

    Test Trac #8931


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

8bf8ce1e7cb1b97a1f18ec6f5552e339808ffba9
 testsuite/tests/ghci/scripts/T8931.script                           |    3 +++
 .../should_run/cgrun033.stdout => ghci/scripts/T8931.stdout}        |    0
 testsuite/tests/ghci/scripts/all.T                                  |    1 +
 3 files changed, 4 insertions(+)

diff --git a/testsuite/tests/ghci/scripts/T8931.script b/testsuite/tests/ghci/scripts/T8931.script
new file mode 100644
index 0000000..1527476
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8931.script
@@ -0,0 +1,3 @@
+:m +Data.Typeable
+let {f :: Typeable a => (a->Bool) -> Bool; f _ = True}
+f (\x -> (x == 3))
diff --git a/testsuite/tests/codeGen/should_run/cgrun033.stdout b/testsuite/tests/ghci/scripts/T8931.stdout
similarity index 100%
copy from testsuite/tests/codeGen/should_run/cgrun033.stdout
copy to testsuite/tests/ghci/scripts/T8931.stdout
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 6c6923d..aacdd26 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -170,3 +170,4 @@ test('T8776', normal, ghci_script, ['T8776.script'])
 test('ghci059', normal, ghci_script, ['ghci059.script'])
 test('T8831', normal, ghci_script, ['T8831.script'])
 test('T8917', normal, ghci_script, ['T8917.script'])
+test('T8931', normal, ghci_script, ['T8931.script'])