Commit 7206a1b5 authored by Simon Marlow's avatar Simon Marlow
Browse files

add another exception test

parent 50efef93
...@@ -38,6 +38,7 @@ test('break013', normal, ghci_script, ['break013.script']) ...@@ -38,6 +38,7 @@ test('break013', normal, ghci_script, ['break013.script'])
test('break014', normal, ghci_script, ['break014.script']) test('break014', normal, ghci_script, ['break014.script'])
test('break015', normal, ghci_script, ['break015.script']) test('break015', normal, ghci_script, ['break015.script'])
test('break016', normal, ghci_script, ['break016.script']) test('break016', normal, ghci_script, ['break016.script'])
test('break017', normal, ghci_script, ['break017.script'])
test('break018', normal, ghci_script, ['break018.script']) test('break018', normal, ghci_script, ['break018.script'])
test('dynbrk001', normal, ghci_script, ['dynbrk001.script']) test('dynbrk001', normal, ghci_script, ['dynbrk001.script'])
......
:l ../QSort.hs
:set -fbreak-on-exception
:trace qsort ("abc" ++ undefined)
:back
:print as
:force as
-- this should print the exception
:print as
"Stopped at <exception thrown>
_exception :: e
Logged breakpoint at ../QSort.hs:6:23-37
_result :: [a]
as :: [a]
a :: a
as = 'b' : 'c' : (_t1::[Char])
*** Exception: Prelude.undefined
as = 'b' : 'c' : (_t2::[Char])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment