From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 7 Dec 2018 16:42:30 +0000 (+0000)
Subject: Add some more screw cases.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~34
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5b9530f1c79ec3dd6d336cebce6b85c60f1ddd3f;p=mit-scheme.git

Add some more screw cases.
---

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index 18ddc40ed..6bcacf2df 100644
--- a/tests/runtime/test-numpar.scm
+++ b/tests/runtime/test-numpar.scm
@@ -207,5 +207,10 @@ USA.
 (define-error-test "0+0" expect-failure)
 (define-error-test "+1+0" expect-failure)
 (define-error-test "1+0" expect-failure)
+(define-error-test "1+0" expect-failure)
+(define-error-test "1+0." expect-failure)
+(define-error-test "1+0.0" expect-failure)
+(define-error-test "1+.0" expect-failure)
+(define-error-test "1+0/1" expect-failure)
 (define-error-test "+0+0+i" expect-failure)
 (define-error-test "0+0+i" expect-failure)