/[guile]/guile/guile-core/test-suite/tests/format.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/format.test

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

revision 1.1 by mvo, Sat Jun 16 20:11:39 2001 UTC revision 1.2 by mvo, Wed Mar 19 18:28:52 2003 UTC
# Line 1  Line 1 
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
# Line 36  Line 36 
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)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26