From 7c7cc11810f26e8f08dab8f57120881e5dac961e Mon Sep 17 00:00:00 2001
From: Mike Gran <spk121@yahoo.com>
Date: Mon, 20 Mar 2017 07:37:32 -0700
Subject: [PATCH] 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 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.