SBCL-style Unicode support: one character = one Unicode codepoint.

[jscl.git] / tests / read.lisp

diff --git a/tests/read.lisp b/tests/read.lisp
index ddcc647..fa841a2 100644 (file)
--- a/tests/read.lisp
+++ b/tests/read.lisp
@@ -4,3 +4,11 @@
 (expected-failure
  (equal (multiple-value-list (read-from-string "(a b c)"))
         '((A B C) 7)))
+
+(test (equal (symbol-name (read-from-string "cl:cond")) "COND"))
+(test (equal (symbol-name (read-from-string "co|N|d")) "COND"))
+(test (equal (symbol-name (read-from-string "abc\\def")) "ABCdEF"))
+(test (equal (symbol-name (read-from-string "|.|")) "."))
+(test (equal (read-from-string "(1 .25)") '(1 0.25)))
+(test (equal (read-from-string ".25") 0.25))
+(test (equal (read-from-string "(1 . 25)") '(1 . 25)))