diff --git a/ansi-tests/string-trim.lsp b/ansi-tests/string-trim.lsp index bf8ae37f85ea9c5cf78e305e0e396e1e5a354f83..45a61e8bc1e8a899f387066504f841ef8023f8af 100644 --- a/ansi-tests/string-trim.lsp +++ b/ansi-tests/string-trim.lsp @@ -61,6 +61,49 @@ "abcdaba" "cd") +(deftest string-trim.8 + (let* ((s (copy-seq "abcdaba")) + (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b #\c #\d) + :element-type 'character + :fill-pointer 2) + s))) + (values s s2)) + "abcdaba" + "cd") +(deftest string-trim.9 + (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list) + :element-type 'character + )) + (s2 (string-trim "ab" s))) + (values s s2)) + "abcdaba" + "cd") +(deftest string-trim.10 + (let* ((s (make-array 9 :initial-contents (coerce "abcdabadd" 'list) + :element-type 'character + :fill-pointer 7)) + (s2 (string-trim "ab" s))) + (values s s2)) + "abcdaba" + "cd") + +(deftest string-trim.11 + (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list) + :element-type 'standard-char + )) + (s2 (string-trim "ab" s))) + (values s s2)) + "abcdaba" + "cd") + +(deftest string-trim.12 + (let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list) + :element-type 'base-char + )) + (s2 (string-trim "ab" s))) + (values s s2)) + "abcdaba" + "cd")