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
28
29
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Domain::PublicSuffix;
my %data = (
'www.911.state.tx.us' => 'state.tx.us',
'www.achd.ada.id.us' => 'ada.id.us',
'www.alamo_williams_nd.godcool.com' => 'godcool.com',
'www.poland.gov.pl' => 'poland.gov.pl',
'www.superior_one.com' => 'superior_one.com',
'openfusion.com.au' => 'openfusion.com.au',
);
my $dps;
ok( $dps = Domain::PublicSuffix->new({
'use_default' => 1,
'domain_allow_underscore' => 1,
}), 'constructor ok' );
foreach my $hostname ( sort keys %data ) {
my $root_domain = $dps->get_root_domain($hostname);
is( $root_domain, $data{$hostname}, "$hostname ok" );
}
done_testing();
1;
|
