Commit 9570d860 authored by mnislaih's avatar mnislaih
Browse files

Add a test for :quit and breakpoints in code with exception handlers

parent fd0f8f84
import GHC.Base (breakpoint)
import Control.Exception
f :: IO Bool
f = handle (\_->return False) (breakpoint$ return True)
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
test('break010', normal, ghci_script, ['break010.script'])
-- Check that coalescing of 'auto' breakpoints does not interfere with user breakpoints
:set -fno-debugging
:l A
f
:q
-- are we out of ghci yet ?
it
\ No newline at end of file
Stopped at a breakpoint in A.hs:5. Local bindings in scope:
_result :: IO Bool
A.hs:5:31-40> Returning to normal execution...
\ No newline at end of file
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