mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

(~@d): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2004-09-01 22:54:28 +00:00
parent 7dd381c5e1
commit 992b375d61
1 changed files with 30 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

30
test-suite/tests/format.test
View file

@ -40,6 +40,36 @@
(pass-if "format ~F (format-out-substr) maintains the column correctly" (pass-if "format ~F (format-out-substr) maintains the column correctly"
(= (string-length (format "~@F~20T" 1)) 20))) (= (string-length (format "~@F~20T" 1)) 20)))
;;;
;;; ~d
;;;
(with-test-prefix "~d decimal integer"
(with-test-prefix "~@d"
(pass-if "-1"
(string=? (format #f "~@d" -1) "-1"))
;; in guile 1.6.4 and earlier, ~@d gave "0" but we think "+0" is what the
;; common lisp spec intendes
(pass-if "+0"
(string=? (format #f "~@d" 0) "+0"))
(pass-if "+1"
(string=? (format #f "~@d" 1) "+1"))))
;;;
;;; ~t
;;;
(with-test-prefix "~t column advance"
;; in guile 1.6.4 and earlier, a newline as a fill character didn't zero
;; the column number, making a subsequent ~t wrong
(pass-if "newline as fill character"
(string=? (format #f "~6,'\nd~8tX" 123)
"\n\n\n123 X")))
;;; ;;;
;;; ~{ ;;; ~{
;;; ;;;