X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fread.lisp;h=fa841a2f31f31e4265e508e1ebb0cf8146cd0a5d;hb=66ad0d166c47208bed9dfb786a335d84aed73c3d;hp=c7ac66b9248f34ef181e30c37675edfade8eb91e;hpb=6b084d7a074cf5bb5d5c3ef6f57a6495cbd97189;p=jscl.git

diff --git a/tests/read.lisp b/tests/read.lisp
index c7ac66b..fa841a2 100644
--- a/tests/read.lisp
+++ b/tests/read.lisp
@@ -5,6 +5,9 @@
  (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))