diff options
| author | Vitaly Bragilevsky <bravit111@gmail.com> | 2014-07-08 21:05:05 +0400 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-08-19 06:46:38 -0500 |
| commit | defc42e7dfdcc0685077ef3dc8bea6b80e2a66dc (patch) | |
| tree | 6059ccbfa3f2361e140523b305dd445784828d91 | |
| parent | 527bcc41630918977c73584d99125ff164400695 (diff) | |
| download | haskell-defc42e7dfdcc0685077ef3dc8bea6b80e2a66dc.tar.gz | |
Add test case for #9046
Signed-off-by: Austin Seipp <austin@well-typed.com>
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/all.T | 1 | ||||
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/print036.script | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/print036.stdout | 2 |
3 files changed, 5 insertions, 0 deletions
diff --git a/testsuite/tests/ghci.debugger/scripts/all.T b/testsuite/tests/ghci.debugger/scripts/all.T index 09fa391ffb..f8a054103d 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 0000000000..9c51a2b74a --- /dev/null +++ b/testsuite/tests/ghci.debugger/scripts/print036.script @@ -0,0 +1,2 @@ +:print read +:t _t1 diff --git a/testsuite/tests/ghci.debugger/scripts/print036.stdout b/testsuite/tests/ghci.debugger/scripts/print036.stdout new file mode 100644 index 0000000000..d932b467a5 --- /dev/null +++ b/testsuite/tests/ghci.debugger/scripts/print036.stdout @@ -0,0 +1,2 @@ +read = (_t1::Read a => String -> a) +_t1 :: Read a => String -> a |