From 4d31a550d7e1f11f77439d6295036a48f1a70c60 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 11 Nov 2002 01:01:39 +0000
Subject: [PATCH] Added more tests for the COUNT -1 bug.

---
 ansi-tests/remove.lsp | 48 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)

diff --git a/ansi-tests/remove.lsp b/ansi-tests/remove.lsp
index 996e1180..cea80256 100644
--- a/ansi-tests/remove.lsp
+++ b/ansi-tests/remove.lsp
@@ -294,6 +294,18 @@
   (remove 'a (vector 'a 'b 'c 'd) :count -1)
   #(a b c d))
 
+(deftest remove-string.1
+  (remove #\a (copy-seq "abcad"))
+  "bcd")
+
+(deftest remove-string.2
+  (remove #\a (copy-seq "abcad") :count -1)
+  "abcad")
+
+(deftest remove-string.3
+  (remove #\a (copy-seq "bcd") :count -1)
+  "bcd")
+
 (deftest delete-vector.1
   (delete 'a (vector 'b 'c 'd))
   #(b c d))
@@ -306,6 +318,42 @@
   (delete 'a (vector 'a 'b 'c 'd) :count -1)
   #(a b c d))
 
+(deftest delete-string.1
+  (delete #\a (copy-seq "abcad"))
+  "bcd")
+
+(deftest delete-string.2
+  (delete #\a (copy-seq "abcad") :count -1)
+  "abcad")
+
+(deftest delete-string.3
+  (delete #\a (copy-seq "bcd") :count -1)
+  "bcd")
+
+(deftest remove-bit-vector.1
+  (remove 0 (copy-seq #*00011101101))
+  #*111111)
+
+(deftest remove-bit-vector.2
+  (remove 0 (copy-seq #*00011101101) :count -1)
+  #*00011101101)
+
+(deftest remove-bit-vector.3
+  (remove 0 (copy-seq #*11111) :count -1)
+  #*11111)
+
+(deftest delete-bit-vector.1
+  (delete 0 (copy-seq #*00011101101))
+  #*111111)
+
+(deftest delete-bit-vector.2
+  (delete 0 (copy-seq #*00011101101) :count -1)
+  #*00011101101)
+
+(deftest delete-bit-vector.3
+  (delete 0 (copy-seq #*11111) :count -1)
+  #*11111)
+
 
 ;;; Randomized tests
 
-- 
GitLab