41 lines
1.4 KiB
Factor
41 lines
1.4 KiB
Factor
USING: arrays kernel math roman roman.private sequences tools.test ;
|
|
|
|
[ "i" ] [ 1 >roman ] unit-test
|
|
[ "ii" ] [ 2 >roman ] unit-test
|
|
[ "iii" ] [ 3 >roman ] unit-test
|
|
[ "iv" ] [ 4 >roman ] unit-test
|
|
[ "v" ] [ 5 >roman ] unit-test
|
|
[ "vi" ] [ 6 >roman ] unit-test
|
|
[ "vii" ] [ 7 >roman ] unit-test
|
|
[ "viii" ] [ 8 >roman ] unit-test
|
|
[ "ix" ] [ 9 >roman ] unit-test
|
|
[ "x" ] [ 10 >roman ] unit-test
|
|
[ "mdclxvi" ] [ 1666 >roman ] unit-test
|
|
[ "mmmcdxliv" ] [ 3444 >roman ] unit-test
|
|
[ "mmmcmxcix" ] [ 3999 >roman ] unit-test
|
|
[ "MMMCMXCIX" ] [ 3999 >ROMAN ] unit-test
|
|
[ 3999 ] [ 3999 >ROMAN roman> ] unit-test
|
|
[ 1 ] [ 1 >roman roman> ] unit-test
|
|
[ 2 ] [ 2 >roman roman> ] unit-test
|
|
[ 3 ] [ 3 >roman roman> ] unit-test
|
|
[ 4 ] [ 4 >roman roman> ] unit-test
|
|
[ 5 ] [ 5 >roman roman> ] unit-test
|
|
[ 6 ] [ 6 >roman roman> ] unit-test
|
|
[ 7 ] [ 7 >roman roman> ] unit-test
|
|
[ 8 ] [ 8 >roman roman> ] unit-test
|
|
[ 9 ] [ 9 >roman roman> ] unit-test
|
|
[ 10 ] [ 10 >roman roman> ] unit-test
|
|
[ 1666 ] [ 1666 >roman roman> ] unit-test
|
|
[ 3444 ] [ 3444 >roman roman> ] unit-test
|
|
[ 3999 ] [ 3999 >roman roman> ] unit-test
|
|
[ 0 >roman ] must-fail
|
|
[ 4000 >roman ] must-fail
|
|
[ "vi" ] [ "iii" "iii" roman+ ] unit-test
|
|
[ "viii" ] [ "x" "ii" roman- ] unit-test
|
|
[ "ix" ] [ "iii" "iii" roman* ] unit-test
|
|
[ "i" ] [ "iii" "ii" roman/i ] unit-test
|
|
[ "i" "ii" ] [ "v" "iii" roman/mod ] unit-test
|
|
[ "iii" "iii" roman- ] must-fail
|
|
|
|
[ 30 ] [ ROMAN: xxx ] unit-test
|