1 |
;;;; format.test --- test suite for Guile's CL-ish format -*- scheme -*- |
;;;; format.test --- test suite for Guile's CL-ish format -*- scheme -*- |
2 |
;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de> --- June 2001 |
;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de> --- June 2001 |
3 |
;;;; |
;;;; |
4 |
;;;; Copyright (C) 2001 Free Software Foundation, Inc. |
;;;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. |
5 |
;;;; |
;;;; |
6 |
;;;; This program is free software; you can redistribute it and/or modify |
;;;; This program is free software; you can redistribute it and/or modify |
7 |
;;;; it under the terms of the GNU General Public License as published by |
;;;; it under the terms of the GNU General Public License as published by |
36 |
(format #t "~&abc") |
(format #t "~&abc") |
37 |
(format #f "~&") ; shall have no effect |
(format #f "~&") ; shall have no effect |
38 |
(format #t "~&~&"))) |
(format #t "~&~&"))) |
39 |
"xyz\nabc\n"))) |
"xyz\nabc\n")) |
40 |
|
(pass-if "format ~F (format-out-substr) maintains the column correctly" |
41 |
|
(= (string-length (format "~@F~20T" 1)) 20))) |