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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
use strict;
use warnings;
use autodie;
use Test::Fatal;
use Test::More;
use lib 't/lib';
# This must come before `use MaxMind::DB::Reader;` as otherwise the wrong
# reader may be loaded
use Test::MaxMind::DB::Reader;
use MaxMind::DB::Reader;
use Module::Implementation ();
use Path::Class 0.27 qw( tempdir );
{ # Test broken doubles
my $reader
= MaxMind::DB::Reader->new( file =>
'maxmind-db/test-data/GeoIP2-City-Test-Broken-Double-Format.mmdb'
);
like(
exception { $reader->record_for_address('2001:220::') },
qr/The MaxMind DB file's data section contains bad data \(unknown data type or corrupt data\)/,
'got expected error for broken doubles'
);
}
{ # test broken search tree pointer
my $reader = MaxMind::DB::Reader->new( file =>
'maxmind-db/test-data/MaxMind-DB-test-broken-pointers-24.mmdb' );
like(
exception { $reader->record_for_address('1.1.1.32') },
qr/The MaxMind DB file's search tree is corrupt/,
'received expected exception with broken search tree pointer'
);
}
{ # test broken data pointer
my $reader = MaxMind::DB::Reader->new( file =>
'maxmind-db/test-data/MaxMind-DB-test-broken-pointers-24.mmdb' );
like(
exception { $reader->record_for_address('1.1.1.16') },
qr/The MaxMind DB file's data section contains bad data \(unknown data type or corrupt data\)/,
'received expected exception with broken data pointer'
);
}
{ # test non-database
my $dir = tempdir( CLEANUP => 1 );
my $file = $dir->file('garbage');
open my $fh, '>', $file;
print {$fh} "garbage text\n"
or die $!;
close $fh;
my $expect
= qr/Error opening database file "\Q$file\E": The MaxMind DB file contains invalid metadata/;
## no critic (Subroutines::ProhibitCallsToUnexportedSubs, Modules::RequireExplicitInclusion)
if ( Module::Implementation::implementation_for('MaxMind::DB::Reader') eq
'XS' ) {
my ( undef, $minor, $patch ) = (
split /\./,
MaxMind::DB::Reader::XS::libmaxminddb_version()
);
# Newer versions of libmaxminddb do better error checking and so end
# up throwing a different error on this garbage file.
if ( $minor >= 1 && $patch >= 3 ) {
$expect
= qr/Error opening database file "\Q$file\E": The MaxMind DB file contains invalid metadata .+/;
}
elsif ( $minor >= 1 && $patch >= 2 ) {
$expect
= qr/Error opening database file "\Q$file\E": The lookup path does not match the data .+/;
}
}
## use critic
like(
exception { MaxMind::DB::Reader->new( file => $file ) },
$expect,
'expected exception with unknown file type'
);
}
{ # test missing file
like(
exception {
MaxMind::DB::Reader->new( file => 'does/not/exist.mmdb' );
},
qr/Error opening database file "does\/not\/exist.mmdb"/,
'expected exception with file that does not exist'
);
}
done_testing();
|
