diff options
| -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 |