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

i18n: add tests for locale AM/PM

Browse source 
* test-suite/tests/i18n.test ("nl-langinfo et al."): new tests
This commit is contained in:
Mike Gran 2017-03-20 07:37:32 -07:00
parent 7e218d35ac
commit 7c7cc11810
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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