Commit 9eef6f3a authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #2740

parent 28c0fcfd
module Test where
f x y z | x<y = z
| otherwise = z*y
:l 2740.hs
:step f 1 2 3
:step
:print x
:print y
:force x
:force y
Stopped at 2740.hs:(3,0)-(4,24)
_result :: a = _
Stopped at 2740.hs:3:10-12
_result :: a = _
x :: a = _
y :: a = _
x = (_t1::a)
y = (_t2::a)
x = 1
y = 2
......@@ -74,3 +74,5 @@ test('list001', normal, ghci_script, ['list001.script'])
test('list002', normal, ghci_script, ['list002.script'])
test('hist001', normal, ghci_script, ['hist001.script'])
test('2740', normal, ghci_script, ['2740.script'])
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