26 lines
821 B
Perl
26 lines
821 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => 'roman_numeral_conversion';
|
|
zci is_cached => 1;
|
|
|
|
ddg_goodie_test(
|
|
[qw(
|
|
DDG::Goodie::Roman
|
|
)],
|
|
'roman 155' => test_zci('CLV (roman numeral conversion)'),
|
|
"roman xii" => test_zci("12 (roman numeral conversion)"),
|
|
"roman mmcml" => test_zci("2950 (roman numeral conversion)"),
|
|
"roman 2344" => test_zci("MMCCCXLIV (roman numeral conversion)"),
|
|
"arabic cccxlvi" => test_zci("346 (roman numeral conversion)"),
|
|
'roman numeral MCCCXXXVII' => test_zci('1337 (roman numeral conversion)'),
|
|
'roman 1337' => test_zci('MCCCXXXVII (roman numeral conversion)'),
|
|
'roman IV' => test_zci('4 (roman numeral conversion)'),
|
|
);
|
|
|
|
done_testing;
|