mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 16:00:22 +02:00
i18n: add tests for locale AM/PM
* test-suite/tests/i18n.test ("nl-langinfo et al."): new tests
This commit is contained in:
parent
7e218d35ac
commit
7c7cc11810
1 changed files with 20 additions and 0 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue