From 4db53d8f28a7ef4a13a11ac8d94118c5888e5599 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 3 Jul 2004 13:58:09 +0000 Subject: [PATCH] Begin adding tests of pprint-indent --- ansi-tests/load-printer.lsp | 1 + ansi-tests/pprint-indent.lsp | 48 ++++++++++++++++++++++++++++++++++++ 2 files changed, 49 insertions(+) create mode 100644 ansi-tests/pprint-indent.lsp diff --git a/ansi-tests/load-printer.lsp b/ansi-tests/load-printer.lsp index f4b074dc..8dafc86e 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 00000000..0f81b2a2 --- /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) + + + + + + + -- GitLab