diff --git a/ansi-tests/print-bit-vector.lsp b/ansi-tests/print-bit-vector.lsp index ca0e92be10e5d997a99bfa7d0477d67333f289ce..63a6fdeef6126b2d62d630b384de8bae2c06c5ab 100644 --- a/ansi-tests/print-bit-vector.lsp +++ b/ansi-tests/print-bit-vector.lsp @@ -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)