More polar screw cases.

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index 8f8eab842777dcaae183f1f18a25329eb35ff244..48e50fb4ac7a82563b246ded3898c7cbef023dbd 100644 (file)
--- 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))