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

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

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

revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC revision 1.3 by pfdietz, Sat Nov 27 21:55:26 2004 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  ;;; Test of various radixes  ;;; Test of various radixes
9    (compile-and-load "printer-aux.lsp")
10  (compile-and-load "roman-numerals.lsp")  (compile-and-load "roman-numerals.lsp")
11    
12  (deftest format.r.1  (deftest format.r.1
# Line 115  Line 115 
115    "~vr" (nil 5) "five")    "~vr" (nil 5) "five")
116    
117  (def-format-test format.r.9  (def-format-test format.r.9
118    "~#r" (4 nil nil) "11")    "~#r" (4 nil nil) "11" 2)
119    
120  (deftest format.r.10  (deftest format.r.10
121    (with-standard-io-syntax    (with-standard-io-syntax
# Line 281  Line 281 
281    nil)    nil)
282    
283  (def-format-test format.r.26  (def-format-test format.r.26
284    "~10,#r" (12345 nil nil nil nil nil) " 12345")    "~10,#r" (12345 nil nil nil nil nil) " 12345" 5)
285    
286  (def-format-test format.r.27  (def-format-test format.r.27
287    "~10,12,vr" (#\/ 123456789) "///123456789")    "~10,12,vr" (#\/ 123456789) "///123456789")
# Line 299  Line 299 
299    "~8,,,,v:R" (2 #o12345670) "12,34,56,70")    "~8,,,,v:R" (2 #o12345670) "12,34,56,70")
300    
301  (def-format-test format.r.32  (def-format-test format.r.32
302    "~16,,,,#:r" (#x12345670 nil nil nil) "1234,5670")    "~16,,,,#:r" (#x12345670 nil nil nil) "1234,5670" 3)
303    
304  (def-format-test format.r.33  (def-format-test format.r.33
305    "~16,,,,1:r" (#x12345670) "1,2,3,4,5,6,7,0")    "~16,,,,1:r" (#x12345670) "1,2,3,4,5,6,7,0")

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