12 |
(deftest format.%.2 |
(deftest format.%.2 |
13 |
(loop for i from 0 to 100 |
(loop for i from 0 to 100 |
14 |
for s1 = (make-string i :initial-element #\Newline) |
for s1 = (make-string i :initial-element #\Newline) |
15 |
for s2 = (format nil (format nil "~~~D%" i)) |
for format-string = (format nil "~~~D%" i) |
16 |
unless (string= s1 s2) |
for s2 = (format nil format-string) |
17 |
|
for fn = (eval `(formatter ,s2)) |
18 |
|
for s3 = (formatter-call-to-string fn) |
19 |
|
unless (and (string= s1 s2) (string= s1 s3)) |
20 |
collect i) |
collect i) |
21 |
nil) |
nil) |
22 |
|
|
34 |
collect i) |
collect i) |
35 |
nil) |
nil) |
36 |
|
|
37 |
|
(deftest formatter.%.5 |
38 |
|
(let ((fn (formatter "~v%"))) |
39 |
|
(loop for i from 0 to 100 |
40 |
|
for s1 = (make-string i :initial-element #\Newline) |
41 |
|
for s2 = (formatter-call-to-string fn i) |
42 |
|
unless (string= s1 s2) |
43 |
|
collect i)) |
44 |
|
nil) |
45 |
|
|
46 |
(deftest format.%.6 |
(deftest format.%.6 |
47 |
(loop for i from 0 to (min (- call-arguments-limit 3) 100) |
(loop for i from 0 to (min (- call-arguments-limit 3) 100) |
48 |
for args = (make-list i) |
for args = (make-list i) |
51 |
unless (string= s1 s2) |
unless (string= s1 s2) |
52 |
collect i) |
collect i) |
53 |
nil) |
nil) |
54 |
|
|
55 |
|
(deftest formatter.%.6 |
56 |
|
(let ((fn (formatter "~#%"))) |
57 |
|
(loop for i from 0 to (min (- call-arguments-limit 3) 100) |
58 |
|
for args = (make-list i) |
59 |
|
for s1 = (make-string i :initial-element #\Newline) |
60 |
|
for s2 = (with-output-to-string |
61 |
|
(stream) |
62 |
|
(assert (equal (apply fn stream args) args))) |
63 |
|
unless (string= s1 s2) |
64 |
|
collect i)) |
65 |
|
nil) |