File: 01.t

package info (click to toggle)
libroman-perl 1.24-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 96 kB
  • sloc: perl: 89; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 409 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!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");
}