5 |
|
|
6 |
use Data::Dumper; |
use Data::Dumper; |
7 |
|
|
8 |
use Test::More tests => 108; |
use Test::More tests => 110; |
9 |
|
|
10 |
BEGIN { use_ok( 'IsisDB' ); } |
BEGIN { use_ok( 'IsisDB' ); } |
11 |
|
|
24 |
SKIP: { |
SKIP: { |
25 |
skip "no CNT file for this database", 5 unless $isis->{cnt_file}; |
skip "no CNT file for this database", 5 unless $isis->{cnt_file}; |
26 |
|
|
27 |
$isis->read_cnt; |
ok(my $isis_cnt = $isis->read_cnt, "read_cnt"); |
28 |
|
|
29 |
|
cmp_ok(scalar keys %{$isis_cnt}, '==', 2, "returns 2 elements"); |
30 |
|
|
31 |
my $cnt = { |
my $cnt = { |
32 |
'1' => { |
'1' => { |
55 |
|
|
56 |
foreach my $c (keys %{$cnt}) { |
foreach my $c (keys %{$cnt}) { |
57 |
foreach my $kn (keys %{$cnt->{$c}}) { |
foreach my $kn (keys %{$cnt->{$c}}) { |
58 |
cmp_ok($isis->{cnt}->{$c}->{$kn}, '==', $cnt->{$c}->{$kn}, "cnt $c $kn same"); |
cmp_ok($isis_cnt->{$c}->{$kn}, '==', $cnt->{$c}->{$kn}, "cnt $c $kn same"); |
59 |
} |
} |
60 |
} |
} |
61 |
} |
} |