zeroclickinfo-goodies/t/Randagram.t

18 lines
376 B
Perl

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'randagram';
zci is_cached => 0;
ddg_goodie_test(
[qw(DDG::Goodie::Randagram)],
'randagram algorithm' => test_zci(qr/Randagram of "algorithm": [algorithm]/),
'randagram jazz hands' => test_zci(qr/Randagram of "jazz hands": [jazz hands]/),
);
done_testing;