Commit ba6ba1a2 authored by pfdietz's avatar pfdietz

Turn off *PRINT-READABLY* by default in most printer tests.

parent 87d147f2
......@@ -5,21 +5,23 @@
(in-package :cl-test)
(deftest print-complex.1
(deftest print.complex.1
(equalt
(with-standard-io-syntax
(with-output-to-string (s) (prin1 (complex 1 2) s)))
(let ((*print-readably* nil))
(with-output-to-string (s) (prin1 (complex 1 2) s))))
"#C(1 2)")
t)
(deftest print-complex.2
(deftest print.complex.2
(equalt
(with-standard-io-syntax
(with-output-to-string (s) (prin1 (complex 1.0 2.0) s)))
(let ((*print-readably* nil))
(with-output-to-string (s) (prin1 (complex 1.0 2.0) s))))
"#C(1.0 2.0)")
t)
(deftest print-complex.random.1
(deftest print.complex.random.1
(loop for numbits = (random 40)
for bound = (ash 1 numbits)
for r = (- (random (+ bound bound)) bound)
......@@ -29,7 +31,7 @@
nconc (randomly-check-readability (complex r i)))
nil)
(deftest print-complex.random.2
(deftest print.complex.random.2
(loop for numbits = (random 40)
for bound = (ash 1 numbits)
for num1 = (- (random (+ bound bound)) bound)
......@@ -44,13 +46,7 @@
nil)
;; General floating point complex printing tests will go here
......
......@@ -9,8 +9,9 @@
`(deftest ,name
(equalpt
(with-standard-io-syntax
(let ,bindings
(with-output-to-string (*standard-output*) (prin1 ,form))))
(let ((*print-readably* nil))
(let ,bindings
(with-output-to-string (*standard-output*) (prin1 ,form)))))
,result)
t))
......
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