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

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

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

revision 1.3 by pfdietz, Sat Sep 11 12:31:44 2004 UTC revision 1.4 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 256  Line 256 
256    
257  ;;; NIL arguments  ;;; NIL arguments
258    
259  (deftest format.x.14  (def-format-test format.x.14
260    (format nil "~vx" nil #x100)    "~vx" (nil #x100) "100")
261    "100")  
262    (def-format-test format.x.15
263  (deftest format.x.15    "~6,vX" (nil #x100) "   100")
264    (format nil "~6,vX" nil #x100)  
265    "   100")  (def-format-test format.x.16
266      "~,,v:x" (nil #x12345) "12,345")
267  (deftest format.x.16  
268    (format nil "~,,v:x" nil #x12345)  (def-format-test format.x.17
269    "12,345")    "~,,'*,v:x" (nil #x12345) "12*345")
   
 (deftest format.x.17  
   (format nil "~,,'*,v:x" nil #x12345)  
   "12*345")  
270    
271  ;;; 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
272    
# Line 370  Line 366 
366    "+1234567890"    "+1234567890"
367    "+1234567890")    "+1234567890")
368    
369  (deftest format.x.25  (def-format-test format.x.25
370    (format nil "~+10x" #x1234)    "~+10x" (#x1234) "      1234")
371    "      1234")  
372    (def-format-test format.x.26
373  (deftest format.x.26    "~+10@X" (#x1234) "     +1234")
374    (format nil "~+10@X" #x1234)  
375    "     +1234")  (def-format-test format.x.27
376      "~-1X" (#x1234) "1234")
377  (deftest format.x.27  
378    (format nil "~-1X" #x1234)  (def-format-test format.x.28
379    "1234")    "~-1000000000000000000x" (#x1234) "1234")
380    
381  (deftest format.x.28  (def-format-test format.x.29
382    (format nil "~-1000000000000000000x" #x1234)    "~vx" ((1- most-negative-fixnum) #x1234) "1234")
   "1234")  
   
 (deftest format.x.29  
   (format nil "~vx" (1- most-negative-fixnum) #x1234)  
   "1234")  
383    
384  ;;; Randomized test  ;;; Randomized test
385    

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

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