From 79dc3ce2f67800bcdb6ebeeb9dbce30a98a77133 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 21 Aug 2004 14:51:42 +0000 Subject: [PATCH] Added tests for ~I format directive. --- ansi-tests/format-i.lsp | 92 ++++++++++++++++++++++++++++++++++++++ ansi-tests/load-format.lsp | 4 +- 2 files changed, 93 insertions(+), 3 deletions(-) create mode 100644 ansi-tests/format-i.lsp diff --git a/ansi-tests/format-i.lsp b/ansi-tests/format-i.lsp new file mode 100644 index 00000000..a58124eb --- /dev/null +++ b/ansi-tests/format-i.lsp @@ -0,0 +1,92 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Aug 21 07:01:36 2004 +;;;; Contains: Tests for the ~I format directive + +(in-package :cl-test) + +(compile-and-load "printer-aux.lsp") + +;;; pprint-indent.9 +(def-pprint-test format.i.1 + (format nil "~<M~3:i~:@_M~:>" '(M M)) + "M + M") + +;;; See pprint-indent.10 +(def-pprint-test format.i.2 + (format nil "~:<M~1:I~@:_M~:>" '(M M)) + "(M + M)") + +;;; See pprint-indent.11 +(def-pprint-test format.i.3 + (format nil "~<(~;M~-1:i~:@_M~;)~:>" '(M M)) + "(M + M)") + +(def-pprint-test format.i.4 + (format nil "~:<M~-1:i~:@_M~:>" '(M M)) + "(M + M)") + +(def-pprint-test format.i.5 + (format nil "~<(~;M~:I~:@_M~;)~:>" '(M M)) + "(M + M)") + +(def-pprint-test format.i.6 + (format nil "~<(~;M~v:i~:@_M~;)~:>" '(nil)) + "(M + M)") + +(def-pprint-test format.i.7 + (format nil "~:<M~-2:i~:@_M~:>" '(M M)) + "(M +M)") + +(def-pprint-test format.i.8 + (format nil "~<M~:i~:@_M~:>" '(M M)) + "M + M") + +;;; See pprint-indent.13 +(def-pprint-test format.i.9 + (format nil "~<MMM~I~:@_MMMMM~:>" '(M M)) + "MMM +MMMMM") + +(def-pprint-test format.i.10 + (format nil "~:<MMM~I~:@_MMMMM~:>" '(M M)) + "(MMM + MMMMM)") + +(def-pprint-test format.i.11 + (format nil "~<MMM~1I~:@_MMMMM~:>" '(M M)) + "MMM + MMMMM") + +(def-pprint-test format.i.12 + (format nil "XXX~<MMM~1I~:@_MMMMM~:>" '(M M)) + "XXXMMM + MMMMM") + +(def-pprint-test format.i.13 + (format nil "XXX~<MMM~I~:@_MMMMM~:>" '(M M)) + "XXXMMM + MMMMM") + +(def-pprint-test format.i.14 + (format nil "XXX~<MMM~-1I~:@_MMMMM~:>" '(M M)) + "XXXMMM + MMMMM") + +(def-pprint-test format.i.15 + (format nil "XXX~<MMM~vI~:@_MMMMM~:>" '(nil)) + "XXXMMM + MMMMM") + +(def-pprint-test format.i.16 + (format nil "XXX~<MMM~vI~:@_MMMMM~:>" '(2)) + "XXXMMM + MMMMM") diff --git a/ansi-tests/load-format.lsp b/ansi-tests/load-format.lsp index 637f5dc7..7a1012e2 100644 --- a/ansi-tests/load-format.lsp +++ b/ansi-tests/load-format.lsp @@ -31,6 +31,4 @@ ;;; 22.3.5 (load "format-underscore.lsp") (load "format-logical-block.lsp") - - - +(load "format-i.lsp") -- GitLab