zeroclickinfo-goodies/t/PaleoIngredientCheck.t

#!/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;

ddg_goodie_test(
    [qw( DDG::Goodie::PaleoIngredientCheck )],
    'are apples paleo friendly' => test_zci(
        'Yes',
        structured_answer => {
            input     => ['apples'],
            operation => 'Paleo Friendly',
            result    => 'Yes',
        },
    ),
    'Is dairy allowed on the paleo diet?' => test_zci(
        'No',
        structured_answer => {
            input     => ['dairy'],
            operation => 'Paleo Friendly',
            result    => 'No',
        },
    ),
    'Is sugar paleo friendly?' => test_zci(
        'No',
        structured_answer => {
            input     => ['sugar'],
            operation => 'Paleo Friendly',
            result    => 'No',
        },
    ),
    'beans paleo safe' => test_zci(
        'No',
        structured_answer => {
            input     => ['beans'],
            operation => 'Paleo Friendly',
            result    => 'No',
        },
    ),
    'is sugar paleo' => test_zci(
        'No',
        structured_answer => {
            input     => ['sugar'],
            operation => 'Paleo Friendly',
            result    => 'No',
        },
    ),
    'Is foobar allowed on the paleo diet?' => undef,
    'are notarealfood paleo friendly' => undef,
    'paleo diet recipes' => undef,
    'paleo recipes' => undef,
);

done_testing;