Skip to content
Snippets Groups Projects
Commit 94e3c6ff authored by pfdietz's avatar pfdietz
Browse files

More bit vector printing tests.

parent 4591c4cd
No related branches found
No related tags found
No related merge requests found
...@@ -30,6 +30,36 @@ ...@@ -30,6 +30,36 @@
0 2)) 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 (deftest print.bit-vector.random
(loop (loop
for len = (random 100) for len = (random 100)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment