mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 10:40:19 +02:00
Code Activity

Oops, didn't mean to put ~t yet.

Browse source
This commit is contained in:
Kevin Ryde 2004-09-01 23:10:23 +00:00
parent df47ddf0e2
commit a8cb8832af
1 changed files with 0 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -58,18 +58,6 @@
(pass-if "+1" (pass-if "+1"
(string=? (format #f "~@d" 1) "+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")))
;;; ;;;
;;; ~{ ;;; ~{
;;; ;;;