[commit: ghc] master: Add test case for #9046 (defc42e)

[git at git.haskell.org]

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

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

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

commit defc42e7dfdcc0685077ef3dc8bea6b80e2a66dc
Author: Vitaly Bragilevsky <bravit111 at gmail.com>
Date:   Tue Jul 8 21:05:05 2014 +0400

    Add test case for #9046
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

defc42e7dfdcc0685077ef3dc8bea6b80e2a66dc
 testsuite/tests/ghci.debugger/scripts/all.T                            | 1 +
 testsuite/tests/ghci.debugger/scripts/print036.script                  | 2 ++
 .../cholewo-eval.stdout => ghci.debugger/scripts/print036.stdout}      | 3 ++-
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/testsuite/tests/ghci.debugger/scripts/all.T b/testsuite/tests/ghci.debugger/scripts/all.T
index 09fa391..f8a0541 100644
--- a/testsuite/tests/ghci.debugger/scripts/all.T
+++ b/testsuite/tests/ghci.debugger/scripts/all.T
@@ -38,6 +38,7 @@ test('print034', normal, ghci_script, ['print034.script'])
 test('print035',
      [extra_clean(['../Unboxed.hi', '../Unboxed.o'])],
      ghci_script, ['print035.script'])
+test('print036', when(compiler_ge('ghc','7.8'), expect_broken(9046)), ghci_script, ['print036.script'])
 
 test('break001', normal, ghci_script, ['break001.script'])
 test('break002', normal, ghci_script, ['break002.script'])
diff --git a/testsuite/tests/ghci.debugger/scripts/print036.script b/testsuite/tests/ghci.debugger/scripts/print036.script
new file mode 100644
index 0000000..9c51a2b
--- /dev/null
+++ b/testsuite/tests/ghci.debugger/scripts/print036.script
@@ -0,0 +1,2 @@
+:print read
+:t _t1
diff --git a/testsuite/tests/programs/cholewo-eval/cholewo-eval.stdout b/testsuite/tests/ghci.debugger/scripts/print036.stdout
similarity index 55%
copy from testsuite/tests/programs/cholewo-eval/cholewo-eval.stdout
copy to testsuite/tests/ghci.debugger/scripts/print036.stdout
index 3ea84b7..d932b46 100644
--- a/testsuite/tests/programs/cholewo-eval/cholewo-eval.stdout
+++ b/testsuite/tests/ghci.debugger/scripts/print036.stdout
@@ -1 +1,2 @@
-(-0.5105811455265337,-0.7565080326002654)
+read = (_t1::Read a => String -> a)
+_t1 :: Read a => String -> a