Commit 4591c4cd authored by pfdietz's avatar pfdietz
Browse files

Tests for printing of bit vectors.

parent ee08831b
......@@ -16,4 +16,5 @@
(load "print-characters.lsp")
(load "print-symbols.lsp")
(load "print-strings.lsp")
(load "print-cons.lsp")
\ No newline at end of file
(load "print-cons.lsp")
(load "print-bit-vector.lsp")
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Tue Apr 20 22:10:53 2004
;;;; Contains: Tests for printing of bit vectors
(compile-and-load "printer-aux.lsp")
(in-package :cl-test)
(deftest print.bit-vector.1
(with-standard-io-syntax
(write-to-string #* :readably nil :escape nil))
"#*")
(deftest print.bit-vector.2
(with-standard-io-syntax
(subseq (write-to-string #* :readably nil :escape nil :array nil)
0 2))
"#<")
(deftest print.bit-vector.3
(with-standard-io-syntax
(write-to-string #*001101010011011 :readably nil :escape nil))
"#*001101010011011")
(deftest print.bit-vector.4
(with-standard-io-syntax
(subseq (write-to-string #*11010011010110101
:readably nil :escape nil :array nil)
0 2))
"#<")
(deftest print.bit-vector.random
(loop
for len = (random 100)
for bv = (coerce (loop repeat len collect (random 2)) 'bit-vector)
repeat 1000
nconc (randomly-check-readability bv))
nil)
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