diff options
Diffstat (limited to 'testsuite/tests/ghci.debugger/scripts/break022/break022.script')
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/break022/break022.script | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/testsuite/tests/ghci.debugger/scripts/break022/break022.script b/testsuite/tests/ghci.debugger/scripts/break022/break022.script index 33780a1408..42cc8979ea 100644 --- a/testsuite/tests/ghci.debugger/scripts/break022/break022.script +++ b/testsuite/tests/ghci.debugger/scripts/break022/break022.script @@ -1,3 +1,5 @@ +:l shell.hs +:def shell (\s -> do shell s; return "") -- We have this structure of modules: @@ -10,9 +12,9 @@ -- But first we touch A, and reload. B.boot will be reloaded, but not B, which will end up with an empty modbreaks. When we :step into B, ghci will die with an out of bounds access in B's break array. -- The effect we want is B.boot being reloaded while B is not. -:! cp A1.hs A.hs +:shell cp A1.hs A.hs :l C -:! touch A.hs +:shell echo >> A.hs :r :break a a () |