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.