From 0ea482615fc1d455a3aff8258a87db7a52d613a1 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 26 Sep 2004 16:20:30 +0000 Subject: [PATCH] Bit vector tests for make-sequence --- ansi-tests/make-sequence.lsp | 50 ++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp index 64dde03e..42cff92c 100644 --- a/ansi-tests/make-sequence.lsp +++ b/ansi-tests/make-sequence.lsp @@ -249,6 +249,56 @@ (make-sequence '(vector * *) 10 :initial-element nil) #(nil nil nil nil nil nil nil nil nil nil)) +;;; Bit vectors + +(deftest make-sequence.37 + (make-sequence 'bit-vector 5 :initial-element 0) + #*00000) + +(deftest make-sequence.38 + (make-sequence 'bit-vector 7 :initial-element 1) + #*1111111) + +(deftest make-sequence.39 + (make-sequence 'bit-vector 0) + #*) + +(deftest make-sequence.40 + (make-sequence '(bit-vector) 4 :initial-element 1) + #*1111) + +(deftest make-sequence.41 + (make-sequence '(bit-vector *) 10 :initial-element 0) + #*0000000000) + +(deftest make-sequence.42 + (make-sequence '(bit-vector 5) 5 :initial-element 0) + #*00000) + +(deftest make-sequence.43 + (make-sequence 'simple-bit-vector 5 :initial-element 0) + #*00000) + +(deftest make-sequence.44 + (make-sequence 'simple-bit-vector 7 :initial-element 1) + #*1111111) + +(deftest make-sequence.45 + (make-sequence 'simple-bit-vector 0) + #*) + +(deftest make-sequence.46 + (make-sequence '(simple-bit-vector) 4 :initial-element 1) + #*1111) + +(deftest make-sequence.47 + (make-sequence '(simple-bit-vector *) 10 :initial-element 0) + #*0000000000) + +(deftest make-sequence.48 + (make-sequence '(simple-bit-vector 5) 5 :initial-element 0) + #*00000) + ;;; Keyword tests (deftest make-sequence.allow-other-keys.1 -- GitLab