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

Diff of /gcl/ansi-tests/format-d.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 243  Line 243 
243    
244  ;;; NIL arguments  ;;; NIL arguments
245    
246  (deftest format.d.14  (def-format-test format.d.14
247    (format nil "~vD" nil 100)    "~vD" (nil 100) "100")
248    "100")  
249    (def-format-test format.d.15
250  (deftest format.d.15    "~6,vD" (nil 100) "   100")
251    (format nil "~6,vD" nil 100)  
252    "   100")  (def-format-test format.d.16
253      "~,,v:d" (nil 12345) "12,345")
254  (deftest format.d.16  
255    (format nil "~,,v:d" nil 12345)  (def-format-test format.d.17
256    "12,345")    "~,,'*,v:d" (nil 12345) "12*345")
   
 (deftest format.d.17  
   (format nil "~,,'*,v:d" nil 12345)  
   "12*345")  
257    
258  ;;; When the argument is not an integer, print as if using ~A and base 10  ;;; When the argument is not an integer, print as if using ~A and base 10
259    
# Line 357  Line 353 
353    "+1234567890"    "+1234567890"
354    "+1234567890")    "+1234567890")
355    
356  (deftest format.d.25  (def-format-test format.d.25
357    (format nil "~+10d" 1234)    "~+10d" (1234) "      1234")
358    "      1234")  
359    (def-format-test format.d.26
360  (deftest format.d.26    "~+10@d" (1234) "     +1234")
361    (format nil "~+10@d" 1234)  
362    "     +1234")  (def-format-test format.d.27
363      "~-1d" (1234) "1234")
364  (deftest format.d.27  
365    (format nil "~-1d" 1234)  (def-format-test format.d.28
366    "1234")    "~-1000000000000000000d" (1234) "1234")
367    
368  (deftest format.d.28  (def-format-test format.d.29
369    (format nil "~-1000000000000000000d" 1234)    "~vd" ((1- most-negative-fixnum) 1234) "1234")
   "1234")  
   
 (deftest format.d.29  
   (format nil "~vd" (1- most-negative-fixnum) 1234)  
   "1234")  
370    
371  ;;; Randomized test  ;;; Randomized test
372    

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