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
30
31
32
33
|
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use GeoIP2::Database::Reader;
use Path::Class qw( file );
{
my $reader = GeoIP2::Database::Reader->new(
file => file(qw( maxmind-db test-data GeoIP2-ISP-Test.mmdb )) );
my $ip_address = '1.128.0.0';
my $isp = $reader->isp( ip => $ip_address );
is(
$isp->autonomous_system_number, 1221,
'correct ASN in ISP database'
);
is(
$isp->autonomous_system_organization,
'Telstra Pty Ltd', 'correct AS Org in ISP database'
);
is( $isp->isp, 'Telstra Internet', 'correct ISP in ISP database' );
is(
$isp->organization, 'Telstra Internet',
'correct Org in ISP database'
);
is( $isp->ip_address, $ip_address, 'correct IP in ISP database' );
}
done_testing();
|
