1 ;;;; format.test --- test suite for Guile's CL-ish format -*- scheme -*-
2 ;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de> --- June 2001
4 ;;;; Copyright (C) 2001, 2003, 2004 Free Software Foundation, Inc.
6 ;;;; 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
8 ;;;; the Free Software Foundation; either version 2, or (at your option)
9 ;;;; any later version.
11 ;;;; This program is distributed in the hope that it will be useful,
12 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;;; GNU General Public License for more details.
16 ;;;; You should have received a copy of the GNU General Public License
17 ;;;; along with this software; see the file COPYING. If not, write to
18 ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
19 ;;;; Boston, MA 02111-1307 USA
21 (use-modules (test-suite lib)
24 ;;; FORMAT Basic Output
26 (with-test-prefix "format basic output"
27 (pass-if "format ~% produces a new line"
28 (string=? (format "~%") "\n"))
29 (pass-if "format ~& starts a fresh line"
30 (string=? (format "~&abc~&~&") "abc\n"))
31 (pass-if "format ~& is stateless but works properly across outputs via port-column"
33 (with-output-to-string
37 (format #f "~&") ; shall have no effect
40 (pass-if "format ~F (format-out-substr) maintains the column correctly"
41 (= (string-length (format "~@F~20T" 1)) 20)))
47 (with-test-prefix "~d decimal integer"
49 (with-test-prefix "~@d"
52 (string=? (format #f "~@d" -1) "-1"))
53 ;; in guile 1.6.4 and earlier, ~@d gave "0" but we think "+0" is what the
54 ;; common lisp spec intendes
56 (string=? (format #f "~@d" 0) "+0"))
59 (string=? (format #f "~@d" 1) "+1"))))
65 (with-test-prefix "~t column advance"
67 ;; in guile 1.6.4 and earlier, a newline as a fill character didn't zero
68 ;; the column number, making a subsequent ~t wrong
69 (pass-if "newline as fill character"
70 (string=? (format #f "~6,'\nd~8tX" 123)
77 (with-test-prefix "~{ iteration"
79 ;; In Guile 1.6.4 and earlier, the maximum iterations parameter defaulted
80 ;; to 100, but it's now like Common Lisp where the default is no limit
81 (pass-if "no arbitrary iteration limit"
82 (= (string-length (format "~{~a~}" (make-list 200 #\b))) 200)))