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

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

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

revision 1.2 by pfdietz, Sat Oct 2 14:45:05 2004 UTC revision 1.3 by pfdietz, Sat Nov 27 21:55:26 2004 UTC
# Line 4  Line 4 
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)
# Line 11  Line 12 
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)
# Line 34  Line 33 
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
# Line 183  Line 179 
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    
# Line 293  Line 247 
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
# Line 422  Line 321 
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")  

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

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