File: 11-void.t

package info (click to toggle)
libtext-roman-perl 3.5-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 228 kB
  • sloc: perl: 506; makefile: 5
file content (21 lines) | stat: -rw-r--r-- 390 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
 
#!perl
use strict;
use warnings qw(all);

use Test::More;

use Text::Roman qw(roman2int int2roman milhar2int);

my @x = qw[v iii xi iv];

roman2int() for @x;
is_deeply(\@x, [qw[5 3 11 4]], q(roman2int));

int2roman() for @x;
is_deeply(\@x, [qw[V III XI IV]], q(roman2int));

my @y = qw[L_X_XXIII IV_VIII];
milhar2int() for @y;
is_deeply(\@y, [60023, 4008], q(milhar2int));

done_testing 3;