Commit aecbfb90 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

testsuite: Allow join007 to pass on 32-bit machines

The output of the test overflows. Given that the result is stable
regardless of whether it overflows, I just made the expected output
word-size dependent.
parent 94ec48f8
......@@ -39,4 +39,6 @@ enumFromToS lo hi = Stream next lo
test :: Int -> Int -> Int
test lo hi = sumS (filterS even (enumFromToS lo hi))
-- Note that this overflows on 32-bit machines and therefore we have two stdout
-- files
main = print $ test 1 10000000
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