diff options
author | Ben Gamari <ben@smart-cactus.org> | 2017-03-03 17:45:04 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2017-03-03 17:45:04 -0500 |
commit | 0fd8340517a7a582bc5adb15771d82a69e3e4348 (patch) | |
tree | 82b833faa59e885bf5e07ac65ae14cf97f0fa087 /testsuite/tests/numeric/should_run | |
parent | a86e68cee83ea4290f0325c1a02ecb734fdaa485 (diff) | |
download | haskell-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.hs | 4 | ||||
-rw-r--r-- | 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 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 |