31 |
("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" "")) |
("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" "")) |
32 |
|
|
33 |
(def-format-test format.cond.8 |
(def-format-test format.cond.8 |
34 |
"~0[a~;b~;c~;d~]" (3) "a") |
"~0[a~;b~;c~;d~]" (3) "a" 1) |
35 |
|
|
36 |
(def-format-test format.cond.9 |
(def-format-test format.cond.9 |
37 |
"~-1[a~;b~;c~;d~]" (3) "") |
"~-1[a~;b~;c~;d~]" (3) "" 1) |
38 |
|
|
39 |
(def-format-test format.cond.10 |
(def-format-test format.cond.10 |
40 |
"~1[a~;b~;c~;d~]" (3) "b") |
"~1[a~;b~;c~;d~]" (3) "b" 1) |
41 |
|
|
42 |
(def-format-test format.cond.11 |
(def-format-test format.cond.11 |
43 |
"~4[a~;b~;c~;d~]" (3) "") |
"~4[a~;b~;c~;d~]" (3) "" 1) |
44 |
|
|
45 |
(def-format-test format.cond.12 |
(def-format-test format.cond.12 |
46 |
"~100000000000000000000000000000000[a~;b~;c~;d~]" (3) "") |
"~100000000000000000000000000000000[a~;b~;c~;d~]" (3) "" 1) |
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 |
59 |
"~#[A~;B~]" nil "A") |
"~#[A~;B~]" nil "A") |
60 |
|
|
61 |
(def-format-test format.cond.16 |
(def-format-test format.cond.16 |
62 |
"~#[A~;B~]" (nil) "B") |
"~#[A~;B~]" (nil) "B" 1) |
63 |
|
|
64 |
;;; ~[ .~:; ~] |
;;; ~[ .~:; ~] |
65 |
|
|
98 |
"~#[A~:;B~]" nil "A") |
"~#[A~:;B~]" nil "A") |
99 |
|
|
100 |
(def-format-test format.cond\:.9 |
(def-format-test format.cond\:.9 |
101 |
"~#[A~:;B~]" (nil nil) "B") |
"~#[A~:;B~]" (nil nil) "B" 2) |
102 |
|
|
103 |
;;; ~:[...~] |
;;; ~:[...~] |
104 |
|
|