Commit deb5ab98 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-11-10 11:16:58 by simonmar]

make this test take a lot longer if the bug occurs, so it'll hit the
timeout and fail.
parent 9f9c8cef
......@@ -8,7 +8,7 @@ expensive 0 = True
expensive 1 = False
expensive n = expensive (n-2)
f g = if expensive (10*(fst g)) then odd else even
f g = if expensive (1000000*(fst g)) then odd else even
---------------------------------------------------------
-- The key point is that the (c g) call should not get pushed inside the \x,
......
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