zeroclickinfo-goodies/t/ABC.t

23 lines
573 B
Perl

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'rand';
zci is_cached => 0;
ddg_goodie_test(
[qw(
DDG::Goodie::ABC
)],
'choose yes or no' => test_zci(qr/(yes|no) \(random\)/),
'choose this or that or none' => test_zci(qr/(this|that|none) \(random\)/),
'choose duckduckgo or google or bing or something' => test_zci("duckduckgo (not random)", answer_type => 'egg'),
'choose DuckDuckGo OR Google OR Bing or SOMETHING' => test_zci("DuckDuckGo (not random)", answer_type => 'egg'),
);
done_testing;