# *-*-perl-*-*
use Test;
use strict;
$^W = 1;
use IP::Authority;
BEGIN { plan tests => 29 }
my $auth = IP::Authority->new();
while (<DATA>) {
chomp;
my ($ipaddr, $exp_auth) = split("\t");
if ($exp_auth){
ok($auth->inet_atoauth($ipaddr), $exp_auth);
}
}
__DATA__
203.174.65.12 AP
212.208.74.140 RI
200.219.192.106 LA
134.102.101.18 RI
193.75.148.28 RI
134.102.101.18 RI
147.251.48.1 RI
194.244.83.2 RI
203.15.106.23 AP
196.31.1.1 AF
210.54.22.1 AP
210.25.5.5 AP
210.54.122.1 AP
210.25.15.5 AP
192.37.51.100 RI
192.37.150.150 RI
192.106.51.100 RI
192.106.150.150 RI
203.174.65.12 AP
212.208.74.140 RI
200.219.192.106 LA
134.102.101.18 RI
193.75.148.28 RI
134.102.101.18 RI
147.251.48.1 RI
194.244.83.2 RI
203.15.106.23 AP
196.31.1.1 AF
209.243.9.154 AR