[commit: ghc] ghc-7.8: Test Trac #8931 (2689f20)

[git at git.haskell.org]

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

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/2689f20917db23b44b3c6c219acd0da229fe25cf/ghc

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

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

    Test Trac #8931
    
    (cherry picked from commit 8bf8ce1e7cb1b97a1f18ec6f5552e339808ffba9)


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

2689f20917db23b44b3c6c219acd0da229fe25cf
 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 e985ce1..6991603 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -169,3 +169,4 @@ test('T8696', normal, ghci_script, ['T8696.script'])
 test('T8776', normal, ghci_script, ['T8776.script'])
 test('T8831', normal, ghci_script, ['T8831.script'])
 test('T8917', normal, ghci_script, ['T8917.script'])
+test('T8931', normal, ghci_script, ['T8931.script'])