[commit: testsuite] master: Fix test for #8116. (858924a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/858924a016528be00a43333de2563d4e8c630bdb/testsuite

>---------------------------------------------------------------

commit 858924a016528be00a43333de2563d4e8c630bdb
Author: Austin Seipp <aseipp at pobox.com>
Date:   Fri Aug 16 23:12:02 2013 -0500

    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 at pobox.com>


>---------------------------------------------------------------

858924a016528be00a43333de2563d4e8c630bdb
 tests/ghci/scripts/T8116.script |    2 +-
 tests/ghci/scripts/T8116.stdout |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/ghci/scripts/T8116.script b/tests/ghci/scripts/T8116.script
index 984faa8..a6a40da 100644
--- a/tests/ghci/scripts/T8116.script
+++ b/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/tests/ghci/scripts/T8116.stdout b/tests/ghci/scripts/T8116.stdout
index fe9dff6..92af604 100644
--- a/tests/ghci/scripts/T8116.stdout
+++ b/tests/ghci/scripts/T8116.stdout
@@ -1 +1 @@
-(-5.195736337412959e-16) :+ (-2.82842712474619)
+BOOM