zeroclickinfo-goodies/t/Scramble.t

28 lines
601 B
Perl
Raw Normal View History

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => "scramble";
2015-11-30 09:17:04 -08:00
zci is_cached => 0;
ddg_goodie_test(
[qw( DDG::Goodie::Scramble )],
'scramble of filter' => test_zci(
'Scramble of filter',
structured_answer => {
2015-11-30 07:44:13 -08:00
input => ['filter'],
operation => 'Scramble of',
result => '-ANY-',
}
),
'scramble of' => undef,
'Scramble for' => undef,
'Scrambles for ""' => undef,
'Scrambles for "867-5309"' => undef,
);
done_testing;