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' 'Unauth SP request'
); );
( $host, $url, $query );
( $url, $query ) = expectRedirection( $res, ( $url, $query ) = expectRedirection( $res,
qr#^http://auth.idp.com(/saml/singleSignOn)\?(SAMLRequest=.+)# ); qr#^http://auth.idp.com(/saml/singleSignOn)\?(SAMLRequest=.+)# );

View File

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

View File

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

View File

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

View File

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

View File

@ -80,7 +80,7 @@ ok(
), ),
'Test correct secret with good user auth' '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" ); is( $j->{result}, 1, "response has a result key with value 1" );
done_testing(); done_testing();

View File

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

View File

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