diff options
| author | Michael Gran <spk121@yahoo.com> | 2019-02-23 23:16:31 -0800 |
|---|---|---|
| committer | Michael Gran <spk121@yahoo.com> | 2019-02-23 23:16:31 -0800 |
| commit | 2a3ccfb66714efc1c081ea6e921336f80b756d3c (patch) | |
| tree | 554e0fa85f4a45ca160b8d44afa06e8781b7c061 /test-suite | |
| parent | 92105d13ad1363b511214589b7d62d95304beb17 (diff) | |
Make locale monetary conversion tests be less strict on terminal whitespace
* test-suite/tests/i18n.test (monetary-amount->locale-string): modified
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/tests/i18n.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test index 73e5381b8..811be7b10 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 " |