diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:44:17 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 00:51:19 +0100 |
commit | e4308e887ff887920cf7a558ee9e9d8b14280d07 (patch) | |
tree | 78cb0d179672ede90c993243af7b65b0a62fb02b /tests/unit/text/numbers-en.scm | |
parent | Cleanup swedish word numbers. (diff) | |
download | calp-e4308e887ff887920cf7a558ee9e9d8b14280d07.tar.gz calp-e4308e887ff887920cf7a558ee9e9d8b14280d07.tar.xz |
Finish (text numbers) tests.
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)) |