Commit b87d4e22 authored by Xavier Guimard's avatar Xavier Guimard

tidy

parent 248b81ad
...@@ -37,19 +37,19 @@ while ( my $c = shift @{ $resBody->{details}->{__changes__} } ) { ...@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment