X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fread.lisp;h=fa841a2f31f31e4265e508e1ebb0cf8146cd0a5d;hb=8de6bd35930e6f3c3e37b9800955faf81882971d;hp=516790e848c25203fa0aaf99d5527c18869e5a58;hpb=ca49459c0d6de45c45171af22e268db9ce14e31a;p=jscl.git

diff --git a/tests/read.lisp b/tests/read.lisp
index 516790e..fa841a2 100644
--- a/tests/read.lisp
+++ b/tests/read.lisp
@@ -2,10 +2,13 @@
 ;; or when test macro supports error handling, whichever comes first
 ;; (test (equal (read-from-string " 1 3 5" t nil :start 2) (values 3 5)))
 (expected-failure
- (equal (read-from-string "(a b c)") (values '(A B C) 7)))
+ (equal (multiple-value-list (read-from-string "(a b c)"))
+        '((A B C) 7)))
 
-(test (equal (read-from-string "|.|") '\.))
+(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)))
 (test (equal (read-from-string "(1 . 25)") '(1 . 25)))