39 lines
993 B
Perl
Executable File
39 lines
993 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => "paleo_ingredient_check";
|
|
zci is_cached => 1;
|
|
|
|
sub build_test {
|
|
my ($text, $input) = @_;
|
|
return test_zci($text, structured_answer =>{
|
|
data => {
|
|
title => $text,
|
|
subtitle => "Paleo Friendly: $input"
|
|
},
|
|
templates => {
|
|
group => 'text'
|
|
}
|
|
});
|
|
}
|
|
|
|
ddg_goodie_test(
|
|
[qw( DDG::Goodie::PaleoIngredientCheck )],
|
|
'are apples paleo friendly' => build_test('Yes', "apples"),
|
|
'Is dairy allowed on the paleo diet?' => build_test('No', "dairy"),
|
|
'Is sugar paleo friendly?' => build_test("No", "sugar"),
|
|
'beans paleo safe' => build_test("No", "beans"),
|
|
'is sugar paleo' => build_test("No", "sugar"),
|
|
'Is foobar allowed on the paleo diet?' => undef,
|
|
'are notarealfood paleo friendly' => undef,
|
|
'paleo diet recipes' => undef,
|
|
'paleo recipes' => undef,
|
|
);
|
|
|
|
done_testing;
|