diff --git a/ansi-tests/pathname.lsp b/ansi-tests/pathname.lsp index f5d64b9224ba6bf0d49885cc56cecae17a9785a7..08ac1280119782c106851c0a80f01b9e3775f0dd 100644 --- a/ansi-tests/pathname.lsp +++ b/ansi-tests/pathname.lsp @@ -31,6 +31,52 @@ always (eq x (pathname x))) t) +(deftest pathname.6 + (equalt #p"ansi-aux.lsp" + (pathname (make-array 12 :initial-contents "ansi-aux.lsp" + :element-type 'base-char))) + t) + +(deftest pathname.7 + (equalt #p"ansi-aux.lsp" + (pathname (make-array 15 :initial-contents "ansi-aux.lspXXX" + :element-type 'base-char + :fill-pointer 12))) + t) + +(deftest pathname.8 + (equalt #p"ansi-aux.lsp" + (pathname (make-array 12 :initial-contents "ansi-aux.lsp" + :element-type 'base-char + :adjustable t))) + t) + +(deftest pathname.9 + (equalt #p"ansi-aux.lsp" + (pathname (make-array 15 :initial-contents "ansi-aux.lspXXX" + :element-type 'character + :fill-pointer 12))) + t) + +(deftest pathname.10 + (equalt #p"ansi-aux.lsp" + (pathname (make-array 12 :initial-contents "ansi-aux.lsp" + :element-type 'character + :adjustable t))) + t) + +(deftest pathname.11 + (loop for etype in '(standard-char base-char character) + collect + (equalt #p"ansi-aux.lsp" + (pathname + (let* ((s (make-array 15 :initial-contents "XXansi-aux.lspX" + :element-type etype))) + (make-array 12 :element-type etype + :displaced-to s + :displaced-index-offset 2))))) + (t t t)) + ;;; Error tests (deftest pathname.error.1 diff --git a/ansi-tests/stringp.lsp b/ansi-tests/stringp.lsp index 81fb22687c417ce1db1c3928234d3a0c83b3b85c..8fc72a879b9a99da7a53336ce971a1f724f9bb72 100644 --- a/ansi-tests/stringp.lsp +++ b/ansi-tests/stringp.lsp @@ -57,3 +57,28 @@ :notes (:nil-vectors-are-strings) (notnot-mv (stringp (make-array '(37) :element-type nil))) t) + +(deftest stringp.11 + (notnot (stringp (make-array 4 :element-type 'base-char + :fill-pointer 2 + :initial-contents '(#\a #\b #\c #\d)))) + t) + +(deftest stringp.12 + (notnot (stringp (make-array 4 :element-type 'base-char + :adjustable t + :initial-contents '(#\a #\b #\c #\d)))) + t) + +(deftest stringp.13 + (notnot (stringp (make-array 4 :element-type 'character + :fill-pointer 2 + :initial-contents '(#\a #\b #\c #\d)))) + t) + +(deftest stringp.14 + (notnot (stringp (make-array 4 :element-type 'character + :adjustable t + :initial-contents '(#\a #\b #\c #\d)))) + t) +