guile-commits
[Top][All Lists]
Advanced

[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 "



reply via email to

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