From 94e3c6ff2775ac5b2afbc912930a014b4ea62d4a Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 21 Apr 2004 03:27:25 +0000 Subject: [PATCH] More bit vector printing tests. --- ansi-tests/print-bit-vector.lsp | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) diff --git a/ansi-tests/print-bit-vector.lsp b/ansi-tests/print-bit-vector.lsp index ca0e92be..63a6fdee 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) -- GitLab