From 8ebd99d74344b1c87a755b8862a8b478f8c7599f Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 24 Aug 2004 01:13:25 +0000
Subject: [PATCH] More ~< ~> tests

---
 ansi-tests/format-justify.lsp | 58 ++++++++++++++++++++++++++++++++++-
 1 file changed, 57 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/format-justify.lsp b/ansi-tests/format-justify.lsp
index 9a551334..36ea4c7a 100644
--- a/ansi-tests/format-justify.lsp
+++ b/ansi-tests/format-justify.lsp
@@ -169,4 +169,60 @@
 
 (def-pprint-test format.justify.21
   (format nil "~6:<~>")
-  "      ")
\ No newline at end of file
+  "      ")
+
+(def-pprint-test format.justify.22
+  (format nil "~v<~A~>" nil "XYZ")
+  "XYZ")
+
+(def-pprint-test format.justify.23
+  (format nil "~,v<~A~;~A~>" nil "ABC" "DEF")
+  "ABCDEF")
+
+(def-pprint-test format.justify.24
+  (format nil "~,,v<~A~;~A~>" nil "ABC" "DEF")
+  "ABCDEF")
+
+(def-pprint-test format.justify.25
+  (format nil "~,,1,v<~A~;~A~>" nil "ABC" "DEF")
+  "ABC DEF")
+
+(def-pprint-test format.justify.26
+  (format nil "~,,1,v<~A~;~A~>" #\, "ABC" "DEF")
+  "ABC,DEF")
+
+(def-pprint-test format.justify.27
+  (format nil "~6<abc~;def~^~>")
+  "   abc")
+
+(def-pprint-test format.justify.28
+  (format nil "~6@<abc~;def~^~>")
+  "abc   ")
+
+;;; ~:; tests
+
+(def-pprint-test format.justify.29
+  (format nil "~%X ~,,1<~%X ~:;AAA~;BBB~;CCC~>")
+  "
+X AAA BBB CCC")
+
+(def-pprint-test format.justify.30
+  (format nil "~%X ~<~%X ~0,3:;AAA~>~<~%X ~0,3:;BBB~>~<~%X ~0,3:;CCC~>")
+  "
+X 
+X AAA
+X BBB
+X CCC")
+
+(def-pprint-test format.justify.31
+  (format nil "~%X ~<~%X ~0,30:;AAA~>~<~%X ~0,30:;BBB~>~<~%X ~0,30:;CCC~>")
+  "
+X AAABBBCCC")
+
+(def-pprint-test format.justify.32
+  (format nil "~%X ~<~%X ~0,3:;AAA~>,~<~%X ~0,3:;BBB~>,~<~%X ~0,3:;CCC~>")
+  "
+X 
+X AAA,
+X BBB,
+X CCC")
-- 
GitLab