extra/math/text/english/english-tests.factor

   1 USING: math.functions math.text.english tools.test ;
   2 IN: math.text.english.tests
   3
   4 [ "zero" ] [ 0 number>text ] unit-test
   5 [ "twenty-one" ] [ 21 number>text ] unit-test
   6 [ "one hundred" ] [ 100 number>text ] unit-test
   7 [ "one hundred and one" ] [ 101 number>text ] unit-test
   8 [ "one thousand and one" ] [ 1001 number>text ] unit-test
   9 [ "one thousand, one hundred and one" ] [ 1101 number>text ] unit-test
  10 [ "one million, one thousand and one" ] [ 1001001 number>text ] unit-test
  11 [ "one million, one thousand, one hundred and one" ] [ 1001101 number>text ] unit-test
  12 [ "one million, one hundred and eleven thousand, one hundred and eleven" ] [ 1111111 number>text ] unit-test
  13 [ "one duotrigintillion" ] [ 10 99 ^ number>text ] unit-test
  14
  15 [ "negative one hundred and twenty-three" ] [ -123 number>text ] unit-test