testsuite: Allow join007 to pass on 32-bit machines
authorBen Gamari <ben@smart-cactus.org>
Fri, 24 Mar 2017 16:27:35 +0000 (12:27 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sun, 26 Mar 2017 22:09:52 +0000 (18:09 -0400)
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.

testsuite/tests/perf/join_points/join007.hs
testsuite/tests/perf/join_points/join007.stdout-ws-32 [new file with mode: 0644]
testsuite/tests/perf/join_points/join007.stdout-ws-64 [moved from testsuite/tests/perf/join_points/join007.stdout with 100% similarity]

index aa2f68c..59cc99b 100644 (file)
@@ -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
diff --git a/testsuite/tests/perf/join_points/join007.stdout-ws-32 b/testsuite/tests/perf/join_points/join007.stdout-ws-32
new file mode 100644 (file)
index 0000000..d4692e3
--- /dev/null
@@ -0,0 +1 @@
+-999630016