testsuite/tests/ghci.debugger/scripts/break026.script


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

:load break026
:step foldl (+) 0 [1::Int .. 5]
:step
:step
:force c
        -- answer should be 1

:load break026
:step foldl (+) 0 [1::Int .. 5]
:step
:step
-- a diversion to single-step the evaluation of c:
:step c `seq` ()
:step
-- end diversion
c
        -- answer should be 1 again (not 0)