1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/perl
use strict;
use Getopt::Long;
use Test::More;
use lib qw( lib ../lib );
use Net::Whois::Parser;
plan skip_all => 'Very long test!';
# Проверяем работоспособность парсера на всех зонах
for my $zone ( keys %Net::Whois::Raw::Data::servers ) {
print "$zone\n";
$zone = lc $zone;
my $domain = "www.$zone";
my $d_info = parse_whois(domain => $domain);
ok $d_info, "\t\t$zone\tparse_whois";
ok exists $d_info->{nameservers}, "\t\t$zone\tnameservers";
ok exists $d_info->{emails}, "\t\t$zone\temails";
}
|
