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

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

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

revision 1.5 by pfdietz, Wed Nov 10 13:21:48 2004 UTC revision 1.6 by pfdietz, Wed Nov 10 14:54:59 2004 UTC
# Line 56  Line 56 
56    (format nil "~#{~A~}" '(1 2 3 4 5 6 7) nil nil nil)    (format nil "~#{~A~}" '(1 2 3 4 5 6 7) nil nil nil)
57    "1234")    "1234")
58    
 ;;; ~:{ ... ~}  
   
 (deftest format.\:{.1  
   (format nil "~:{(~A ~A)~}" '((1 2 3)(4 5)(6 7 8)))  
   "(1 2)(4 5)(6 7)")  
   
59  ;;; Tests of ~^ inside ~{ ... ~}  ;;; Tests of ~^ inside ~{ ... ~}
60    
61  (deftest format.{.10  (deftest format.{.10
# Line 92  Line 86 
86    (format nil "~1{~}" "~A" '(4 5 6))    (format nil "~1{~}" "~A" '(4 5 6))
87    "4")    "4")
88    
89    (deftest format.{.17
90      (format nil "~{~}" (formatter "") nil)
91      "")
92    
93    (deftest format.{.18
94      (format nil "~1{~}" (formatter "") '(1 2 3 4))
95      "")
96    
97    (deftest format.{.19
98      (format nil "~{~}" (formatter "~A") '(1 2 3 4))
99      "1234")
100    
101    (deftest format.{.20
102      (format nil "~3{~}" (formatter "~A") '(1 2 3 4))
103      "123")
104    
105    (deftest format.{.21
106      (format nil "~V{~}" 2 "~A" '(1 2 3 4 5))
107      "12")
108    
109    (deftest format.{.22
110      (format nil "~#{~}" "~A" '(1 2 3 4 5))
111      "12")
112    
113    (deftest format.{.23
114      (format nil "~{FOO~:}" nil)
115      "FOO")
116    
117    (deftest format.{.24
118      (format nil "~{~A~:}" '(1))
119      "1")
120    
121    (deftest format.{.25
122      (format nil "~{~A~:}" '(1 2))
123      "12")
124    
125    (deftest format.{.26
126      (format nil "~{~A~:}" '(1 2 3))
127      "123")
128    
129    (deftest format.{.27
130      (format nil "~0{FOO~:}" nil)
131      "")
132    
133    (deftest format.{.28
134      (format nil "~V{FOO~:}" 0 nil)
135      "")
136    
137    (deftest format.{.29
138      (format nil "~1{FOO~:}" nil)
139      "FOO")
140    
141    (deftest format.{.30
142      (format nil "~2{FOO~:}" nil)
143      "FOO")
144    
145    (deftest format.{.31
146      (format nil "~2{~
147    ~:}" nil)
148      "")
149    
150    (deftest format.{.32
151      (format nil "~2{FOO~}" nil)
152      "")
153    
154    (deftest format.{.33
155      (format nil "~v{~a~}" nil '(1 2 3 4 5 6 7))
156      "1234567")
157    
158    ;;; ~:{ ... ~}
159    
160    (deftest format.\:{.1
161      (format nil "~:{(~A ~A)~}" '((1 2 3)(4 5)(6 7 8)))
162      "(1 2)(4 5)(6 7)")
163    
164    (deftest format.\:{.2
165      (format nil "~:{~
166    ~}" nil)
167      "")
168    
169    (deftest format.\:{.3
170      (format nil "~:{~}" "" nil)
171      "")
172    
173    (deftest format.\:{.4
174      (format nil "~:{~}" "~A" nil)
175      "")
176    
177    (deftest format.\:{.5
178      (format nil "~:{~}" "X" '(nil (1 2) (3)))
179      "XXX")
180    
181    (deftest format.\:{.6
182      (format nil "~:{~}" (formatter "~A") '((1 2) (3) (4 5 6)))
183      "134")
184    
185    (deftest format.\:{.7
186      (format nil "~0:{XYZ~}" '((1)))
187      "")
188              
189    (deftest format.\:{.8
190      (format nil "~2:{XYZ~}" '((1)))
191      "XYZ")
192              
193    (deftest format.\:{.9
194      (format nil "~2:{~A~}" '((1) (2)))
195      "12")
196              
197    (deftest format.\:{.10
198      (format nil "~2:{~A~}" '((1 X) (2 Y) (3 Z)))
199      "12")
200    
201    (deftest format.\:{.11
202      (loop for i from 0 to 10 collect
203            (format nil "~v:{~A~}" i '((1) (2) (3 X) (4 Y Z) (5) (6))))
204      ("" "1" "12" "123" "1234" "12345"
205       "123456" "123456" "123456" "123456" "123456"))
206    
207    (deftest format.\:{.12
208      (format nil "~V:{X~}" nil '((1) (2) (3) nil (5)))
209      "XXXXX")
210    
211    (deftest format.\:{.13
212      (format nil "~#:{~A~}" '((1) (2) (3) (4) (5)) 'foo 'bar)
213      "123")
214    
215    (deftest format.\:{.14
216      (format nil "~:{~A~:}" '((1 X) (2 Y) (3) (4 A B)))
217      "1234")
218    
219    (deftest format.\:{.15
220      (loop for i from 0 to 10 collect
221            (format nil "~v:{~A~:}" i '((1 X) (2 Y) (3) (4 A B))))
222      ("" "1" "12" "123" "1234" "1234"
223       "1234" "1234" "1234" "1234" "1234"))
224    
225    (deftest format.\:{.16
226      (format nil "~:{ABC~:}" '(nil))
227      "ABC")
228    
229    (deftest format.\:{.17
230      (format nil "~v:{ABC~:}" nil '(nil))
231      "ABC")
232    
233    ;;; ~^ in ~:{ ... ~:}
234    
235    
236    
# Line 129  Line 268 
268    "146")    "146")
269    
270  (deftest format.@{.7  (deftest format.@{.7
271    (format nil "~1@{~ FOO ~}")    (format nil "~1@{FOO~}")
272    "")    "")
273    
274    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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