From: Taylor R Campbell Date: Fri, 7 Dec 2018 17:10:38 +0000 (+0000) Subject: More polar screw cases. X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~30 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=170766d7f7ceb6004c764b1b31f6a91cb13da596;p=mit-scheme.git More polar screw cases. --- diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm index 8f8eab842..48e50fb4a 100644 --- a/tests/runtime/test-numpar.scm +++ b/tests/runtime/test-numpar.scm @@ -180,6 +180,9 @@ USA. (define-eqv-test "1@0" 1) (define-relerr-test "1@3.141592653589793" -1 1e-15) +(define-error-test "1@0i") +(define-error-test "0@0i") +(define-error-test "0/1@0i") (define-eqv-test "+nan.0" (flo:make-nan #f #t 0)) (define-eqv-test "-nan.0" (flo:make-nan #t #t 0))