[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/02: Make locale monetary conversion tests be less str
From: |
Mike Gran |
Subject: |
[Guile-commits] 01/02: Make locale monetary conversion tests be less strict on terminal whitespace |
Date: |
Sun, 24 Feb 2019 02:26:03 -0500 (EST) |
mike121 pushed a commit to branch stable-2.2
in repository guile.
commit 2a3ccfb66714efc1c081ea6e921336f80b756d3c
Author: Michael Gran <address@hidden>
Date: Sat Feb 23 23:16:31 2019 -0800
Make locale monetary conversion tests be less strict on terminal whitespace
* test-suite/tests/i18n.test (monetary-amount->locale-string): modified
---
test-suite/tests/i18n.test | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index 73e5381..811be7b 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -677,7 +677,7 @@
(under-french-locale-or-unresolved
(lambda ()
(let* ((fr (make-locale LC_ALL %french-locale-name))
- (str (monetary-amount->locale-string 123456 #f fr)))
+ (str (string-trim-both (monetary-amount->locale-string 123456
#f fr))))
;; Check for both NO-BREAK SPACE and SPACE.
(or (string=? "123 456,00 +EUR" str)
(string=? "123 456,00 +EUR" str))))))
@@ -696,7 +696,7 @@
(under-french-locale-or-unresolved
(lambda ()
(let ((fr (make-locale LC_ALL %french-locale-name)))
- (monetary-amount->locale-string 0. #f fr)))))
+ (string-trim-both (monetary-amount->locale-string 0. #f fr))))))
(pass-if-equal "one cent"
"0,01 EUR "