From 82df4892c3401ff075adb91304e4e3830e227c8e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 3 Jul 2004 14:16:37 +0000
Subject: [PATCH] Another test of pprint-indent (with various floats as the
 indent parameter)

---
 ansi-tests/pprint-indent.lsp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/ansi-tests/pprint-indent.lsp b/ansi-tests/pprint-indent.lsp
index 0f81b2a2..6245467c 100644
--- a/ansi-tests/pprint-indent.lsp
+++ b/ansi-tests/pprint-indent.lsp
@@ -40,6 +40,20 @@
 		       (pprint-indent :block 0.1 s))))
   nil)
 
+(deftest pprint-indent.6
+  (my-with-standard-io-syntax
+   (let ((*print-pretty* nil))
+     (loop for x in '(1.0s0 1.0f0 1.0d0 1.0l0)
+	   unless
+	   (equal
+	    (multiple-value-list
+	     (with-open-stream (s (make-string-output-stream))
+			       (pprint-indent :block x s)))
+	    '(nil))
+	   collect x)))
+  nil)
+
+
 
 
 
-- 
GitLab