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