view release on metacpan or  search on metacpan

MANIFEST.SKIP  view on Meta::CPAN

55
56
57
58
59
60
61
62
63
64
65
# Mac OSX metadata
\B\.DS_Store
# Mac OSX SMB mount metadata files
\B\._
 
# Avoid Devel::Cover files.
\bcover_db\b
 
\.vscode
 
\.map$

t/Acme-Free-API-Geodata-GeoIP.t  view on Meta::CPAN

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 tests => 8;
BEGIN { use_ok('Acme::Free::API::Geodata::GeoIP') };
 
my $geoip = Acme::Free::API::Geodata::GeoIP->new(debug => 0);
ok(defined($geoip), 'Initialization');
 
my %map = (
    '24.48.0.1' => 'Videotron',
    '94.130.141.212' => 'Hetzner',
);
 
foreach my $ip (sort keys %map) {
    my $org = $map{$ip};
 
    my $result = $geoip->lookup($ip);
    ok(defined($result), "Lookup $ip");
 
    next if(!defined($result));
 
    ok(defined($result->{org}), 'Contains org');
    next if(!defined($result->{org}));
 
    my $ismatch = 0;