From 69f2d12e84824c4c502827d737981be182dd4a45 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 24 Aug 2004 12:24:39 +0000 Subject: [PATCH] Begin adding tests for ~* directives. --- ansi-tests/format-goto.lsp | 104 +++++++++++++++++++++++++++++++++++++ ansi-tests/load-format.lsp | 3 ++ 2 files changed, 107 insertions(+) create mode 100644 ansi-tests/format-goto.lsp diff --git a/ansi-tests/format-goto.lsp b/ansi-tests/format-goto.lsp new file mode 100644 index 00000000..0d89dbf3 --- /dev/null +++ b/ansi-tests/format-goto.lsp @@ -0,0 +1,104 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Tue Aug 24 06:56:13 2004 +;;;; Contains: Tests of the ~* format directive + +(in-package :cl-test) + +(compile-and-load "printer-aux.lsp") + +;;; ~* + +(deftest format.*.1 + (format nil "~A~*~A" 1 2 3) + "13") + +(deftest format.*.2 + (format nil "~A~0*~A" 1 2 3) + "12") + +(deftest format.*.3 + (format nil "~A~v*~A" 1 0 2) + "12") + +(deftest format.*.4 + (format nil "~A~v*~A" 1 1 2 3) + "13") + +(deftest format.*.5 + (format nil "~A~v*~A" 1 nil 2 3) + "13") + +(deftest format.*.6 + (format nil "~A~1{~A~*~A~}~A" 0 '(1 2 3) 4) + "0134") + +(deftest format.*.7 + (format nil "~A~1{~A~0*~A~}~A" 0 '(1 2 3) 4) + "0124") + +(deftest format.*.8 + (format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7) + "013467") + +;;; ~:* + +(deftest format.\:*.1 + (format nil "~A~:*~A" 1 2 3) + "11") + +(deftest format.\:*.2 + (format nil "~A~A~:*~A" 1 2 3) + "122") + +(deftest format.\:*.3 + (format nil "~A~A~0:*~A" 1 2 3) + "123") + +(deftest format.\:*.4 + (format nil "~A~A~2:*~A" 1 2 3) + "121") + +(deftest format.\:*.5 + (format nil "~A~A~v:*~A" 1 2 0 3) + "123") + +(deftest format.\:*.6 + (format nil "~A~A~v:*~A" 6 7 2 3) + "677") + +(def-pprint-test format.\:*.7 + (format nil "~A~A~v:*~A" 6 7 nil 3) + "67NIL") + +;;; ~@* + +(deftest format.@*.1 + (format nil "~A~A~@*~A~A" 1 2 3 4) + "1212") + +(deftest format.@*.2 + (format nil "~A~A~1@*~A~A" 1 2 3 4) + "1223") + +(deftest format.@*.3 + (format nil "~A~A~2@*~A~A" 1 2 3 4) + "1234") + +(deftest format.@*.4 + (format nil "~A~A~3@*~A~A" 1 2 3 4 5) + "1245") + +(deftest format.@*.5 + (format nil "~A~A~v@*~A~A" 1 2 nil 3 4) + "1212") + +(deftest format.@*.6 + (format nil "~A~A~v@*~A~A" 1 2 1 3 4) + "1221") + +(deftest format.@*.7 + (format nil "~A~A~v@*~A~A" 6 7 2 3 4) + "6723") + + diff --git a/ansi-tests/load-format.lsp b/ansi-tests/load-format.lsp index fefdfb15..b7bb9620 100644 --- a/ansi-tests/load-format.lsp +++ b/ansi-tests/load-format.lsp @@ -37,3 +37,6 @@ ;;; 22.3.6 (load "format-t.lsp") (load "format-justify.lsp") + +;;; 22.3.7 +(load "format-goto.lsp") -- GitLab