#!/usr/bin/env perl
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 @bad = (
# .au only allows 3lds
'bogus.au',
);
ok($dps = Domain::PublicSuffix->new({ 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" );
}
foreach my $hostname (@bad) {
my $root_domain = $dps->get_root_domain($hostname);
is( $root_domain, undef, "$hostname correctly invalid: " . $dps->error );
}
done_testing();
1;