mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 17:30:24 +02:00
Code Activity

Make locale monetary conversion tests be less strict on terminal whitespace

Browse source 
* test-suite/tests/i18n.test (monetary-amount->locale-string): modified
This commit is contained in:
Michael Gran 2019-02-23 23:16:31 -08:00
parent 92105d13ad
commit 2a3ccfb667
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/i18n.test
View file

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