Fix warnings
This commit is contained in:
parent
0d44ad6933
commit
c3d2b2b463
|
@ -106,7 +106,6 @@ SKIP: {
|
|||
),
|
||||
'Unauth SP request'
|
||||
);
|
||||
( $host, $url, $query );
|
||||
( $url, $query ) = expectRedirection( $res,
|
||||
qr#^http://auth.idp.com(/saml/singleSignOn)\?(SAMLRequest=.+)# );
|
||||
|
||||
|
|
|
@ -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(
|
||||
|
|
|
@ -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' );
|
||||
|
||||
|
|
|
@ -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' );
|
||||
|
||||
|
|
|
@ -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=([^&]+)# );
|
||||
|
|
|
@ -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();
|
||||
|
|
|
@ -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],
|
||||
|
|
|
@ -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],
|
||||
|
|
Loading…
Reference in New Issue