24 |
collect (list i x s1 s2))) |
collect (list i x s1 s2))) |
25 |
nil) |
nil) |
26 |
|
|
27 |
(deftest format.r.2 |
(def-format-test format.r.2 |
28 |
(format nil "~2r" 14) |
"~2r" (14) "1110") |
29 |
"1110") |
|
30 |
|
(def-format-test format.r.3 |
31 |
(deftest format.r.3 |
"~3r" (29) "1002") |
|
(format nil "~3r" 29) |
|
|
"1002") |
|
32 |
|
|
33 |
(deftest format.r.4 |
(deftest format.r.4 |
34 |
(loop for base from 2 to 36 |
(loop for base from 2 to 36 |
111 |
collect (list i s1 s3 s4)) |
collect (list i s1 s3 s4)) |
112 |
nil) |
nil) |
113 |
|
|
114 |
(deftest format.r.8 |
(def-format-test format.r.8 |
115 |
(format nil "~vr" nil 5) |
"~vr" (nil 5) "five") |
116 |
"five") |
|
117 |
|
(def-format-test format.r.9 |
118 |
(deftest format.r.9 |
"~#r" (4 nil nil) "11") |
|
(format nil "~#r" 4 nil nil) |
|
|
"11") |
|
119 |
|
|
120 |
(deftest format.r.10 |
(deftest format.r.10 |
121 |
(with-standard-io-syntax |
(with-standard-io-syntax |
123 |
(format nil "~10r" 123))) |
(format nil "~10r" 123))) |
124 |
"123") |
"123") |
125 |
|
|
126 |
(deftest format.r.11 |
(def-format-test format.r.11 |
127 |
(format nil "~8@R" 65) |
"~8@R" (65) "+101") |
128 |
"+101") |
|
129 |
|
(def-format-test format.r.12 |
130 |
(deftest format.r.12 |
"~2:r" (126) "1,111,110") |
131 |
(format nil "~2:r" 126) |
|
132 |
"1,111,110") |
(def-format-test format.r.13 |
133 |
|
"~3@:r" (#3r2120012102) "+2,120,012,102") |
|
(deftest format.r.13 |
|
|
(format nil "~3@:r" #3r2120012102) |
|
|
"+2,120,012,102") |
|
134 |
|
|
135 |
(deftest format.r.14 |
(deftest format.r.14 |
136 |
(loop |
(loop |
164 |
collect (list i interval comma x s1 y)) |
collect (list i interval comma x s1 y)) |
165 |
nil) |
nil) |
166 |
|
|
167 |
(deftest format.r.16 |
(def-format-test format.r.16 |
168 |
(format nil "~2,,,,1000000000000000000r" 17) |
"~2,,,,1000000000000000000r" (17) "10001") |
169 |
"10001") |
|
170 |
|
(def-format-test format.r.17 |
171 |
(deftest format.r.17 |
"~8,10:@r" (#o526104) " +526,104") |
|
(format nil "~8,10:@r" #o526104) |
|
|
" +526,104") |
|
172 |
|
|
173 |
(defparameter *english-ordinal-names* |
(defparameter *english-ordinal-names* |
174 |
'("zeroth" |
'("zeroth" |
262 |
|
|
263 |
;; Combinations of mincol and comma chars |
;; Combinations of mincol and comma chars |
264 |
|
|
265 |
(deftest format.r.22 |
(def-format-test format.r.22 |
266 |
(format nil "~2,12,,'*:r" #b1011101) |
"~2,12,,'*:r" (#b1011101) " 1*011*101") |
267 |
" 1*011*101") |
|
268 |
|
(def-format-test format.r.23 |
269 |
(deftest format.r.23 |
"~3,14,'X,',:R" (#3r1021101) "XXXXX1,021,101") |
|
(format nil "~3,14,'X,',:R" #3r1021101) |
|
|
"XXXXX1,021,101") |
|
270 |
|
|
271 |
;; v directive in various positions |
;; v directive in various positions |
272 |
|
|
273 |
(deftest format.r.24 |
(def-format-test format.r.24 |
274 |
(format nil "~10,vr" nil 12345) |
"~10,vr" (nil 12345) "12345") |
|
"12345") |
|
275 |
|
|
276 |
(deftest format.r.25 |
(deftest format.r.25 |
277 |
(loop for i from 0 to 5 |
(loop for i from 0 to 5 |
280 |
collect (list i s)) |
collect (list i s)) |
281 |
nil) |
nil) |
282 |
|
|
283 |
(deftest format.r.26 |
(def-format-test format.r.26 |
284 |
(format nil "~10,#r" 12345 nil nil nil nil nil) |
"~10,#r" (12345 nil nil nil nil nil) " 12345") |
285 |
" 12345") |
|
286 |
|
(def-format-test format.r.27 |
287 |
(deftest format.r.27 |
"~10,12,vr" (#\/ 123456789) "///123456789") |
288 |
(format nil "~10,12,vr" #\/ 123456789) |
|
289 |
"///123456789") |
(def-format-test format.r.28 |
290 |
|
"~10,,,v:r" (#\/ 123456789) "123/456/789") |
291 |
(deftest format.r.28 |
|
292 |
(format nil "~10,,,v:r" #\/ 123456789) |
(def-format-test format.r.29 |
293 |
"123/456/789") |
"~10,,,v:r" (nil 123456789) "123,456,789") |
294 |
|
|
295 |
(deftest format.r.29 |
(def-format-test format.r.30 |
296 |
(format nil "~10,,,v:r" nil 123456789) |
"~8,,,,v:R" (nil #o12345670) "12,345,670") |
297 |
"123,456,789") |
|
298 |
|
(def-format-test format.r.31 |
299 |
(deftest format.r.30 |
"~8,,,,v:R" (2 #o12345670) "12,34,56,70") |
300 |
(format nil "~8,,,,v:R" nil #o12345670) |
|
301 |
"12,345,670") |
(def-format-test format.r.32 |
302 |
|
"~16,,,,#:r" (#x12345670 nil nil nil) "1234,5670") |
303 |
(deftest format.r.31 |
|
304 |
(format nil "~8,,,,v:R" 2 #o12345670) |
(def-format-test format.r.33 |
305 |
"12,34,56,70") |
"~16,,,,1:r" (#x12345670) "1,2,3,4,5,6,7,0") |
|
|
|
|
(deftest format.r.32 |
|
|
(format nil "~16,,,,#:r" #x12345670 nil nil nil) |
|
|
"1234,5670") |
|
|
|
|
|
(deftest format.r.33 |
|
|
(format nil "~16,,,,1:r" #x12345670) |
|
|
"1,2,3,4,5,6,7,0") |
|
306 |
|
|
307 |
;;; Explicit signs |
;;; Explicit signs |
308 |
|
|
309 |
(deftest format.r.34 |
(def-format-test format.r.34 |
310 |
(format nil "~+10r" 12345) |
"~+10r" (12345) "12345") |
311 |
"12345") |
|
312 |
|
(def-format-test format.r.35 |
313 |
(deftest format.r.35 |
"~10,+8r" (12345) " 12345") |
314 |
(format nil "~10,+8r" 12345) |
|
315 |
" 12345") |
(def-format-test format.r.36 |
316 |
|
"~10,0r" (12345) "12345") |
317 |
(deftest format.r.36 |
|
318 |
(format nil "~10,0r" 12345) |
(def-format-test format.r.37 |
319 |
"12345") |
"~10,-1r" (12345) "12345") |
320 |
|
|
321 |
(deftest format.r.37 |
(def-format-test format.r.38 |
322 |
(format nil "~10,-1r" 12345) |
"~10,-1000000000000000r" (12345) "12345") |
|
"12345") |
|
|
|
|
|
(deftest format.r.38 |
|
|
(format nil "~10,-1000000000000000r" 12345) |
|
|
"12345") |
|
323 |
|
|
324 |
;;; Randomized test |
;;; Randomized test |
325 |
|
|
347 |
unless (string= s1 s2) |
unless (string= s1 s2) |
348 |
collect (list radix mincol padchar commachar commaint fmt x s1 s2)) |
collect (list radix mincol padchar commachar commaint fmt x s1 s2)) |
349 |
nil) |
nil) |
|
|
|