[commit: ghc] master: testsuite: Add a NaN case to numrun015 (2f8534b)

git at git.haskell.org git at git.haskell.org
Fri Mar 3 22:33:59 UTC 2017


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/2f8534b512474188c54885e1b488798affaf08e2/ghc

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

commit 2f8534b512474188c54885e1b488798affaf08e2
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Mar 3 17:32:23 2017 -0500

    testsuite: Add a NaN case to numrun015


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

2f8534b512474188c54885e1b488798affaf08e2
 testsuite/tests/numeric/should_run/numrun015.hs     | 1 +
 testsuite/tests/numeric/should_run/numrun015.stdout | 1 +
 2 files changed, 2 insertions(+)

diff --git a/testsuite/tests/numeric/should_run/numrun015.hs b/testsuite/tests/numeric/should_run/numrun015.hs
index 070c5ab..75d4a79 100644
--- a/testsuite/tests/numeric/should_run/numrun015.hs
+++ b/testsuite/tests/numeric/should_run/numrun015.hs
@@ -18,3 +18,4 @@ main = do
     print $ absD (-1 / 0)
     print $ absF (1 / 0)
     print $ absD (1 / 0)
+    print $ absD $ sqrt (-1)
diff --git a/testsuite/tests/numeric/should_run/numrun015.stdout b/testsuite/tests/numeric/should_run/numrun015.stdout
index 33cdeb4..c30dd62 100644
--- a/testsuite/tests/numeric/should_run/numrun015.stdout
+++ b/testsuite/tests/numeric/should_run/numrun015.stdout
@@ -8,3 +8,4 @@ Infinity
 Infinity
 Infinity
 Infinity
+NaN



More information about the ghc-commits mailing list