[commit: ghc] master: testsuite: Fix double test of +Infinity (0fd8340)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/0fd8340517a7a582bc5adb15771d82a69e3e4348/ghc

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

commit 0fd8340517a7a582bc5adb15771d82a69e3e4348
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Mar 3 17:45:04 2017 -0500

    testsuite: Fix double test of +Infinity
    
    The second set was supposed to be a NaN.


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

0fd8340517a7a582bc5adb15771d82a69e3e4348
 testsuite/tests/numeric/should_run/numrun015.hs     | 4 ++--
 testsuite/tests/numeric/should_run/numrun015.stdout | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/testsuite/tests/numeric/should_run/numrun015.hs b/testsuite/tests/numeric/should_run/numrun015.hs
index 75d4a79..f0bb429 100644
--- a/testsuite/tests/numeric/should_run/numrun015.hs
+++ b/testsuite/tests/numeric/should_run/numrun015.hs
@@ -16,6 +16,6 @@ main = do
     print $ absD (-1)
     print $ absF (-1 / 0)
     print $ absD (-1 / 0)
-    print $ absF (1 / 0)
-    print $ absD (1 / 0)
+    print $ absF (0 / 0)
+    print $ absD (0 / 0)
     print $ absD $ sqrt (-1)
diff --git a/testsuite/tests/numeric/should_run/numrun015.stdout b/testsuite/tests/numeric/should_run/numrun015.stdout
index c30dd62..c897141 100644
--- a/testsuite/tests/numeric/should_run/numrun015.stdout
+++ b/testsuite/tests/numeric/should_run/numrun015.stdout
@@ -6,6 +6,6 @@ Infinity
 1.0
 Infinity
 Infinity
-Infinity
-Infinity
+NaN
+NaN
 NaN