guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 41/55: Make locale monetary conversion tests be less str


From: Andy Wingo
Subject: [Guile-commits] 41/55: Make locale monetary conversion tests be less strict on terminal whitespace
Date: Thu, 23 May 2019 11:52:43 -0400 (EDT)

wingo pushed a commit to branch master
in repository guile.

commit 42bc25522441c10404ea1b8b1a78debd8e71c807
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 "



reply via email to

[Prev in Thread] Current Thread [Next in Thread]