Commit edf2d25e authored by pfdietz's avatar pfdietz
Browse files

Begin adding array (non-vector) printing tests

parent b6672cef
......@@ -19,3 +19,4 @@
(load "print-cons.lsp")
(load "print-bit-vector.lsp")
(load "print-vector.lsp")
(load "print-array.lsp")
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Apr 22 22:38:11 2004
;;;; Contains: Tests of printing of arrays (other than vectors)
(compile-and-load "printer-aux.lsp")
(in-package :cl-test)
;; Zero dimensional arrays
(deftest print.array.1
(let ((a (make-array nil :initial-element 0)))
(with-standard-io-syntax
(write-to-string a :readably nil :array t)))
"#0A0")
(deftest print.array.2
(let ((a (make-array nil :initial-element '|A|))
(*package* (find-package "CL-TEST")))
(with-standard-io-syntax
(write-to-string a :readably nil :array t)))
"#0AA")
(deftest print.array.3
(let ((a (make-array nil :initial-element 0)))
(subseq (write-to-string a :readably nil :array nil) 0 2))
"#<")
Markdown is supported
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