mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 13:31:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

Add regression tests for cdr-7

Browse source
This commit is contained in:
Daniel Kochmański 2016-11-05 21:28:53 +01:00
parent ff00f80ace
commit 0f35d755bd
1 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/tests/regressions/ansi.lsp
View file

@ -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 ;;
;;;;;;;;;;;;;;;;;;;;;;;