Add tests for change to reading dot.

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 7217910139bd225e5707491e82f7795a172d53a2..50d000bf431c735c3d60ff61d8ceb6511ad91ed0 100644 (file)
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -274,4 +274,22 @@ USA.
       (assert-eq (eval (read-from-string string) system-global-environment)
                 object)
       (assert-eq (eval (read-from-string abbrev) system-global-environment)
-                object))))
\ No newline at end of file
+                object))))
+
+(define-enumerated-test 'dot-good
+  `(("(a . b)" (a . b))
+    ("(a b c . d)" (a b c . d)))
+  (lambda (string value)
+    (assert-equal (read-from-string string) value)))
+
+(define-enumerated-test 'dot-bad
+  `(("(.)")
+    ("(a .)")
+    ("(. a )")
+    ("(a . . b)")
+    (".")
+    ("#(a b c . d)")
+    ("#u8(0 1 2 . 3)"))
+  (lambda (string)
+    (assert-error (lambda () (read-from-string string))
+                 (list condition-type:read-error))))
\ No newline at end of file