zeroclickinfo-goodies/t/PublicDNS.t

44 lines
1.1 KiB
Perl

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => "public_dns";
zci is_cached => 1;
# We don't want to test too specifically on the included data, so just confirm
# we got an answer with something approaching the correct form.
# Hopefully, some one has eyeballed the output to make sure its got the right data.
my $text_table = qr#^\+-+.*-+\+#m;
ddg_goodie_test([qw( DDG::Goodie::PublicDNS)],
'public dns' => test_zci(
$text_table,
structured_answer => {
data => '-ANY-',
templates => {
group => 'list',
options => {
list_content => 'DDH.public_dns.content',
}
}
}
),
'dns servers' => test_zci(
$text_table,
structured_answer => {
data => '-ANY-',
templates => {
group => 'list',
options => {
list_content => 'DDH.public_dns.content',
}
}
}
)
);
done_testing;