From 75487595348298d13559767b76d1984806db836d Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 26 Sep 2004 16:12:11 +0000 Subject: [PATCH] Tests for various other sequence types (similar to new tests for map, make-sequence) --- ansi-tests/merge.lsp | 77 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 77 insertions(+) diff --git a/ansi-tests/merge.lsp b/ansi-tests/merge.lsp index 700a91b1..265786b5 100644 --- a/ansi-tests/merge.lsp +++ b/ansi-tests/merge.lsp @@ -197,6 +197,34 @@ t #(2 5 8 9 11)) +(deftest merge-vector.18 + (merge '(vector) (list 1 3 10) (list 2 4 6) #'<) + #(1 2 3 4 6 10)) + +(deftest merge-vector.19 + (merge '(vector *) (list 1 3 10) (list 2 4 6) #'<) + #(1 2 3 4 6 10)) + +(deftest merge-vector.20 + (merge '(vector t) (list 1 3 10) (list 2 4 6) #'<) + #(1 2 3 4 6 10)) + +(deftest merge-vector.21 + (merge '(vector * 6) (list 1 3 10) (list 2 4 6) #'<) + #(1 2 3 4 6 10)) + +(deftest merge-vector.22 + (merge '(simple-vector) (list 2 4 6) (list 1 3 5) #'<) + #(1 2 3 4 5 6)) + +(deftest merge-vector.23 + (merge '(simple-vector *) (list 2 4 6) (list 1 3 5) #'<) + #(1 2 3 4 5 6)) + +(deftest merge-vector.24 + (merge '(simple-vector 6) (list 2 4 6) (list 1 3 5) #'<) + #(1 2 3 4 5 6)) + ;;; Tests on strings (deftest merge-string.1 @@ -349,6 +377,55 @@ (assert (string= (merge '(vector character) s (copy-seq "bdf") #'char<) "abcdef"))) nil) +(deftest merge-string.24 + (merge '(string) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.25 + (merge '(string *) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.26 + (merge '(string 6) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.27 + (merge '(simple-string) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.28 + (merge '(simple-string *) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.29 + (merge '(simple-string 6) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.30 + (merge '(base-string) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.31 + (merge '(base-string *) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.32 + (merge '(base-string 6) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.33 + (merge '(simple-base-string) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.34 + (merge '(simple-base-string *) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + +(deftest merge-string.35 + (merge '(simple-base-string 6) (copy-seq "ace") (copy-seq "bdf") #'char<) + "abcdef") + + ;;; Tests for bit vectors (deftest merge-bit-vector.1 -- GitLab