From e3acefff0c3f08a112a2243a23f69a2fa99b347c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 4 Oct 2002 09:53:08 +0000 Subject: [PATCH] More tests of STRING-TRIM. --- ansi-tests/string-trim.lsp | 43 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) diff --git a/ansi-tests/string-trim.lsp b/ansi-tests/string-trim.lsp index bf8ae37f..45a61e8b 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") -- GitLab