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