From 0f35d755bdec39680a8231727d0fa3dd3a174502 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sat, 5 Nov 2016 21:28:53 +0100 Subject: [PATCH] Add regression tests for cdr-7 --- src/tests/regressions/ansi.lsp | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/src/tests/regressions/ansi.lsp b/src/tests/regressions/ansi.lsp index 7766aee9e..fb4fad3ed 100644 --- a/src/tests/regressions/ansi.lsp +++ b/src/tests/regressions/ansi.lsp @@ -61,7 +61,36 @@ "/tmp/prog/documentation.lisp"))) +;;;;;;;;;;;;;;;;;;;;;;;;; +;; 22.* Format tests ;; +;;;;;;;;;;;;;;;;;;;;;;;;; +(defun fmt (stream argument colonp atsignp &rest params) + (declare (ignore argument colonp atsignp)) + (format stream "~S~%" params)) +;;; Tests for CDR 7 +;;; See: https://common-lisp.net/project/cdr/document/7/index.html +(test ansi.22.cdr-7 + ;; trailing commas + (let ((expected (format nil "(1 2)~%"))) + (is-equal expected (format nil "~1,2/fmt/" t)) + (is-equal expected (format nil "~1,2,/fmt/" t)) + (is-equal expected (format nil "~1,2:/fmt/" t)) + (is-equal expected (format nil "~1,2,:/fmt/" t))) + ;; final V parameters + (let ((expected-1 (format nil "(1 T)~%")) + (expected-2 (format nil "(1 NIL)~%"))) + (is-equal expected-1 (format nil "~1,v/fmt/" t t)) + (is-equal expected-1 (format nil "~1,v,/fmt/" t t)) + (is-equal expected-1 (format nil "~1,v:/fmt/" t t)) + (is-equal expected-1 (format nil "~1,v,:/fmt/" t t)) + + (is-equal expected-2 (format nil "~1,v/fmt/" nil t)) + (is-equal expected-2 (format nil "~1,v,/fmt/" nil t)) + (is-equal expected-2 (format nil "~1,v:/fmt/" nil t)) + (is-equal expected-2 (format nil "~1,v,:/fmt/" nil t)))) + + ;;;;;;;;;;;;;;;;;;;;;;; ;; 23.* Reader tests ;; ;;;;;;;;;;;;;;;;;;;;;;;