diff options
| author | Mike Gran <spk121@yahoo.com> | 2017-03-20 07:37:32 -0700 |
|---|---|---|
| committer | Mike Gran <spk121@yahoo.com> | 2017-03-20 07:37:32 -0700 |
| commit | 7c7cc11810f26e8f08dab8f57120881e5dac961e (patch) | |
| tree | 48307d8740ebac3467c9879db057623c653c118f /test-suite | |
| parent | 7e218d35ac96b6a9056aa06f983b3e254b0b9653 (diff) | |
| download | guile-7c7cc11810f26e8f08dab8f57120881e5dac961e.tar.gz | |
i18n: add tests for locale AM/PM
* test-suite/tests/i18n.test ("nl-langinfo et al."): new tests
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/tests/i18n.test | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test index e7447ebd2..4be2ec518 100644 --- a/test-suite/tests/i18n.test +++ b/test-suite/tests/i18n.test @@ -484,6 +484,26 @@ (lambda () (setlocale LC_ALL "C")))))) + (pass-if "locale-am-string" + (not (not (member (locale-am-string) + '("AM" "am" "A.M." "a.m."))))) + + (pass-if "locale-am-string (greek)" + (under-greek-utf8-locale-or-unresolved + (lambda () + (not (not (member (locale-am-string %greek-utf8-locale) + '("ΠΜ" "πμ" "Π.Μ." "π.μ."))))))) + + (pass-if "locale-pm-string" + (not (not (member (locale-pm-string) + '("PM" "pm" "P.M." "p.m."))))) + + (pass-if "locale-pm-string (Greek)" + (under-greek-utf8-locale-or-unresolved + (lambda () + (not (not (member (locale-pm-string %greek-utf8-locale) + '("ΜΜ" "μμ" "Μ.Μ." "μ.μ."))))))) + (pass-if "locale-monetary-grouping" ;; In the C locale, there is no rule for grouping of digits ;; of monetary values. |