Move documentation function to src/documentation.lisp
[jscl.git] / tests / print.lisp
1 (test (let ((x (read-from-string (prin1-to-string 'foo))))
2         (and (symbolp x) (equal (symbol-name x) "FOO"))))
3 (test (let ((x (read-from-string (prin1-to-string 'fo\o))))
4         (and (symbolp x) (equal (symbol-name x) "FOo"))))
5 (test (let ((x (read-from-string (prin1-to-string '1..2))))
6         (and (symbolp x) (equal (symbol-name x) "1..2"))))
7 (test (let ((x (read-from-string (prin1-to-string '\1))))
8         (and (symbolp x) (equal (symbol-name x) "1"))))
9 (test (let ((x (read-from-string (prin1-to-string '\-10))))
10         (and (symbolp x) (equal (symbol-name x) "-10"))))
11 (test (let ((x (read-from-string (prin1-to-string '\.\.\.))))
12         (and (symbolp x) (equal (symbol-name x) "..."))))
13 (test (let ((x (read-from-string (prin1-to-string '1E))))
14         (and (symbolp x) (equal (symbol-name x) "1E"))))
15 (test (let ((x (read-from-string (prin1-to-string '\1E+2))))
16         (and (symbolp x) (equal (symbol-name x) "1E+2"))))
17 (test (let ((x (read-from-string (prin1-to-string '1E+))))
18         (and (symbolp x) (equal (symbol-name x) "1E+"))))