7 |
|
|
8 |
(compile-and-load "printer-aux.lsp") |
(compile-and-load "printer-aux.lsp") |
9 |
|
|
10 |
(deftest format.cond.1 |
(def-format-test format.cond.1 |
11 |
(format nil "~[~]" 0) |
"~[~]" (0) "") |
12 |
"") |
|
13 |
|
(def-format-test format.cond.2 |
14 |
(deftest format.cond.2 |
"~[a~]" (0) "a") |
15 |
(format nil "~[a~]" 0) |
|
16 |
"a") |
(def-format-test format.cond.3 |
17 |
|
"~[a~]" (-1) "") |
18 |
(deftest format.cond.3 |
|
19 |
(format nil "~[a~]" -1) |
(def-format-test format.cond.4 |
20 |
"") |
"~[a~]" ((1- most-negative-fixnum)) "") |
21 |
|
|
22 |
(deftest format.cond.4 |
(def-format-test format.cond.5 |
23 |
(format nil "~[a~]" (1- most-negative-fixnum)) |
"~[a~]" (1) "") |
24 |
"") |
|
25 |
|
(def-format-test format.cond.6 |
26 |
(deftest format.cond.5 |
"~[a~]" ((1+ most-positive-fixnum)) "") |
|
(format nil "~[a~]" 1) |
|
|
"") |
|
|
|
|
|
(deftest format.cond.6 |
|
|
(format nil "~[a~]" (1+ most-positive-fixnum)) |
|
|
"") |
|
27 |
|
|
28 |
(deftest format.cond.7 |
(deftest format.cond.7 |
29 |
(loop for i from -1 to 10 |
(loop for i from -1 to 10 |
30 |
collect (format nil "~[a~;b~;c~;d~;e~;f~;g~;h~;i~]" i)) |
collect (format nil "~[a~;b~;c~;d~;e~;f~;g~;h~;i~]" i)) |
31 |
("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" "")) |
("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" "")) |
32 |
|
|
33 |
(deftest format.cond.8 |
(def-format-test format.cond.8 |
34 |
(format nil "~0[a~;b~;c~;d~]" 3) |
"~0[a~;b~;c~;d~]" (3) "a") |
35 |
"a") |
|
36 |
|
(def-format-test format.cond.9 |
37 |
(deftest format.cond.9 |
"~-1[a~;b~;c~;d~]" (3) "") |
38 |
(format nil "~-1[a~;b~;c~;d~]" 3) |
|
39 |
"") |
(def-format-test format.cond.10 |
40 |
|
"~1[a~;b~;c~;d~]" (3) "b") |
41 |
(deftest format.cond.10 |
|
42 |
(format nil "~1[a~;b~;c~;d~]" 3) |
(def-format-test format.cond.11 |
43 |
"b") |
"~4[a~;b~;c~;d~]" (3) "") |
44 |
|
|
45 |
(deftest format.cond.11 |
(def-format-test format.cond.12 |
46 |
(format nil "~4[a~;b~;c~;d~]" 3) |
"~100000000000000000000000000000000[a~;b~;c~;d~]" (3) "") |
|
"") |
|
|
|
|
|
(deftest format.cond.12 |
|
|
(format nil "~100000000000000000000000000000000[a~;b~;c~;d~]" 3) |
|
|
"") |
|
47 |
|
|
48 |
(deftest format.cond.13 |
(deftest format.cond.13 |
49 |
(loop for i from -1 to 10 |
(loop for i from -1 to 10 |
55 |
collect (format nil "~v[a~;b~;c~;d~;e~;f~;g~;h~;i~]" nil i)) |
collect (format nil "~v[a~;b~;c~;d~;e~;f~;g~;h~;i~]" nil i)) |
56 |
("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" "")) |
("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" "")) |
57 |
|
|
58 |
(deftest format.cond.15 |
(def-format-test format.cond.15 |
59 |
(format nil "~#[A~;B~]") |
"~#[A~;B~]" nil "A") |
60 |
"A") |
|
61 |
|
(def-format-test format.cond.16 |
62 |
(deftest format.cond.16 |
"~#[A~;B~]" (nil) "B") |
|
(format nil "~#[A~;B~]" nil) |
|
|
"B") |
|
63 |
|
|
64 |
;;; ~[ .~:; ~] |
;;; ~[ .~:; ~] |
65 |
|
|
70 |
collect (list i s)) |
collect (list i s)) |
71 |
nil) |
nil) |
72 |
|
|
73 |
(deftest format.cond\:.2 |
(def-format-test format.cond\:.2 |
74 |
(format nil "~[a~:;b~]" 0) |
"~[a~:;b~]" (0) "a") |
75 |
"a") |
|
76 |
|
(def-format-test format.cond\:.3 |
77 |
(deftest format.cond\:.3 |
"~[a~:;b~]" ((1- most-negative-fixnum)) "b") |
78 |
(format nil "~[a~:;b~]" (1- most-negative-fixnum)) |
|
79 |
"b") |
(def-format-test format.cond\:.4 |
80 |
|
"~[a~:;b~]" ((1+ most-positive-fixnum)) "b") |
|
(deftest format.cond\:.4 |
|
|
(format nil "~[a~:;b~]" (1+ most-positive-fixnum)) |
|
|
"b") |
|
81 |
|
|
82 |
(deftest format.cond\:.5 |
(deftest format.cond\:.5 |
83 |
(loop for i from -1 to 10 |
(loop for i from -1 to 10 |
94 |
collect (format nil "~v[a~;b~;c~;d~:;e~]" nil i)) |
collect (format nil "~v[a~;b~;c~;d~:;e~]" nil i)) |
95 |
("e" "a" "b" "c" "d" "e" "e" "e" "e" "e" "e" "e")) |
("e" "a" "b" "c" "d" "e" "e" "e" "e" "e" "e" "e")) |
96 |
|
|
97 |
(deftest format.cond\:.8 |
(def-format-test format.cond\:.8 |
98 |
(format nil "~#[A~:;B~]") |
"~#[A~:;B~]" nil "A") |
99 |
"A") |
|
100 |
|
(def-format-test format.cond\:.9 |
101 |
(deftest format.cond\:.9 |
"~#[A~:;B~]" (nil nil) "B") |
|
(format nil "~#[A~:;B~]" nil nil) |
|
|
"B") |
|
102 |
|
|
103 |
;;; ~:[...~] |
;;; ~:[...~] |
104 |
|
|
105 |
(deftest format.\:cond.1 |
(def-format-test format.\:cond.1 |
106 |
(format nil "~:[a~;b~]" nil) |
"~:[a~;b~]" (nil) "a") |
|
"a") |
|
107 |
|
|
108 |
(deftest format.\:cond.2 |
(deftest format.\:cond.2 |
109 |
(loop for x in *mini-universe* |
(loop for x in *mini-universe* |
114 |
|
|
115 |
;;; ~@[ ... ~] |
;;; ~@[ ... ~] |
116 |
|
|
117 |
(deftest format.@cond.1 |
(def-format-test format.@cond.1 |
118 |
(format nil "~@[X~]Y~A" 1) |
"~@[X~]Y~A" (1) "XY1") |
119 |
"XY1") |
|
120 |
|
(def-format-test format.@cond.2 |
121 |
(deftest format.@cond.2 |
"~@[X~]Y~A" (nil 2) "Y2") |
|
(format nil "~@[X~]Y~A" nil 2) |
|
|
"Y2") |
|