5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest format.page.1 |
(def-format-test format.page.1 |
9 |
(format nil "~0|") |
"~0|" nil "") |
|
"") |
|
10 |
|
|
11 |
(deftest format.page.2 |
(deftest format.page.2 |
12 |
(let ((s (format nil "~|"))) |
(let ((s (format nil "~|"))) |
36 |
collect i))))) |
collect i))))) |
37 |
nil) |
nil) |
38 |
|
|
39 |
(deftest format.page.4 |
(def-format-test format.page.4 |
40 |
(format nil "~V|" 0) |
"~V|" (0) "") |
|
"") |
|
|
|
|
|
(deftest format.page.5 |
|
|
(string=t (format nil "~v|" nil) |
|
|
(format nil "~|")) |
|
|
t) |
|
41 |
|
|
42 |
|
(def-format-test format.page.5 |
43 |
|
"~v|" (nil) #.(format nil "~|")) |