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+"))))