X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/e3c5df539640a36eb1493f581087d54a4714f337..938d46a35d39ec5d7b5fa858a8783136ce24d10d:/test-suite/tests/reader.test

diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test
index 5e95a7a31..bd34e4db0 100644
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@@ -167,6 +167,11 @@
          (with-read-options '(keywords postfix)
            (lambda ()
              (read-string "keyword:")))))
+  (pass-if "long postfix keywords"
+    (eq? #:keyword0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
+         (with-read-options '(keywords postfix)
+           (lambda ()
+             (read-string "keyword0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789:")))))
   (pass-if "`:' is not a postfix keyword (per SRFI-88)"
     (eq? ':
          (with-read-options '(keywords postfix)