From 60ae412489c53722c19c9c1a9bd8e1617a5e818e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 22 Aug 2004 23:56:41 +0000
Subject: [PATCH] Begin adding tests for ~< ~> (justification)

---
 ansi-tests/format-justify.lsp | 56 +++++++++++++++++++++++++++++++++++
 ansi-tests/load-format.lsp    |  1 +
 2 files changed, 57 insertions(+)
 create mode 100644 ansi-tests/format-justify.lsp

diff --git a/ansi-tests/format-justify.lsp b/ansi-tests/format-justify.lsp
new file mode 100644
index 00000000..b646c91b
--- /dev/null
+++ b/ansi-tests/format-justify.lsp
@@ -0,0 +1,56 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sun Aug 22 18:09:49 2004
+;;;; Contains: Tests of the ~< ~> directive
+
+(in-package :cl-test)
+
+(compile-and-load "printer-aux.lsp")
+
+(def-pprint-test format.justify.1
+  (format nil "~<~>")
+  "")
+
+(def-pprint-test format.justify.2
+  (loop for i from 1 to 20
+	for s1 = (make-string i :initial-element #\x)
+	for s2 = (format nil "~<~A~>" s1)
+	unless (string= s1 s2)
+	collect (list i s1 s2))
+  nil)
+
+(def-pprint-test format.justify.3
+  (loop for i from 1 to 20
+	for s1 = (make-string i :initial-element #\x)
+	for s2 = (format nil "~<~A~;~A~>" s1 s1)
+	unless (string= s2 (concatenate 'string s1 s1))
+	collect (list i s1 s2))
+  nil)
+
+(def-pprint-test format.justify.4
+  (loop for i from 1 to 20
+	for s1 = (make-string i :initial-element #\x)
+	for expected = (concatenate 'string s1 " " s1)
+	for s2 = (format nil "~,,1<~A~;~A~>" s1 s1)
+	unless (string= s2 expected)
+	collect (list i expected s2))
+  nil)
+
+(def-pprint-test format.justify.5
+  (loop for i from 1 to 20
+	for s1 = (make-string i :initial-element #\x)
+	for expected = (concatenate 'string s1 "," s1)
+	for s2 = (format nil "~,,1,',<~A~;~A~>" s1 s1)
+	unless (string= s2 expected)
+	collect (list i expected s2))
+  nil)
+
+(def-pprint-test format.justify.6
+  (loop for i from 1 to 20
+	for s1 = (make-string i :initial-element #\x)
+	for expected = (concatenate 'string s1 "  " s1)
+	for s2 = (format nil "~,,2<~A~;~A~>" s1 s1)
+	unless (string= s2 expected)
+	collect (list i expected s2))
+  nil)
+
diff --git a/ansi-tests/load-format.lsp b/ansi-tests/load-format.lsp
index d9100428..fefdfb15 100644
--- a/ansi-tests/load-format.lsp
+++ b/ansi-tests/load-format.lsp
@@ -36,3 +36,4 @@
 
 ;;; 22.3.6
 (load "format-t.lsp")
+(load "format-justify.lsp")
-- 
GitLab