projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix several newly introduced bugs in the migration to mutable strings
[jscl.git]
/
tests
/
read.lisp
diff --git
a/tests/read.lisp
b/tests/read.lisp
index
c7ac66b
..
fa841a2
100644
(file)
--- 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)))
(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 (symbol-name (read-from-string "|.|")) "."))
(test (equal (read-from-string "(1 .25)") '(1 0.25)))
(test (equal (read-from-string ".25") 0.25))