4 |
;;;; Contains: Test of the ~S format directive |
;;;; Contains: Test of the ~S format directive |
5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
(compile-and-load "printer-aux.lsp") |
8 |
|
|
9 |
(deftest format.s.1 |
(deftest format.s.1 |
10 |
(let ((*print-readably* nil) |
(let ((*print-readably* nil) |
12 |
(format nil "~s" nil)) |
(format nil "~s" nil)) |
13 |
"NIL") |
"NIL") |
14 |
|
|
15 |
(deftest format.s.2 |
(def-format-test format.s.2 |
16 |
(let ((*print-readably* nil)) |
"~:s" (nil) "()") |
|
(format nil "~:s" nil)) |
|
|
"()") |
|
17 |
|
|
18 |
(deftest format.s.3 |
(deftest format.s.3 |
19 |
(let ((*print-readably* nil) |
(let ((*print-readably* nil) |
33 |
(format nil "~s" 'nil)) |
(format nil "~s" 'nil)) |
34 |
"Nil") |
"Nil") |
35 |
|
|
36 |
(deftest format.s.6 |
(def-format-test format.s.6 |
37 |
(with-standard-io-syntax |
"~:s" (#(nil)) "#(NIL)") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~:s" #(nil)))) |
|
|
"#(NIL)") |
|
38 |
|
|
39 |
(deftest format.s.7 |
(deftest format.s.7 |
40 |
(with-standard-io-syntax |
(with-standard-io-syntax |
179 |
" ()" |
" ()" |
180 |
" ()") |
" ()") |
181 |
|
|
182 |
(deftest format.s.15 |
(def-format-test format.s.15 |
183 |
(with-standard-io-syntax |
"~vS" (nil nil) "NIL") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~vS" nil nil))) |
|
|
"NIL") |
|
184 |
|
|
185 |
(deftest format.s.16 |
(def-format-test format.s.16 |
186 |
(with-standard-io-syntax |
"~v:S" (nil nil) "()") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~v:S" nil nil))) |
|
|
"()") |
|
187 |
|
|
188 |
(deftest format.s.17 |
(def-format-test format.s.17 |
189 |
(with-standard-io-syntax |
"~@S" (nil) "NIL") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~@S" nil))) |
|
|
"NIL") |
|
190 |
|
|
191 |
(deftest format.s.18 |
(def-format-test format.s.18 |
192 |
(with-standard-io-syntax |
"~v@S" (nil nil) "NIL") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~v@S" nil nil))) |
|
|
"NIL") |
|
193 |
|
|
194 |
(deftest format.s.19 |
(def-format-test format.s.19 |
195 |
(with-standard-io-syntax |
"~v:@s" (nil nil) "()") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~v:@s" nil nil))) |
|
|
"()") |
|
196 |
|
|
197 |
(deftest format.s.20 |
(def-format-test format.s.20 |
198 |
(with-standard-io-syntax |
"~v@:s" (nil nil) "()") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~v@:s" nil nil))) |
|
|
"()") |
|
199 |
|
|
200 |
;;; With colinc specified |
;;; With colinc specified |
201 |
|
|
202 |
(deftest format.s.21 |
(def-format-test format.s.21 |
203 |
(with-standard-io-syntax |
"~3,1s" (nil) "NIL") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~3,1s" nil))) |
|
|
"NIL") |
|
204 |
|
|
205 |
(deftest format.s.22 |
(def-format-test format.s.22 |
206 |
(with-standard-io-syntax |
"~4,3s" (nil) "NIL ") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~4,3s" nil))) |
|
|
"NIL ") |
|
207 |
|
|
208 |
(deftest format.s.23 |
(def-format-test format.s.23 |
209 |
(with-standard-io-syntax |
"~3,3@s" (nil) "NIL") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~3,3@s" nil))) |
|
|
"NIL") |
|
210 |
|
|
211 |
(deftest format.s.24 |
(def-format-test format.s.24 |
212 |
(with-standard-io-syntax |
"~4,4@s" (nil) " NIL") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~4,4@s" nil))) |
|
|
" NIL") |
|
213 |
|
|
214 |
(deftest format.s.25 |
(def-format-test format.s.25 |
215 |
(with-standard-io-syntax |
"~5,3@s" (nil) " NIL") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~5,3@s" nil))) |
|
|
" NIL") |
|
216 |
|
|
217 |
(deftest format.s.26 |
(def-format-test format.s.26 |
218 |
(with-standard-io-syntax |
"~5,3S" (nil) "NIL ") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~5,3S" nil))) |
|
|
"NIL ") |
|
219 |
|
|
220 |
(deftest format.s.27 |
(def-format-test format.s.27 |
221 |
(with-standard-io-syntax |
"~7,3@s" (nil) " NIL") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~7,3@s" nil))) |
|
|
" NIL") |
|
222 |
|
|
223 |
(deftest format.s.28 |
(def-format-test format.s.28 |
224 |
(with-standard-io-syntax |
"~7,3S" (nil) "NIL ") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~7,3S" nil))) |
|
|
"NIL ") |
|
225 |
|
|
226 |
;;; With minpad |
;;; With minpad |
227 |
|
|
247 |
"ABC " |
"ABC " |
248 |
"ABC ")) |
"ABC ")) |
249 |
|
|
250 |
(deftest format.s.30 |
(def-format-test format.s.30 |
251 |
(with-standard-io-syntax |
"~3,,+2S" ('ABC) "ABC ") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~3,,+2S" 'ABC))) |
|
|
"ABC ") |
|
252 |
|
|
253 |
(deftest format.s.31 |
(def-format-test format.s.31 |
254 |
(with-standard-io-syntax |
"~3,,0S" ('ABC) "ABC") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~3,,0S" 'ABC))) |
|
|
"ABC") |
|
255 |
|
|
256 |
(deftest format.s.32 |
(def-format-test format.s.32 |
257 |
(with-standard-io-syntax |
"~3,,-1S" ('ABC) "ABC") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~3,,-1S" 'ABC))) |
|
|
"ABC") |
|
258 |
|
|
259 |
(deftest format.s.33 |
(def-format-test format.s.33 |
260 |
(with-standard-io-syntax |
"~3,,0S" ('ABCD) "ABCD") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~3,,0S" 'ABCD))) |
|
|
"ABCD") |
|
261 |
|
|
262 |
(deftest format.s.34 |
(def-format-test format.s.34 |
263 |
(with-standard-io-syntax |
"~3,,-1S" ('ABCD) "ABCD") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~3,,-1S" 'ABCD))) |
|
|
"ABCD") |
|
264 |
|
|
265 |
;;; With padchar |
;;; With padchar |
266 |
|
|
267 |
(deftest format.s.35 |
(def-format-test format.s.35 |
268 |
(with-standard-io-syntax |
"~4,,,'XS" ('AB) "ABXX") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~4,,,'XS" 'AB))) |
|
|
"ABXX") |
|
269 |
|
|
270 |
(deftest format.s.36 |
(def-format-test format.s.36 |
271 |
(with-standard-io-syntax |
"~4,,,s" ('AB) "AB ") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~4,,,s" 'AB))) |
|
|
"AB ") |
|
272 |
|
|
273 |
(deftest format.s.37 |
(def-format-test format.s.37 |
274 |
(with-standard-io-syntax |
"~4,,,'X@s" ('AB) "XXAB") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~4,,,'X@s" 'AB))) |
|
|
"XXAB") |
|
275 |
|
|
276 |
(deftest format.s.38 |
(def-format-test format.s.38 |
277 |
(with-standard-io-syntax |
"~4,,,@S" ('AB) " AB") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~4,,,@S" 'AB))) |
|
|
" AB") |
|
278 |
|
|
279 |
(deftest format.s.39 |
(def-format-test format.s.39 |
280 |
(with-standard-io-syntax |
"~10,,,vS" (nil 'ABCDE) "ABCDE ") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~10,,,vS" nil 'ABCDE))) |
|
|
"ABCDE ") |
|
281 |
|
|
282 |
(deftest format.s.40 |
(def-format-test format.s.40 |
283 |
(with-standard-io-syntax |
"~10,,,v@S" (nil 'ABCDE) " ABCDE") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~10,,,v@S" nil 'ABCDE))) |
|
|
" ABCDE") |
|
284 |
|
|
285 |
(deftest format.s.41 |
(def-format-test format.s.41 |
286 |
(with-standard-io-syntax |
"~10,,,vs" (#\* 'ABCDE) "ABCDE*****") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~10,,,vs" #\* 'ABCDE))) |
|
|
"ABCDE*****") |
|
287 |
|
|
288 |
(deftest format.s.42 |
(def-format-test format.s.42 |
289 |
(with-standard-io-syntax |
"~10,,,v@s" (#\* 'ABCDE) "*****ABCDE") |
|
(let ((*print-readably* nil) |
|
|
(*package* (find-package :cl-test))) |
|
|
(format nil "~10,,,v@s" #\* 'ABCDE))) |
|
|
"*****ABCDE") |
|
290 |
|
|
291 |
;;; Other tests |
;;; Other tests |
292 |
|
|
293 |
(deftest format.s.43 |
(def-format-test format.s.43 |
294 |
(with-standard-io-syntax |
"~3,,vS" (nil 246) "246") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~3,,vS" nil 246))) |
|
|
"246") |
|
295 |
|
|
296 |
(deftest format.s.44 |
(deftest format.s.44 |
297 |
(with-standard-io-syntax |
(with-standard-io-syntax |
321 |
" ABC" |
" ABC" |
322 |
" ABC")) |
" ABC")) |
323 |
|
|
324 |
(deftest format.s.45 |
(def-format-test format.s.45 |
325 |
(with-standard-io-syntax |
"~4,,vs" (-1 1234) "1234") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~4,,vs" -1 1234))) |
|
|
"1234") |
|
326 |
|
|
327 |
(deftest format.s.46 |
(def-format-test format.s.46 |
328 |
(with-standard-io-syntax |
"~5,vS" (nil 123) "123 ") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~5,vS" nil 123))) |
|
|
"123 ") |
|
329 |
|
|
330 |
(deftest format.s.47 |
(def-format-test format.s.47 |
331 |
(with-standard-io-syntax |
"~5,vS" (3 456) "456 ") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~5,vS" 3 456))) |
|
|
"456 ") |
|
332 |
|
|
333 |
(deftest format.s.48 |
(def-format-test format.s.48 |
334 |
(with-standard-io-syntax |
"~5,v@S" (3 789) " 789") |
|
(let ((*print-readably* nil)) |
|
|
(format nil "~5,v@S" 3 789))) |
|
|
" 789") |
|