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