Commit a7751b8b authored by pfdietz's avatar pfdietz
Browse files

Fixed test bugs

parent 537c52e4
......@@ -129,7 +129,7 @@
(deftest print.array.2.12
(let ((desired-result "#2A((0 1 1) (1 1 0))"))
(loop for i from 1 to 64
(loop for i from 2 to 64
for a = (make-array '(2 3) :element-type `(unsigned-byte ,i)
:initial-contents '((0 1 1) (1 1 0)))
for result = (with-standard-io-syntax
......@@ -151,7 +151,7 @@
(deftest print.array.2.14
(let ((desired-result "#2A((0 1 1) (1 1 0))"))
(loop for i from 1 to 64
(loop for i from 2 to 64
for a = (make-array '(2 3) :element-type `(unsigned-byte ,i)
:adjustable t
:initial-contents '((0 1 1) (1 1 0)))
......@@ -175,7 +175,7 @@
(deftest print.array.2.16
(let ((desired-result "#2A((1 1) (1 0))"))
(loop for i from 1 to 64
(loop for i from 2 to 64
for type = `(unsigned-byte ,i)
for a = (make-array '(2 3) :element-type type
:adjustable t
......@@ -203,20 +203,6 @@
collect (list i b result)))
nil)
(deftest print.array.2.18
(let ((a (make-array '(3 4) :initial-contents '("abcd" "0123" "ABCD")
:element-type 'character)))
(with-standard-io-syntax
(write-to-string a :readably nil :array t)))
"#2A((#\\a #\\b #\\c #\\d) (#\\0 #\\1 #\\2 #\\3) (#\\A #\\B #\\C #\\D))")
(deftest print.array.2.19
(let ((a (make-array '(3 4) :initial-contents '("abcd" "0123" "ABCD")
:element-type 'base-char)))
(with-standard-io-syntax
(write-to-string a :readably nil :array t)))
"#2A((#\\a #\\b #\\c #\\d) (#\\0 #\\1 #\\2 #\\3) (#\\A #\\B #\\C #\\D))")
(deftest print.array.2.20
(let* ((a (make-array '(9) :initial-contents '(1 3 8 2 67 121 65 432 6)))
(b (make-array '(2 2) :displaced-to a
......
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