Commit 94e3c6ff authored by pfdietz's avatar pfdietz
Browse files

More bit vector printing tests.

parent 4591c4cd
......@@ -30,6 +30,36 @@
0 2))
"#<")
(deftest print.bit-vector.5
(let* ((bv1 #*0001100101)
(bv2 (make-array 5 :displaced-to bv1
:displaced-index-offset 1
:element-type 'bit)))
(with-standard-io-syntax
(write-to-string bv2 :readably nil :escape nil)))
"#*00110")
(deftest print.bit-vector.6
(let* ((bv (make-array 10
:element-type 'bit
:initial-contents '(1 0 0 1 0 0 1 1 1 0)
:fill-pointer 5)))
(with-standard-io-syntax
(write-to-string bv :readably nil :escape nil)))
"#*10010")
(deftest print.bit-vector.7
(let* ((bv (make-array 10
:element-type 'bit
:initial-contents '(1 0 0 1 0 0 1 1 1 0)
:adjustable t)))
(with-standard-io-syntax
(write-to-string bv :readably nil :escape nil)))
"#*1001001110")
(deftest print.bit-vector.random
(loop
for len = (random 100)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment