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