tests/read.lisp

   1 ;; TODO: Uncomment when either read-from-string supports all these parameters
   2 ;; or when test macro supports error handling, whichever comes first
   3 ;; (test (equal (read-from-string " 1 3 5" t nil :start 2) (values 3 5)))
   4 (expected-failure
   5  (equal (multiple-value-list (read-from-string "(a b c)"))
   6         '((A B C) 7)))
   7
   8 (test (equal (symbol-name (read-from-string "cl:cond")) "COND"))
   9 (test (equal (symbol-name (read-from-string "co|N|d")) "COND"))
  10 (test (equal (symbol-name (read-from-string "abc\\def")) "ABCdEF"))
  11 (test (equal (symbol-name (read-from-string "|.|")) "."))
  12 (test (equal (read-from-string "(1 .25)") '(1 0.25)))
  13 (test (equal (read-from-string ".25") 0.25))
  14 (test (equal (read-from-string "(1 . 25)") '(1 . 25)))