Fix warnings

This commit is contained in:
Christophe Maudoux 2020-12-23 16:23:28 +01:00
parent 0d44ad6933
commit c3d2b2b463
8 changed files with 3 additions and 10 deletions

View File

@ -106,7 +106,6 @@ SKIP: {
),
'Unauth SP request'
);
( $host, $url, $query );
( $url, $query ) = expectRedirection( $res,
qr#^http://auth.idp.com(/saml/singleSignOn)\?(SAMLRequest=.+)# );

View File

@ -88,8 +88,6 @@ my $metadata = $res->[2]->[0];
count(3);
# Do a user login to have an existing session
$res;
my $query = "user=french&password=french";
ok(
$res = $op->_post(

View File

@ -192,7 +192,6 @@ $pdata = expectCookie( $res, 'lemonldappdata' );
is( $pdata, '', "Pdata was cleared" );
count(1);
( $host, my $tmp );
( $host, $url, $query ) =
expectForm( $res, undef, qr#/oauth2/authorize.*#, 'confirm' );

View File

@ -165,7 +165,7 @@ $pdata = expectCookie( $res, 'lemonldappdata' );
is( $pdata, '', "Pdata was cleared" );
count(1);
( $host, my $tmp );
my $tmp;
( $host, $url, $query ) =
expectForm( $res, undef, qr#/oauth2/authorize.*#, 'confirm' );

View File

@ -13,7 +13,6 @@ BEGIN {
my $debug = 'error';
my $res;
my $url;
# Initialization
ok( my $op = op(), 'OP portal' );
@ -49,7 +48,7 @@ ok(
accept => 'text/html',
length => length($query),
),
"Post authentication, endpoint $url"
"Post authentication"
);
my $idpId = expectCookie($res);
my ($code) = expectRedirection( $res, qr#http://rp.com/\?.*code=([^&]+)# );

View File

@ -80,7 +80,7 @@ ok(
),
'Test correct secret with good user auth'
);
my $j = expectJSON($res);
$j = expectJSON($res);
is( $j->{result}, 1, "response has a result key with value 1" );
done_testing();

View File

@ -201,7 +201,6 @@ JjTJecOOS+88fK8qL1TrYv5rapIdqUI7aQ==
version => "U2F_V2"
}
);
( $host, $url, $query );
$query = Lemonldap::NG::Common::FormEncode::build_urlencoded(
registration => $registrationData,
challenge => $res->[2]->[0],

View File

@ -201,7 +201,6 @@ JjTJecOOS+88fK8qL1TrYv5rapIdqUI7aQ==
version => "U2F_V2"
}
);
( $host, $url, $query );
$query = Lemonldap::NG::Common::FormEncode::build_urlencoded(
registration => $registrationData,
challenge => $res->[2]->[0],