[Guile-commits] 02/03: i18n: add tests for locale AM/PM

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit 7c7cc11810f26e8f08dab8f57120881e5dac961e
Author: Mike Gran <address@hidden>
Date:   Mon Mar 20 07:37:32 2017 -0700

    i18n: add tests for locale AM/PM
    
    * test-suite/tests/i18n.test ("nl-langinfo et al."): new tests
---
 test-suite/tests/i18n.test | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index e7447eb..4be2ec5 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.