#!perl -T
use 5.006;
use strict;
use warnings;
our %test;
BEGIN{
%test=(
'I'=>1,
'II'=>2,
'III'=>3,
qw/V 5 X 10 L 50 C 100 D 500 M 1000 MCDXLIV 1444 MMVII 2007/
);
}
use Test::More tests => (scalar(keys %test)*3);
use Roman;
while (my ($rom,$arab)=each %test) {
ok(isroman($rom),"$rom is roman");
is(arabic($rom),$arab,"$rom is $arab");
is(Roman($arab),$rom,"$arab is $rom");
}