Changes from arch/CVS synchronization

[bpt/guile.git] / test-suite / tests / reader.test

diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test
index 7f24aa6..d6047a2 100644 (file)
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@@ -84,7 +84,11 @@
   (pass-if "unprintable symbol"
     ;; The reader tolerates unprintable characters for symbols.
     (equal? (string->symbol "\001\002\003")
-            (read-string "\001\002\003"))))
+            (read-string "\001\002\003")))
+
+  (pass-if "CR recognized as a token delimiter"
+    ;; In 1.8.3, character 0x0d was not recognized as a delimiter.
+    (equal? (read-string "one\x0dtwo") 'one)))
 
 \f
 (pass-if-exception "radix passed to number->string can't be zero"