39 lines
1.2 KiB
Plaintext
39 lines
1.2 KiB
Plaintext
;; Function To Be Tested: pprint
|
|
;;
|
|
;; Source: CLtL p. 383
|
|
;;
|
|
;; Chapter 22: Input/Output Section 3.1: Output to Character Streams
|
|
;;
|
|
;; Created By: Peter Reidy
|
|
;;
|
|
;; Creation Date: 2 December 86
|
|
;;
|
|
;; Last Update:
|
|
;;
|
|
;; Filed As: {eris}<lispcore>cml>test>22-3-1-pprint.test
|
|
;;
|
|
;; Syntax: pprint object &optional output-stream
|
|
;;
|
|
;; Function Description: outputs object to output-stream (default: *standard-output*) as if *print-pretty* were true. Returns no values.
|
|
;;
|
|
;; Argument(s): object - a cml object
|
|
;; output-stream - a stream
|
|
;;
|
|
(do-test-group (pprint-group
|
|
:before (test-setq deep '(A(B(C(D(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z)))))))))))))))))))))))))))
|
|
) ; pprint-group
|
|
(do-test pprint-test
|
|
(and
|
|
(null (pprint deep))
|
|
(let ((stream (open 'file :direction :output :if-exists :new-version :if-does-not-exist :create :element-type 'unsigned-byte)))
|
|
(prog1 (null (pprint deep stream)) (close stream))
|
|
) ; let
|
|
(let ((stream (open 'file :direction :input :element-type 'unsigned-byte)))
|
|
(prog1 (read stream) (close stream) (delete-file 'file))
|
|
) ; let
|
|
) ; and
|
|
) ; do-test pprint-test
|
|
) ; do-test-group
|
|
STOP
|
|
|