zeroclickinfo-goodies/t/BirthStone.t

56 lines
1.3 KiB
Perl
Raw Normal View History

2013-05-06 13:24:48 -07:00
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
2014-10-14 23:33:06 -07:00
zci answer_type => "birth_stone";
zci is_cached => 1;
2013-05-06 13:24:48 -07:00
ddg_goodie_test(
2014-10-14 23:33:06 -07:00
[qw( DDG::Goodie::BirthStone )],
'april birth stone' => test_zci(
'April birthstone: Diamond',
structured_answer => {
input => ['April'],
operation => 'Birthstone',
2014-10-14 23:33:06 -07:00
result => 'Diamond'
}
),
'birthstone JUNE' => test_zci(
'June birthstone: Pearl',
structured_answer => {
input => ['June'],
operation => 'Birthstone',
2014-10-14 23:33:06 -07:00
result => 'Pearl'
}
),
'DecEmber birthstone' => test_zci(
'December birthstone: Turquoise',
structured_answer => {
input => ['December'],
operation => 'Birthstone',
2014-10-14 23:33:06 -07:00
result => 'Turquoise'
}
),
'birthstone april' => test_zci(
'April birthstone: Diamond',
structured_answer => {
input => ['April'],
operation => 'Birthstone',
2014-10-14 23:33:06 -07:00
result => 'Diamond'
}
),
'may birth stone' => test_zci(
'May birthstone: Emerald',
structured_answer => {
input => ['May'],
operation => 'Birthstone',
2014-10-14 23:33:06 -07:00
result => 'Emerald'
}
),
2013-05-06 13:24:48 -07:00
);
done_testing;