/[gcl]/gcl/ansi-tests/format-r.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-r.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sat Aug 7 23:02:26 2004 UTC revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 24  Line 24 
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
# Line 113  Line 111 
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
# Line 127  Line 123 
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
# Line 171  Line 164 
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"
# Line 271  Line 262 
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
# Line 292  Line 280 
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    
# Line 372  Line 347 
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)
                 

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26