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