summaryrefslogtreecommitdiff
path: root/testsuite/tests/numeric/should_run
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2017-03-03 17:45:04 -0500
committerBen Gamari <ben@smart-cactus.org>2017-03-03 17:45:04 -0500
commit0fd8340517a7a582bc5adb15771d82a69e3e4348 (patch)
tree82b833faa59e885bf5e07ac65ae14cf97f0fa087 /testsuite/tests/numeric/should_run
parenta86e68cee83ea4290f0325c1a02ecb734fdaa485 (diff)
downloadhaskell-0fd8340517a7a582bc5adb15771d82a69e3e4348.tar.gz
testsuite: Fix double test of +Infinity
The second set was supposed to be a NaN.
Diffstat (limited to 'testsuite/tests/numeric/should_run')
-rw-r--r--testsuite/tests/numeric/should_run/numrun015.hs4
-rw-r--r--testsuite/tests/numeric/should_run/numrun015.stdout4
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 75d4a79b59..f0bb429208 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 c30dd621c0..c897141c19 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