From bcc99a9780f14c0b0096ab4229534039b03f5f64 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 4 Oct 2002 09:41:30 +0000
Subject: [PATCH] Added tests for STRING-TRIM.

---
 ansi-tests/gclload2.lsp    |  1 +
 ansi-tests/string-trim.lsp | 66 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 67 insertions(+)
 create mode 100644 ansi-tests/string-trim.lsp

diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp
index c431460e..eb076ea1 100644
--- a/ansi-tests/gclload2.lsp
+++ b/ansi-tests/gclload2.lsp
@@ -121,3 +121,4 @@
 (load "nstring-upcase.lsp")
 (load "nstring-downcase.lsp")
 (load "nstring-capitalize.lsp")
+(load "string-trim.lsp")
\ No newline at end of file
diff --git a/ansi-tests/string-trim.lsp b/ansi-tests/string-trim.lsp
new file mode 100644
index 00000000..bf8ae37f
--- /dev/null
+++ b/ansi-tests/string-trim.lsp
@@ -0,0 +1,66 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Thu Oct  3 21:53:38 2002
+;;;; Contains: Tests for STRING-TRIM
+
+(in-package :cl-test)
+
+(deftest string-trim.1
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim "ab" s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.2
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim '(#\a #\b) s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.3
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim #(#\a #\b) s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.4
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b))
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.5
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b)
+				      :element-type 'character)
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.6
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b)
+				      :element-type 'standard-char)
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+(deftest string-trim.7
+  (let* ((s (copy-seq "abcdaba"))
+	 (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b)
+				      :element-type 'base-char)
+			  s)))
+    (values s s2))
+  "abcdaba"
+  "cd")
+
+
+
+
-- 
GitLab