diff --git a/ansi-tests/load-printer.lsp b/ansi-tests/load-printer.lsp index f4b074dc7e00d02ffe4d0a00798cfeb38e3a46b0..8dafc86ea2fd0897ad566b5a282f7b6a1980772b 100644 --- a/ansi-tests/load-printer.lsp +++ b/ansi-tests/load-printer.lsp @@ -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 diff --git a/ansi-tests/pprint-indent.lsp b/ansi-tests/pprint-indent.lsp new file mode 100644 index 0000000000000000000000000000000000000000..0f81b2a2a2756d19988219c07dd318122b4d0f9c --- /dev/null +++ b/ansi-tests/pprint-indent.lsp @@ -0,0 +1,48 @@ +;-*- 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) + + + + + + +