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