Merge branch 'master' of gitlab.ow2.org:lemonldap-ng/lemonldap-ng
This commit is contained in:
commit
ffef6ed665
@ -37,19 +37,19 @@ while ( my $c = shift @{ $resBody->{details}->{__changes__} } ) {
|
|||||||
my @d2 = grep { $_->{key} eq $c->{key} } @cmsg;
|
my @d2 = grep { $_->{key} eq $c->{key} } @cmsg;
|
||||||
@changes = grep { $_->{key} ne $c->{key} } @changes;
|
@changes = grep { $_->{key} ne $c->{key} } @changes;
|
||||||
@cmsg = grep { $_->{key} ne $c->{key} } @cmsg;
|
@cmsg = grep { $_->{key} ne $c->{key} } @cmsg;
|
||||||
if( $c->{key} eq 'applicationList' ) {
|
if ( $c->{key} eq 'applicationList' ) {
|
||||||
pass qq("$c->{key}" found);
|
pass qq("$c->{key}" found);
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
ok( ( $cmp1 - @changes ) == ( $cmp2 - @cmsg ), qq("$c->{key}" found) )
|
ok( ( $cmp1 - @changes ) == ( $cmp2 - @cmsg ), qq("$c->{key}" found) )
|
||||||
or print STDERR 'Expect: '
|
or print STDERR 'Expect: '
|
||||||
. ( $cmp1 - @changes )
|
. ( $cmp1 - @changes )
|
||||||
. ', got: '
|
. ', got: '
|
||||||
. ( $cmp2 - @cmsg )
|
. ( $cmp2 - @cmsg )
|
||||||
. "\nExpect: "
|
. "\nExpect: "
|
||||||
. Dumper( \@d1 ) . "Got: "
|
. Dumper( \@d1 ) . "Got: "
|
||||||
. Dumper( \@d2 );
|
. Dumper( \@d2 );
|
||||||
}
|
}
|
||||||
count(1);
|
count(1);
|
||||||
}
|
}
|
||||||
ok( !@changes, 'All changes detected' ) or $bug = 1;
|
ok( !@changes, 'All changes detected' ) or $bug = 1;
|
||||||
|
Loading…
Reference in New Issue
Block a user