From 19b321916bbde9afaebfdd94723b3812d8487779 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 21 Aug 2004 11:48:40 +0000 Subject: [PATCH] More format logical block tests, involving per-line prefixes --- ansi-tests/format-logical-block.lsp | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/ansi-tests/format-logical-block.lsp b/ansi-tests/format-logical-block.lsp index e358b049..44a16fdd 100644 --- a/ansi-tests/format-logical-block.lsp +++ b/ansi-tests/format-logical-block.lsp @@ -235,6 +235,28 @@ "(1 2 3)" :margin 2) +(def-pprint-test format.logical-block.27 + (format nil "~@<**~@;~@{~A~^ ~}~:@>" 1 2 3) + "**1 +**2 +**3" + :margin 3) + +(def-pprint-test format.logical-block.28 + (format nil "~@<**~@;~@{~A~^ ~}~;XX~:@>" 1 2 3) + "**1 +**2 +**3XX" + :margin 3) + +(def-pprint-test format.logical-block.29 + (format nil "~:@<**~@;~@{~A~^ ~}~:@>" 1 2 3) + "**1 +**2 +**3)" + :margin 3) + + ;;; Circularity detection (def-pprint-test format.logical-block.circle.1 -- GitLab