zeroclickinfo-goodies/t/RandomName.t

26 lines
614 B
Perl
Raw Normal View History

#! /usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci is_cached => 0;
2014-12-06 04:10:45 -08:00
zci answer_type => "randomname";
ddg_goodie_test(
[
'DDG::Goodie::RandomName'
],
'random Name' => test_zci (qr/\w\w \(random\)/),
'random name' => test_zci (qr/\w\w \(random\)/),
2014-10-28 11:36:15 -07:00
'random person' =>
test_zci (qr/Name: [\w\s]+\nGender: (?:Male|Female)\nDate of birth: \d{4}\-\d{2}\-\d{2}\nAge: \d+/,
heading => 'Random Person'),
2014-12-12 09:45:42 -08:00
'random domain name' => undef,
'random city name' => undef,
'names of random people' => undef
);
done_testing;