Fix configuration Parser & unit test (#1603)
This commit is contained in:
parent
0ffb9a4629
commit
237e7780c5
|
@ -544,6 +544,8 @@ sub _scanNodes {
|
|||
);
|
||||
@listCatRef = sort @listCatRef;
|
||||
@listCatNew = sort @listCatNew;
|
||||
hdebug( '# @listCatRef : ' . \@listCatRef );
|
||||
hdebug( '# @listCatNew : ' . \@listCatNew );
|
||||
for ( my $i = 0; $i < @listCatNew; $i++ ) {
|
||||
if ( not( defined $listCatRef[$i] )
|
||||
or $listCatRef[$i] ne $listCatNew[$i] )
|
||||
|
|
|
@ -37,7 +37,7 @@ foreach my $i (0 .. 1) {
|
|||
) or print STDERR Dumper($resBody);
|
||||
}
|
||||
|
||||
ok( @{ $resBody->{details}->{__changes__} } == 22,
|
||||
ok( @{ $resBody->{details}->{__changes__} } == 20,
|
||||
'JSON response contains 24 changes'
|
||||
) or print STDERR Dumper($resBody);
|
||||
#print STDERR Dumper($resBody);
|
||||
|
|
Loading…
Reference in New Issue
Block a user