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