basis/roman/roman-tests.factor

   1 USING: roman tools.test ;
   2
   3 { "i" } [ 1 >roman ] unit-test
   4 { "ii" } [ 2 >roman ] unit-test
   5 { "iii" } [ 3 >roman ] unit-test
   6 { "iv" } [ 4 >roman ] unit-test
   7 { "v" } [ 5 >roman ] unit-test
   8 { "vi" } [ 6 >roman ] unit-test
   9 { "vii" } [ 7 >roman ] unit-test
  10 { "viii" } [ 8 >roman ] unit-test
  11 { "ix" } [ 9 >roman ] unit-test
  12 { "x" } [ 10 >roman ] unit-test
  13 { "mdclxvi" } [ 1666 >roman ] unit-test
  14 { "mmmcdxliv" } [ 3444 >roman ] unit-test
  15 { "mmmcmxcix" } [ 3999 >roman ] unit-test
  16 { "MMMCMXCIX" } [ 3999 >ROMAN ] unit-test
  17 { 3999 } [ 3999 >ROMAN roman> ] unit-test
  18 { 1 } [ 1 >roman roman> ] unit-test
  19 { 2 } [ 2 >roman roman> ] unit-test
  20 { 3 } [ 3 >roman roman> ] unit-test
  21 { 4 } [ 4 >roman roman> ] unit-test
  22 { 5 } [ 5 >roman roman> ] unit-test
  23 { 6 } [ 6 >roman roman> ] unit-test
  24 { 7 } [ 7 >roman roman> ] unit-test
  25 { 8 } [ 8 >roman roman> ] unit-test
  26 { 9 } [ 9 >roman roman> ] unit-test
  27 { 10 } [ 10 >roman roman> ] unit-test
  28 { 1666 } [ 1666 >roman roman> ] unit-test
  29 { 3444 } [ 3444 >roman roman> ] unit-test
  30 { 3999 } [ 3999 >roman roman> ] unit-test
  31 [ 0 >roman ] must-fail
  32 [ 40000 >roman ] must-fail
  33 { "vi" } [ "iii" "iii"  roman+ ] unit-test
  34 { "viii" } [ "x" "ii"  roman- ] unit-test
  35 { "ix" } [ "iii" "iii"  roman* ] unit-test
  36 { "i" } [ "iii" "ii" roman/i ] unit-test
  37 { "i" "ii" } [ "v" "iii"  roman/mod ] unit-test
  38 [ "iii" "iii"  roman- ] must-fail
  39
  40 { 30 } [ ROMAN: xxx ] unit-test
  41
  42 [ roman+ ] must-infer
  43 [ roman- ] must-infer
  44 [ roman* ] must-infer
  45 [ roman/i ] must-infer
  46 [ roman/mod ] must-infer