zeroclickinfo-goodies/t/Roman.t

26 lines
821 B
Perl
Raw Normal View History

#!/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)'),
2012-05-29 15:40:32 -07:00
"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;