blob: e56a244f11ed3724f1b2690e9d4eabd1380cf3a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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))
|