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
|
use strict;
use warnings;
use autodie;
use lib 't/lib';
use Test::Requires {
JSON => 0,
};
use Test::MaxMind::DB::Writer qw( make_tree_from_pairs test_iterator_sanity );
use Test::MaxMind::DB::Writer::Iterator ();
use Test::More;
use JSON ();
{
open my $fh, '<', 't/test-data/geolite2-sample.json' or die $!;
my $geolite2_data = do { local $/ = undef; <$fh> };
my $records = JSON->new->decode($geolite2_data);
close $fh or die $!;
my $tree = make_tree_from_pairs(
'network',
$records, { alias_ipv6_to_ipv4 => 1 }
);
my $iterator = Test::MaxMind::DB::Writer::Iterator->new(6);
$tree->iterate($iterator);
test_iterator_sanity(
$iterator, $tree, 1115,
'tree from geolite2 sample data'
);
}
done_testing();
|
