diff options
| author | Austin Seipp <aseipp@pobox.com> | 2013-08-16 23:12:02 -0500 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2013-08-16 23:12:07 -0500 |
| commit | 9aaaf624dc182094cbd94860e04b987046e59f13 (patch) | |
| tree | 9aeaae6694f21259148757bc75a3f56403582466 /testsuite | |
| parent | d764c0ce35df20b72a334adb89e312119dff1bbe (diff) | |
| download | haskell-9aaaf624dc182094cbd94860e04b987046e59f13.tar.gz | |
Fix test for #8116.
This caused a failure on some 32bit builds due to floating point
(in)accuracy. But Complex is already strict in both its components, and
we really just want to know the code works, so an easier solution is to
simply use `seq` to force evaluation.
Signed-off-by: Austin Seipp <aseipp@pobox.com>
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8116.script | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8116.stdout | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/ghci/scripts/T8116.script b/testsuite/tests/ghci/scripts/T8116.script index 984faa8997..a6a40da884 100644 --- a/testsuite/tests/ghci/scripts/T8116.script +++ b/testsuite/tests/ghci/scripts/T8116.script @@ -1,2 +1,2 @@ :m + Data.Complex -((-2) :+ 0)**(1.5 :+ 0) +((-2) :+ 0)**(1.5 :+ 0) `seq` putStrLn "BOOM" diff --git a/testsuite/tests/ghci/scripts/T8116.stdout b/testsuite/tests/ghci/scripts/T8116.stdout index fe9dff6282..92af6042c5 100644 --- a/testsuite/tests/ghci/scripts/T8116.stdout +++ b/testsuite/tests/ghci/scripts/T8116.stdout @@ -1 +1 @@ -(-5.195736337412959e-16) :+ (-2.82842712474619) +BOOM |