zeroclickinfo-goodies/t/Dessert.t

117 lines
3.0 KiB
Perl
Raw Normal View History

2012-08-21 07:52:18 -07:00
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'dessert';
zci is_cached => 0;
ddg_goodie_test(
2015-12-28 08:57:03 -08:00
[
'DDG::Goodie::Dessert'
],
'desserts beginning with a' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'a'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
'desserts beginning with A' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'A'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
'dessert start with a' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'a'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
'desserts starting with a' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'a'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
'dessert starts with a' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'a'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
'desserts beginning with z' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'z'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
2013-12-11 17:17:47 -08:00
'a dessert that begins with a' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'a'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
'a dessert that starts with the letter a' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'a'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
'dessert that begins with the letter z' => test_zci(
2015-12-28 09:02:24 -08:00
qr/(.*?) is a dessert that begins with 'z'\.$/,
structured_answer => {
id => 'dessert',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'info',
}
}
),
2012-08-21 07:52:18 -07:00
);
done_testing;