projects / mit-scheme.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 159cf08)
Couple more sqrt edge cases.
authorTaylor R Campbell <campbell@mumble.net>
Fri, 30 Nov 2018 03:04:11 +0000 (03:04 +0000)
committerTaylor R Campbell <campbell@mumble.net>
Fri, 30 Nov 2018 06:53:16 +0000 (06:53 +0000)
tests/runtime/test-arith.scm patch | blob | history

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 4c6c984d05e953b7993332b3a4b47e268122112b..d20f6a306b1f6c0270055317805b732adf4530a7 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -722,6 +722,10 @@ USA.
     (+inf.0-1.i +inf.0 ,expect-error)
     (-inf.0i +inf.0-inf.0i)
     (+inf.0i +inf.0+inf.0i)
+    (+0.-inf.0i +inf.0-inf.0i)
+    (+0.+inf.0i +inf.0+inf.0i)
+    (-0.-inf.0i +inf.0-inf.0i)
+    (-0.+inf.0i +inf.0+inf.0i)
     (1.-inf.0i +inf.0-inf.0i)
     (1.+inf.0i +inf.0+inf.0i)
     (-1.-inf.0i +inf.0-inf.0i)
MIT/GNU Scheme, Pucked