;;;; format.test --- test suite for Guile's CL-ish format -*- scheme -*-
;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de> --- June 2001
;;;;
-;;;; Copyright (C) 2001, 2003, 2004, 2006 Free Software Foundation, Inc.
-;;;;
+;;;; Copyright (C) 2001, 2003, 2004, 2006, 2010, 2011, 2012,
+;;;; 2014 Free Software Foundation, Inc.
+;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
;;;; License as published by the Free Software Foundation; either
;;;; version 3 of the License, or (at your option) any later version.
-;;;;
+;;;;
;;;; This library is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;;; Lesser General Public License for more details.
-;;;;
+;;;;
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
(define-module (test-format)
#:use-module (test-suite lib)
+ #:use-module (ice-9 i18n)
#:use-module (ice-9 format))
+(with-test-prefix "simple-format"
+ (pass-if-exception "current-output-port is closed"
+ exception:wrong-type-arg
+ ;; This used to segfault in Guile <= 2.0.10.
+ (let ((old (current-output-port))
+ (new (%make-void-port "w")))
+ (dynamic-wind
+ (lambda ()
+ (set-current-output-port new)
+ (close-port new))
+ (lambda ()
+ (simple-format #t "hello, closed port!")
+ #t)
+ (lambda ()
+ (set-current-output-port old))))))
+
;;; FORMAT Basic Output
(with-test-prefix "format basic output"
+ (pass-if "default to Unicode-capable port"
+ ;; `(format #f ...)' should be able to deal with Unicode characters.
+ (with-fluids ((%default-port-encoding "ISO-8859-1"))
+ (let ((alpha (integer->char #x03b1))) ; GREEK SMALL LETTER ALPHA
+ (= 1 (string-length (format #f (string alpha)))))))
+
(pass-if "format ~% produces a new line"
- (string=? (format "~%") "\n"))
+ (string=? (format #f "~%") "\n"))
(pass-if "format ~& starts a fresh line"
- (string=? (format "~&abc~&~&") "abc\n"))
+ (string=? (format #f "~&abc~&~&") "abc\n"))
(pass-if "format ~& is stateless but works properly across outputs via port-column"
(string=?
(with-output-to-string
(format #t "~&~&")))
"xyz\nabc\n"))
(pass-if "format ~F (format-out-substr) maintains the column correctly"
- (= (string-length (format "~@F~20T" 1)) 20)))
+ (= (string-length (format #f "~@F~20T" 1)) 20)))
;;;
;;; misc
(pass-if "1.5"
(string=? "1.5" (format #f "~f" 1.5)))
+ (pass-if "3/2"
+ (string=? "1.5" (format #f "~f" 3/2)))
+
;; in guile prior to 1.6.9 and 1.8.1, leading zeros were incorrectly
;; stripped, moving the decimal point and giving "25.0" here
(pass-if "string 02.5"
(string=? "2.5" (format #f "~f" "02.5"))))
+;;;
+;;; ~h
+;;;
+
+(when (defined? 'setlocale)
+ (setlocale LC_ALL "C"))
+
+(with-test-prefix "~h localized number"
+
+ (pass-if "1234.5"
+ (string=? (format #f "~h" 1234.5) "1234.5"))
+
+ (pass-if "padding"
+ (string=? (format #f "~6h" 123.2) " 123.2"))
+
+ (pass-if "padchar"
+ (string=? (format #f "~8,,'*h" 123.2) "***123.2"))
+
+ (pass-if "decimals"
+ (string=? (format #f "~,2h" 123.4567)
+ "123.45"))
+
+ (pass-if "locale"
+ (string=? (format #f "~,3:h, ~a" 1234.5678
+ %global-locale "approximately")
+ "1234.567, approximately")))
+
;;;
;;; ~{
;;;
;; In Guile 1.6.4 and earlier, the maximum iterations parameter defaulted
;; to 100, but it's now like Common Lisp where the default is no limit
(pass-if "no arbitrary iteration limit"
- (= (string-length (format "~{~a~}" (make-list 200 #\b))) 200)))
+ (= (string-length (format #f "~{~a~}" (make-list 200 #\b))) 200)))