diff options
Diffstat (limited to '')
-rw-r--r-- | tests/unit/text/numbers-en.scm | 21 |
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)) |