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