93 |
(format s "A ~_A ~_A ~_A ~_A ~_")))) |
(format s "A ~_A ~_A ~_A ~_A ~_")))) |
94 |
"A A A A A ") |
"A A A A A ") |
95 |
|
|
96 |
|
(deftest formatter._.9 |
97 |
|
(with-standard-io-syntax |
98 |
|
(let ((*print-readably* nil) |
99 |
|
(*print-escape* nil) |
100 |
|
(*print-pretty* t) |
101 |
|
(*print-right-margin* 4) |
102 |
|
(*print-miser-width* nil)) |
103 |
|
(formatter-call-to-string |
104 |
|
(formatter "A ~_A ~_A ~_A ~_A ~_")))) |
105 |
|
"A A A A A ") |
106 |
|
|
107 |
;;; miser |
;;; miser |
108 |
|
|
109 |
(def-ppblock-test format.@_.1 |
(def-ppblock-test format.@_.1 |
196 |
(format s "A ~@_A ~@_A ~@_A ~@_A ~@_")))) |
(format s "A ~@_A ~@_A ~@_A ~@_A ~@_")))) |
197 |
"A A A A A ") |
"A A A A A ") |
198 |
|
|
199 |
|
(deftest formatter.@_.10 |
200 |
|
(with-standard-io-syntax |
201 |
|
(let ((*print-readably* nil) |
202 |
|
(*print-escape* nil) |
203 |
|
(*print-pretty* t) |
204 |
|
(*print-right-margin* 4) |
205 |
|
(*print-miser-width* 4)) |
206 |
|
(formatter-call-to-string |
207 |
|
(formatter "A ~@_A ~@_A ~@_A ~@_A ~@_")))) |
208 |
|
"A A A A A ") |
209 |
|
|
210 |
;;; fill |
;;; fill |
211 |
|
|
212 |
(def-ppblock-test format.\:_.1 |
(def-ppblock-test format.\:_.1 |
278 |
(format s "A ~:_A ~:_A ~:_A ~:_A ~:_")))) |
(format s "A ~:_A ~:_A ~:_A ~:_A ~:_")))) |
279 |
"A A A A A ") |
"A A A A A ") |
280 |
|
|
281 |
|
(deftest formatter.\:_.7 |
282 |
|
(with-standard-io-syntax |
283 |
|
(let ((*print-readably* nil) |
284 |
|
(*print-escape* nil) |
285 |
|
(*print-right-margin* 4) |
286 |
|
(*print-pretty* t) |
287 |
|
(*print-miser-width* nil)) |
288 |
|
(formatter-call-to-string |
289 |
|
(formatter "A ~:_A ~:_A ~:_A ~:_A ~:_")))) |
290 |
|
"A A A A A ") |
291 |
|
|
292 |
;;; mandatory |
;;; mandatory |
293 |
|
|
294 |
(def-ppblock-test format.\:@_.1 |
(def-ppblock-test format.\:@_.1 |
330 |
(*print-miser-width* nil)) |
(*print-miser-width* nil)) |
331 |
(format s "A ~:@_A ~:@_A ~:@_A ~:@_A ~:@_")))) |
(format s "A ~:@_A ~:@_A ~:@_A ~:@_A ~:@_")))) |
332 |
"A A A A A ") |
"A A A A A ") |
333 |
|
|
334 |
|
(deftest formatter.\:@_.5 |
335 |
|
(with-standard-io-syntax |
336 |
|
(let ((*print-readably* nil) |
337 |
|
(*print-escape* nil) |
338 |
|
(*print-pretty* t) |
339 |
|
(*print-right-margin* 4) |
340 |
|
(*print-miser-width* nil)) |
341 |
|
(formatter-call-to-string (formatter "A ~:@_A ~:@_A ~:@_A ~:@_A ~:@_")))) |
342 |
|
"A A A A A ") |