5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest format.~.1 |
(def-format-test format.~.1 |
9 |
(format nil "~~") |
"~~" nil "~") |
|
"~") |
|
10 |
|
|
11 |
(deftest format.~.2 |
(deftest format.~.2 |
12 |
(loop for i from 0 to 100 |
(loop for i from 0 to 100 |
16 |
collect (list i s s2)) |
collect (list i s s2)) |
17 |
nil) |
nil) |
18 |
|
|
19 |
(deftest format.~.3 |
(def-format-test format.~.3 |
20 |
(format nil "~v~" 0) |
"~v~" (0) "") |
|
"") |
|
21 |
|
|
22 |
(deftest format.~.4 |
(deftest format.~.4 |
23 |
(loop for i from 0 to 100 |
(loop for i from 0 to 100 |
35 |
unless (string= s s2) |
unless (string= s s2) |
36 |
collect (list i s s2)) |
collect (list i s s2)) |
37 |
nil) |
nil) |
|
|
|