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 |
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 |
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") |
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") |