15 lines
950 B
Plaintext
15 lines
950 B
Plaintext
;;; AR 6150 Test cases
|
|
|
|
(do-test "(vector string-char) printing: escapes"
|
|
(and (equal (prin1-to-string (make-array 3 :element-type 'string-char :initial-contents '(#\a #\b #\c))) "\"abc\"")
|
|
(equal (prin1-to-string (make-array 3 :element-type 'string-char :initial-contents '(#\a #\" #\c))) "\"a\\\"c\"")
|
|
(equal (prin1-to-string (make-array 3 :element-type 'string-char :initial-contents '(#\a #\\ #\c))) "\"a\\\\c\"")
|
|
(equal (princ-to-string (make-array 3 :element-type 'string-char :initial-contents '(#\a #\b #\c))) "abc")
|
|
(equal (princ-to-string (make-array 3 :element-type 'string-char :initial-contents '(#\a #\" #\c))) "a\"c")
|
|
(equal (princ-to-string (make-array 3 :element-type 'string-char :initial-contents '(#\a #\\ #\c))) "a\\c")
|
|
)
|
|
)
|
|
|
|
(do-test "(vector string-char) printing: fill pointer"
|
|
(equal (princ-to-string (make-array 20 :element-type 'string-char :initial-element #\a :fill-pointer 3)) "aaa")
|
|
) |