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

Diff of /gcl/ansi-tests/format-b.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 244  Line 244 
244    
245  ;;; NIL arguments  ;;; NIL arguments
246    
247  (deftest format.b.14  (def-format-test format.b.14
248    (format nil "~vb" nil #b110100)    "~vb" (nil #b110100) "110100")
249    "110100")  
250    (def-format-test format.b.15
251  (deftest format.b.15    "~6,vB" (nil #b100) "   100")
252    (format nil "~6,vB" nil #b100)  
253    "   100")  (def-format-test format.b.16
254      "~,,v:b" (nil #b10011) "10,011")
255  (deftest format.b.16  
256    (format nil "~,,v:b" nil #b10011)  (def-format-test format.b.17
257    "10,011")    "~,,'*,v:B" (nil #b10110) "10*110")
   
 (deftest format.b.17  
   (format nil "~,,'*,v:B" nil #b10110)  
   "10*110")  
258    
259  ;;; 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
260    
# Line 358  Line 354 
354    "+1100100010"    "+1100100010"
355    "+1100100010")    "+1100100010")
356    
357  (deftest format.b.25  (def-format-test format.b.25
358    (format nil "~+10b" #b1101)    "~+10b" (#b1101) "      1101")
359    "      1101")  
360    (def-format-test format.b.26
361  (deftest format.b.26    "~+10@B" (#b1101) "     +1101")
362    (format nil "~+10@B" #b1101)  
363    "     +1101")  (def-format-test format.b.27
364      "~-1b" (#b1101) "1101")
365  (deftest format.b.27  
366    (format nil "~-1b" #b1101)  (def-format-test format.b.28
367    "1101")    "~-1000000000000000000B" (#b1101) "1101")
368    
369  (deftest format.b.28  (def-format-test format.b.29
370    (format nil "~-1000000000000000000B" #b1101)    "~vb" ((1- most-negative-fixnum) #b1101) "1101")
   "1101")  
   
 (deftest format.b.29  
   (format nil "~vb" (1- most-negative-fixnum) #b1101)  
   "1101")  
371    
372  ;;; Randomized test  ;;; Randomized test
373    

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