tests/strings.lisp

   1 (defvar *str* "hello world")
   2 (defvar *str2* "h")
   3
   4 (test (stringp *str*))
   5 (test (not (characterp *str*)))
   6 (test (not (integerp *str*)))
   7
   8 (test (stringp *str2*))
   9 (test (not (characterp *str2*)))
  10 (test (not (integerp *str2*)))
  11
  12 (test (= (length "hello world") 11))
  13 (test (arrayp "hello world"))
  14
  15 (test (string= "h" (string #\h)))
  16 (test (string= "foo" "foo"))
  17 (test (not (string= "Foo" "foo")))
  18 (test (not (string= "foo" "foox")))