diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index d1b0a542b..f7824d39b 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -479,3 +479,21 @@
          (let ((fr (make-locale LC_ALL %french-locale-name)))
            (string=? "1 234,5"
                      (number->locale-string 1234.567 1 fr))))))))
+
+(with-test-prefix "monetary-amount->locale-string"
+
+  (with-test-prefix "French"
+
+    (pass-if "integer"
+      (under-french-locale-or-unresolved
+       (lambda ()
+         (let ((fr (make-locale LC_ALL %french-locale-name)))
+           (string=? "123 456 +EUR"
+                     (monetary-amount->locale-string 123456 #f fr))))))
+
+    (pass-if "fraction"
+      (under-french-locale-or-unresolved
+       (lambda ()
+         (let ((fr (make-locale LC_ALL %french-locale-name)))
+           (string=? "1 234,56 EUR "
+                     (monetary-amount->locale-string 1234.567 #t fr))))))))