6
use Test::Simple tests => 7;
8
use Text::Roman qw/isroman roman2int int2roman ismilhar milhar2int/;
9
ok(1, 'use Text::Roman');
15
$r[$_] = int2roman($_) for 1 .. $n;
16
ok(1, "array created");
19
croak "$_: $r[$_] != $ar" unless ($ar = roman2int($r[$_])) == $_;
21
ok(1, "reciprocity tested");
23
ok(isroman("IV"), "is roman");
24
ok(!isroman("IVI"), "is not roman");
25
ok(milhar2int("IV_VIII") == 4008, "milhar converted");