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

   1 USING: math math.functions math.parser math.text.french sequences tools.test ;
   2
   3 { "zéro" } [ 0 number>text ] unit-test
   4 { "vingt et un" } [ 21 number>text ] unit-test
   5 { "vingt-deux" } [ 22 number>text ] unit-test
   6 { "deux mille" } [ 2000 number>text ] unit-test
   7 { "soixante et un" } [ 61 number>text ] unit-test
   8 { "soixante-deux" } [ 62 number>text ] unit-test
   9 { "quatre-vingts" } [ 80 number>text ] unit-test
  10 { "quatre-vingt-un" } [ 81 number>text ] unit-test
  11 { "quatre-vingt-onze" } [ 91 number>text ] unit-test
  12 { "deux cents" } [ 200 number>text ] unit-test
  13 { "mille deux cents" } [ 1200 number>text ] unit-test
  14 { "mille deux cent quatre-vingts" } [ 1280 number>text ] unit-test
  15 { "mille deux cent quatre-vingt-un" } [ 1281 number>text ] unit-test
  16 { "un billion deux cent vingt milliards quatre-vingts millions trois cent quatre-vingt mille deux cents" } [ 1220080380200 number>text ] unit-test
  17 { "un million" } [ 1000000 number>text ] unit-test
  18 { "un million un" } [ 1000001 number>text ] unit-test
  19 { "moins vingt" } [ -20 number>text ] unit-test
  20 { 104 } [ -1 10 102 ^ - number>text length ] unit-test
  21 ! Check that we do not exhaust stack
  22 { 1484 } [ 10 100 ^ 1 - number>text length ] unit-test