Commit dc3f179d authored by Christophe Maudoux's avatar Christophe Maudoux

Improve unit test (#1561)

parent aecbf41d
Pipeline #3597 passed with stages
in 7 minutes and 17 seconds
......@@ -24,8 +24,14 @@ ok( $res->[0] == 200, "Result code is 200" );
ok( $resBody = from_json( $res->[2]->[0] ), "Result body contains JSON text" );
ok( $resBody->{result} == 1, "JSON response contains \"result:1\"" )
or print STDERR Dumper($resBody);
ok( @{ $resBody->{details}->{__warnings__} } == 2, "JSON response contains 2 warnings" )
or print STDERR Dumper($resBody);
ok( $resBody->{details}->{__warnings__}->[0]->{message} =~ /(unprotected|cross-domain-authentication)/, "Warning with 'unprotect' or 'CDA' found" )
or print STDERR Dumper($resBody);
ok( $resBody->{details}->{__warnings__}->[1]->{message} =~ /(unprotected|cross-domain-authentication)/, "Warning with 'unprotect' or 'CDA' found" )
or print STDERR Dumper($resBody);
ok( -f $confFiles->[1], 'File is created' );
count(3);
my @changes = @{&changes};
my @cmsg = @{ $resBody->{details}->{__changes__} };
my $bug;
......
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