zeroclickinfo-goodies/t/RandomNumber.t

21 lines
428 B
Perl
Raw Normal View History

2014-07-24 12:55:49 -07:00
#!/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(
2014-08-18 14:57:27 -07:00
[qw(
DDG::Goodie::RandomNumber
)],
'random number between 12 and 45' => test_zci( qr/\d{2} \(random number\)/),
'random number' => test_zci( qr/\d{1}\.\d+ \(random number\)/),
2014-08-12 13:38:50 -07:00
'random day' => undef,
'random access' => undef,
2014-07-24 12:55:49 -07:00
);
done_testing