diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-02-04 23:38:47 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-02-04 23:38:47 +0100 |
commit | 13fb25ba0c24a9e7732d2c32dbc882c7d462bce9 (patch) | |
tree | 3190a4b406d872d771a2fbc7b2e7dba717df5194 | |
parent | bc02028b52297bd33247435a573b76a873b2f4ba (diff) | |
download | guile-13fb25ba0c24a9e7732d2c32dbc882c7d462bce9.tar.gz |
i18n: Skips ~h `format' tests when digit grouping info is missing.
* test-suite/tests/i18n.test ("format ~h"): Skip tests when
`locale-digit-grouping' returns '().
-rw-r--r-- | test-suite/tests/i18n.test | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test index 335f45017..ef08dd4b4 100644 --- a/test-suite/tests/i18n.test +++ b/test-suite/tests/i18n.test @@ -495,22 +495,30 @@ (with-test-prefix "format ~h" + ;; Some systems like Darwin lack the `GROUPING' nl_item, and thus + ;; `locale-digit-grouping' defaults to '(); skip the tests in that + ;; case. + (with-test-prefix "French" (pass-if "12345.5678" (under-french-locale-or-unresolved (lambda () - (string=? "12 345,6789" - (format #f "~:h" 12345.6789 %french-locale)))))) + (if (null? (locale-digit-grouping %french-locale)) + (throw 'unresolved) + (string=? "12 345,6789" + (format #f "~:h" 12345.6789 %french-locale))))))) (with-test-prefix "English" (pass-if "12345.5678" (under-american-english-locale-or-unresolved (lambda () - (string=? "12,345.6789" - (format #f "~:h" 12345.6789 - %american-english-locale))))))) + (if (null? (locale-digit-grouping %american-english-locale)) + (throw 'unresolved) + (string=? "12,345.6789" + (format #f "~:h" 12345.6789 + %american-english-locale)))))))) (with-test-prefix "monetary-amount->locale-string" |