1 files changed, 21 insertions, 0 deletions
diff --git a/tests/unit/text/numbers-en.scm b/tests/unit/text/numbers-en.scm
new file mode 100644
index 00000000..e56a244f
--- /dev/null
+++ b/tests/unit/text/numbers-en.scm
@@ -0,0 +1,21 @@
+(define-module (test text-numbers-en)
+  :use-module (srfi srfi-1)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-71)
+  :use-module (text numbers))
+
+(test-equal "one hundred twenty-three million, four hundred fifty-six thousand, seven hundred eighty-nine"
+ (number->string-cardinal 123456789 'en))
+(test-equal "one hundred twenty-three million, four hundred fifty-six thousand, seven hundred eighty-ninth"
+ (number->string-ordinal 123456789 'en))
+
+(test-group "each-string en"
+ (test-equal "each"
+   (each-string 1 'en))
+ (test-equal "every other"
+   (each-string 2 'en))
+ (test-equal "every third"
+   (each-string 3 'en)))
+
+'((text numbers)
+  (text numbers en))