From 170766d7f7ceb6004c764b1b31f6a91cb13da596 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 7 Dec 2018 17:10:38 +0000 Subject: [PATCH] More polar screw cases. --- tests/runtime/test-numpar.scm | 3 +++ 1 file changed, 3 insertions(+) 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)) -- 2.25.1