Commit 4db53d8f authored by pfdietz's avatar pfdietz

Begin adding tests of pprint-indent

parent c26d3979
......@@ -29,3 +29,4 @@
(load "pprint-fill.lsp")
(load "pprint-linear.lsp")
(load "pprint-tabular.lsp")
(load "pprint-indent.lsp")
\ No newline at end of file
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Jul 3 08:50:40 2004
;;;; Contains: Tests of PPRINT-INDENT
(in-package :cl-test)
(deftest pprint-indent.1
(my-with-standard-io-syntax
(let ((*print-pretty* nil))
(with-open-stream (*standard-output* (make-string-output-stream))
(pprint-indent :block 0))))
nil)
(deftest pprint-indent.2
(my-with-standard-io-syntax
(let ((*print-pretty* nil))
(with-open-stream (*standard-output* (make-broadcast-stream))
(pprint-indent :current 0))))
nil)
(deftest pprint-indent.3
(my-with-standard-io-syntax
(let ((*print-pretty* nil))
(with-open-stream (s (make-string-output-stream))
(pprint-indent :current 10 s))))
nil)
(deftest pprint-indent.4
(my-with-standard-io-syntax
(let ((*print-pretty* nil))
(with-open-stream (s (make-string-output-stream))
(pprint-indent :block 1/2 s))))
nil)
(deftest pprint-indent.5
(my-with-standard-io-syntax
(let ((*print-pretty* nil))
(with-open-stream (s (make-string-output-stream))
(pprint-indent :block 0.1 s))))
nil)
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