Fix warnings (#2611)

This commit is contained in:
Christophe Maudoux 2021-09-10 22:40:23 +02:00
parent 1901ef8232
commit f378c86337

View File

@ -7,7 +7,6 @@ use JSON;
require 't/test-lib.pm'; require 't/test-lib.pm';
my $res; my $res;
my $client = LLNG::Manager::Test->new( { my $client = LLNG::Manager::Test->new( {
ini => { ini => {
logLevel => 'error', logLevel => 'error',
@ -36,8 +35,7 @@ my $client = LLNG::Manager::Test->new( {
); );
# Test pwdConfirm endpoint # Test pwdConfirm endpoint
$res = expectJSON(
my $res = expectJSON(
postJSON( postJSON(
$client, $client,
"/proxy/pwdConfirm", "/proxy/pwdConfirm",
@ -51,7 +49,7 @@ my $res = expectJSON(
is( $res->{result}, 1, "Correct password is accepted" ); is( $res->{result}, 1, "Correct password is accepted" );
count(1); count(1);
my $res = expectJSON( $res = expectJSON(
postJSON( postJSON(
$client, $client,
"/proxy/pwdConfirm", "/proxy/pwdConfirm",
@ -65,7 +63,7 @@ my $res = expectJSON(
is( $res->{result}, 0, "Incorrect user is rejected" ); is( $res->{result}, 0, "Incorrect user is rejected" );
count(1); count(1);
my $res = expectJSON( $res = expectJSON(
postJSON( postJSON(
$client, $client,
"/proxy/pwdConfirm", "/proxy/pwdConfirm",
@ -81,7 +79,7 @@ count(1);
# Test getUser endpoint # Test getUser endpoint
# Existing user # Existing user
my $res = expectJSON( $res = expectJSON(
postJSON( postJSON(
$client, $client,
"/proxy/getUser", "/proxy/getUser",
@ -96,7 +94,7 @@ is( $res->{info}->{_whatToTrace}, "dwho", "Correct macro" );
count(3); count(3);
# Missing user # Missing user
my $res = expectJSON( $res = expectJSON(
postJSON( postJSON(
$client, $client,
"/proxy/getUser", "/proxy/getUser",
@ -110,7 +108,6 @@ is( $res->{info}, undef, "No attributes" );
count(2); count(2);
clean_sessions(); clean_sessions();
done_testing( count() ); done_testing( count() );
sub postJSON { sub postJSON {