Commit c141ae7b authored by Xavier Guimard's avatar Xavier Guimard

Finish cleaning tests (#595)

parent 207ab388
......@@ -17,9 +17,9 @@ my $client = LLNG::Manager::Test->new(
);
ok( $res = $client->_get( '/', remote_user => 'dwho' ), 'Auth query' );
count(1);
expectOK($res);
my $id = expectCookie($res);
clean_sessions();
count(3);
done_testing( count() );
......@@ -3,10 +3,11 @@ use strict;
use IO::String;
my $res;
my $mainTests = 2;
require 't/test-lib.pm';
SKIP: {
skip 'REMOTELLNG is not set', 10 unless ( $ENV{REMOTELLNG} );
require 't/test-lib.pm';
skip 'REMOTELLNG is not set', $mainTests unless ( $ENV{REMOTELLNG} );
my $client = LLNG::Manager::Test->new(
{
ini => {
......@@ -26,13 +27,11 @@ SKIP: {
),
'Auth query'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
my $cookies = $client->getCookies($res);
my $id;
ok( $id = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
expectOK($res);
my $id = expectCookie($res);
$client->logout($id);
clean_sessions();
}
done_testing(10);
count($mainTests);
done_testing( count() );
......@@ -5,16 +5,17 @@ use IO::String;
require 't/test-lib.pm';
my $res;
my $mainTests = 1;
eval { unlink 't/userdb.db' };
SKIP: {
eval { require DBI; require DBD::SQLite; };
if ($@) {
skip 'DBD::SQLite not found', 3;
skip 'DBD::SQLite not found', $mainTests;
}
elsif ( !$ENV{LDAPSERVER} ) {
skip 'No LDAP server given', 3;
skip 'No LDAP server given', $mainTests;
}
my $dbh = DBI->connect("dbi:SQLite:dbname=t/userdb.db");
$dbh->do('CREATE TABLE users (user text,password text,name text)');
......@@ -69,16 +70,13 @@ SKIP: {
),
'Auth query'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
my $cookies = $client->getCookies($res);
my $id;
ok( $id = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
expectOK($res);
my $id = expectCookie($res);
$client->logout($id);
}
clean_sessions();
}
count(3);
count($mainTests);
eval { unlink 't/userdb.db' };
done_testing( count() );
......@@ -23,12 +23,9 @@ ok(
),
'Auth query'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
my $cookies = $client->getCookies($res);
my $id;
ok( $id = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
count(1);
expectOK($res);
my $id = expectCookie($res);
clean_sessions();
count(3);
done_testing( count() );
......@@ -7,7 +7,7 @@ BEGIN {
require 't/test-lib.pm';
}
my $maintests = 21;
my $maintests = 12;
my $debug = 'error';
my ( $issuer, $sp, $res );
my %handlerOR = ( issuer => [], sp => [] );
......@@ -36,11 +36,8 @@ SKIP: {
),
'Auth query'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
my $cookies = $issuer->getCookies($res);
my $idpId;
ok( $idpId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res->[1], 'Set-Cookie: something' );
expectOK($res);
my $idpId = expectCookie($res);
# Query IdP to access to SP
ok(
......@@ -52,9 +49,7 @@ SKIP: {
),
'Query IdP to access to SP'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
# Post SAML response to SP
expectOK($res);
ok(
$res->[2]->[0] =~
m#<form.+?action="http://auth.sp.com(.*?)".+?method="post"#,
......@@ -67,6 +62,8 @@ SKIP: {
'Found SAML response'
);
my $s = "SAMLResponse=$1";
# Post SAML response to SP
switch ('sp');
ok(
$res = $sp->_post(
......@@ -79,21 +76,12 @@ SKIP: {
);
# Verify authentication on SP
ok( $res->[0] == 302, 'Get redirection' );
$cookies = $sp->getCookies($res);
my $spId;
ok( $spId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
ok( $sp->getRedirection($res) eq 'http://auth.sp.com',
'Redirection points to SP portal' )
or explain( $res, 'Location: http://auth.sp.com' );
my $spId = expectCookie($res);
expectRedirection( $res, 'http://auth.sp.com' );
ok( $res = $sp->_get( '/', cookie => "lemonldap=$spId" ), 'Get / on SP' );
ok( $res->[0] == 200, 'User is authentified' ) or explain( $res->[0], 200 );
ok(
$sp->getUser($res) eq 'dwho@badwolf.org@idp',
'User is identified as dwho@badwolf.org@idp'
) or explain( $res->[1], 'Lm-Remote-User: dwho@badwolf.org@idp' );
expectOK($res);
expectAuthenticatedAs( $res, 'dwho@badwolf.org@idp' );
# Logout initiated by IdP
switch ('issuer');
......@@ -104,9 +92,9 @@ SKIP: {
cookie => "lemonldap=$idpId",
accept => 'text/html'
),
'Query SP for logout'
'Query IdP for logout'
);
ok( $res->[0] == 200, 'Return code is 200' );
expectOK($res);
ok(
$res->[2]->[0] =~
......@@ -117,15 +105,14 @@ m#img src="http://auth.idp.com(/saml/relaySingleLogoutSOAP)\?(relay=.*?)"#s,
ok(
$res = $issuer->_get(
$1,
query => $2,
#cookie => "lemonldap=$idpId",
query => $2,
cookie => "lemonldap=$idpId",
accept => 'text/html'
),
'Get image'
);
ok( $issuer->getHeader( $res, 'Content-Type' ) eq 'image/png',
'Get an image' );
ok( getHeader( $res, 'Content-Type' ) eq 'image/png', 'Get an image' )
or explain( [ $res->[0], $res->[1] ], 'Content-Type => image/png' );
}
......@@ -135,6 +122,7 @@ done_testing( count() );
# Redefine LWP methods for tests
no warnings 'redefine';
sub LWP::UserAgent::request {
my ( $self, $req ) = @_;
ok( $req->uri =~ m#http://auth.sp.com(.*)#, 'Request from SP to IdP' );
......@@ -151,7 +139,7 @@ sub LWP::UserAgent::request {
);
ok( ( $res->[0] == 200 or $res->[0] == 400 ), 'Response is 200 or 400' )
or explain( $res->[0], "200 or 400" );
ok( $issuer->getHeader( $res, 'Content-Type' ) =~ m#^application/xml#,
ok( getHeader( $res, 'Content-Type' ) =~ m#^application/xml#,
'Content is XML' )
or explain( $res->[1], 'Content-Type => application/xml' );
my $httpResp = HTTP::Response->new( $res->[0], 'OK' );
......
......@@ -7,7 +7,7 @@ BEGIN {
require 't/test-lib.pm';
}
my $maintests = 26;
my $maintests = 12;
my $debug = 'error';
my ( $issuer, $sp, $res );
my %handlerOR = ( issuer => [], sp => [] );
......@@ -34,15 +34,8 @@ SKIP: {
),
'Unauth SP request'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
my $cookies = $sp->getCookies($res);
ok(
(
defined( $cookies->{lemonldapidp} )
and $cookies->{lemonldapidp} == 0
),
'IDP cookie deleted'
)
expectOK($res);
ok( expectCookie( $res, 'lemonldapidp' ) == 0, 'IDP cookie deleted' )
or explain( $res->[1],
'Set-Cookie => lemonldapidp=0; domain=.sp.com; path=/; expires=-1d' );
ok(
......@@ -67,34 +60,13 @@ SKIP: {
),
'Select IDP'
);
ok( $res->[0] == 302, 'Return code is 302' ) or explain( $res->[0], 302 );
$cookies = $sp->getCookies($res);
ok(
(
defined( $cookies->{lemonldapidp} )
and $cookies->{lemonldapidp} eq
'http://auth.idp.com/saml/metadata'
),
'IDP cookie defined'
)
ok( expectCookie( $res, 'lemonldapidp' ), 'IDP cookie defined' )
or explain(
$res->[1],
'Set-Cookie => lemonldapidp=http://auth.idp.com/saml/metadata; domain=.sp.com; path=/'
);
my $url;
ok( $url = $sp->getRedirection($res), 'Get location header' )
or explain( $res->[1],
'Location: http://auth.idp.com/saml/singleSignOn?SAMLRequest=...' );
ok( $url =~ m#^http://auth.idp.com/saml/singleSignOn\?SAMLRequest=(.+)#,
'Redirection points to IdP with SAML request' )
or explain( $res->[1],
'Location: http://auth.idp.com/saml/singleSignOn?SAMLRequest=...' );
my ( $query, $samlReq );
$url =~ m#^http://auth.idp.com(.+?)\?(.+)$#;
$url = $1;
$query = $2;
ok( $query =~ /SAMLRequest=([^&]+)/s, 'Found SAML request in URL' );
$samlReq = $1;
my ( $url, $query ) = expectRedirection( $res,
qr#^http://auth.idp.com(/saml/singleSignOn)\?(SAMLRequest=.+)# );
#ok( decode_base64($samlReq) =~ /^</s, 'SAML request seems valid' )
# or explain( decode_base64($samlReq), '<?xml ...' );
......@@ -109,7 +81,7 @@ SKIP: {
),
'Launch SAML request to IdP'
);
ok( $res->[0] == 200, 'Return code is 200' ) or explain( $res->[0], 200 );
expectOK($res);
# Try to authenticate to IdP
my $body = $res->[2]->[0];
......@@ -129,22 +101,10 @@ SKIP: {
),
'Post authentication'
);
ok( $res->[0] == 302, 'Response is 302' ) or explain( $res->[0], 200 );
$cookies = $sp->getCookies($res);
my $idpId;
ok( $idpId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
ok(
$issuer->getRedirection($res) =~
m#http://auth.sp.com(/saml/proxySingleSignOnArtifact)\?(SAMLart=[^&]+)#,
'Get artifact'
)
or explain(
$res,
'Location: http://auth.sp.com/saml/proxySingleSignOnArtifact?SAMLart=...'
);
$url = $1;
$query = $2;
my $idpId = expectCookie($res);
( $url, $query ) = expectRedirection( $res,
qr#http://auth.sp.com(/saml/proxySingleSignOnArtifact)\?(SAMLart=[^&]+)#
);
# Query SP with SAML artifact
switch ('sp');
......@@ -158,21 +118,13 @@ m#http://auth.sp.com(/saml/proxySingleSignOnArtifact)\?(SAMLart=[^&]+)#,
),
'Push artifact to SP'
);
ok( $res->[0] == 302, 'Get redirection' );
$cookies = $sp->getCookies($res);
my $spId;
ok( $spId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
ok( $sp->getRedirection($res) eq 'http://auth.sp.com',
'Redirection points to SP portal' )
or explain( $res, 'Location: http://auth.sp.com' );
my $spId = expectCookie($res);
expectRedirection( $res, 'http://auth.sp.com' );
# Verify authentication
ok( $res = $sp->_get( '/', cookie => "lemonldap=$spId" ), 'Get / on SP' );
ok( $res->[0] == 200, 'User is authentified' ) or explain( $res->[0], 200 );
ok(
$sp->getUser($res) eq 'dwho@badwolf.org@idp',
'User is identified as dwho@badwolf.org@idp'
) or explain( $res->[1], 'Lm-Remote-User: dwho@badwolf.org@idp' );
expectOK($res);
expectAuthenticatedAs( $res, 'dwho@badwolf.org@idp' );
# Logout initiated by SP
ok(
......@@ -196,6 +148,7 @@ no warnings 'redefine';
# Redefine LWP methods for tests
no warnings 'redefine';
sub LWP::UserAgent::request {
my ( $self, $req ) = @_;
ok( $req->uri =~ m#http://auth.idp.com(.*)#, 'Request from SP to IdP' );
......@@ -210,9 +163,8 @@ sub LWP::UserAgent::request {
),
'Execute request'
);
ok( ( $res->[0] == 200 or $res->[0] == 400 ), 'Response is 200 or 400' )
or explain( $res->[0], "200 or 400" );
ok( $issuer->getHeader( $res, 'Content-Type' ) =~ m#^application/xml#,
expectOK($res);
ok( getHeader( $res, 'Content-Type' ) =~ m#^application/xml#,
'Content is XML' )
or explain( $res->[1], 'Content-Type => application/xml' );
my $httpResp = HTTP::Response->new( $res->[0], 'OK' );
......@@ -221,7 +173,7 @@ sub LWP::UserAgent::request {
$httpResp->header( $name, shift( @{ $res->[1] } ) );
}
$httpResp->content( join( '', @{ $res->[2] } ) );
count(4);
count(3);
return $httpResp;
}
......
......@@ -7,7 +7,7 @@ BEGIN {
require 't/test-lib.pm';
}
my $maintests = 21;
my $maintests = 12;
my $debug = 'error';
my ( $issuer, $sp, $res );
my %handlerOR = ( issuer => [], sp => [] );
......@@ -36,11 +36,8 @@ SKIP: {
),
'Auth query'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
my $cookies = $issuer->getCookies($res);
my $idpId;
ok( $idpId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res->[1], 'Set-Cookie: something' );
expectOK($res);
my $idpId = expectCookie($res);
# Query IdP to access to SP
ok(
......@@ -52,9 +49,7 @@ SKIP: {
),
'Query IdP to access to SP'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
# Post SAML response to SP
expectOK($res);
ok(
$res->[2]->[0] =~
m#<form.+?action="http://auth.sp.com(.*?)".+?method="post"#,
......@@ -67,6 +62,8 @@ SKIP: {
'Found SAML response'
);
my $s = "SAMLResponse=$1";
# Post SAML response to SP
switch ('sp');
ok(
$res = $sp->_post(
......@@ -79,21 +76,12 @@ SKIP: {
);
# Verify authentication on SP
ok( $res->[0] == 302, 'Get redirection' );
$cookies = $sp->getCookies($res);
my $spId;
ok( $spId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
ok( $sp->getRedirection($res) eq 'http://auth.sp.com',
'Redirection points to SP portal' )
or explain( $res, 'Location: http://auth.sp.com' );
my $spId = expectCookie($res);
expectRedirection( $res, 'http://auth.sp.com' );
ok( $res = $sp->_get( '/', cookie => "lemonldap=$spId" ), 'Get / on SP' );
ok( $res->[0] == 200, 'User is authentified' ) or explain( $res->[0], 200 );
ok(
$sp->getUser($res) eq 'dwho@badwolf.org@idp',
'User is identified as dwho@badwolf.org@idp'
) or explain( $res->[1], 'Lm-Remote-User: dwho@badwolf.org@idp' );
expectOK($res);
expectAuthenticatedAs( $res, 'dwho@badwolf.org@idp' );
# Logout initiated by IdP
switch ('issuer');
......@@ -106,7 +94,7 @@ SKIP: {
),
'Query IdP for logout'
);
ok( $res->[0] == 200, 'Return code is 200' );
expectOK($res);
ok(
$res->[2]->[0] =~
......@@ -117,15 +105,14 @@ m#img src="http://auth.idp.com(/saml/relaySingleLogoutSOAP)\?(relay=.*?)"#s,
ok(
$res = $issuer->_get(
$1,
query => $2,
#cookie => "lemonldap=$idpId",
query => $2,
cookie => "lemonldap=$idpId",
accept => 'text/html'
),
'Get image'
);
ok( $issuer->getHeader( $res, 'Content-Type' ) eq 'image/png',
'Get an image' );
ok( getHeader( $res, 'Content-Type' ) eq 'image/png', 'Get an image' )
or explain( [ $res->[0], $res->[1] ], 'Content-Type => image/png' );
}
......@@ -135,6 +122,7 @@ done_testing( count() );
# Redefine LWP methods for tests
no warnings 'redefine';
sub LWP::UserAgent::request {
my ( $self, $req ) = @_;
ok( $req->uri =~ m#http://auth.sp.com(.*)#, 'Request from SP to IdP' );
......@@ -151,7 +139,7 @@ sub LWP::UserAgent::request {
);
ok( ( $res->[0] == 200 or $res->[0] == 400 ), 'Response is 200 or 400' )
or explain( $res->[0], "200 or 400" );
ok( $issuer->getHeader( $res, 'Content-Type' ) =~ m#^application/xml#,
ok( getHeader( $res, 'Content-Type' ) =~ m#^application/xml#,
'Content is XML' )
or explain( $res->[1], 'Content-Type => application/xml' );
my $httpResp = HTTP::Response->new( $res->[0], 'OK' );
......
......@@ -7,7 +7,7 @@ BEGIN {
require 't/test-lib.pm';
}
my $maintests = 39;
my $maintests = 25;
my $debug = 'error';
my ( $issuer, $sp, $res );
my %handlerOR = ( issuer => [], sp => [] );
......@@ -34,15 +34,8 @@ SKIP: {
),
'Unauth SP request'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
my $cookies = $sp->getCookies($res);
ok(
(
defined( $cookies->{lemonldapidp} )
and $cookies->{lemonldapidp} == 0
),
'IDP cookie deleted'
)
expectOK($res);
ok( expectCookie( $res, 'lemonldapidp' ) == 0, 'IDP cookie deleted' )
or explain( $res->[1],
'Set-Cookie => lemonldapidp=0; domain=.sp.com; path=/; expires=-1d' );
ok(
......@@ -67,16 +60,8 @@ SKIP: {
),
'Select IDP'
);
ok( $res->[0] == 200, 'Return code is 200' );
$cookies = $sp->getCookies($res);
ok(
(
defined( $cookies->{lemonldapidp} )
and $cookies->{lemonldapidp} eq
'http://auth.idp.com/saml/metadata'
),
'IDP cookie defined'
)
expectOK($res);
ok( expectCookie( $res, 'lemonldapidp' ), 'IDP cookie defined' )
or explain(
$res->[1],
'Set-Cookie => lemonldapidp=http://auth.idp.com/saml/metadata; domain=.sp.com; path=/'
......@@ -111,7 +96,7 @@ SKIP: {
),
'Post SAML request to IdP'
);
ok( $res->[0] == 200, 'Return code is 200' );
expectOK($res);
# Try to authenticate to IdP
my $body = $res->[2]->[0];
......@@ -131,11 +116,8 @@ SKIP: {
),
'Post authentication'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
$cookies = $sp->getCookies($res);
my $idpId;
ok( $idpId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
expectOK($res);
my $idpId = expectCookie($res);
# Post SAML response to SP
ok(
......@@ -162,21 +144,12 @@ SKIP: {
);
# Verify authentication on SP
ok( $res->[0] == 302, 'Get redirection' );
$cookies = $sp->getCookies($res);
my $spId;
ok( $spId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
ok( $sp->getRedirection($res) eq 'http://auth.sp.com',
'Redirection points to SP portal' )
or explain( $res, 'Location: http://auth.sp.com' );
expectRedirection( $res, 'http://auth.sp.com' );
my $spId = expectCookie($res);
ok( $res = $sp->_get( '/', cookie => "lemonldap=$spId" ), 'Get / on SP' );
ok( $res->[0] == 200, 'User is authentified' ) or explain( $res->[0], 200 );
ok(
$sp->getUser($res) eq 'dwho@badwolf.org@idp',
'User is identified as dwho@badwolf.org@idp'
) or explain( $res->[1], 'Lm-Remote-User: dwho@badwolf.org@idp' );
expectOK($res);
expectAuthenticatedAs( $res, 'dwho@badwolf.org@idp' );
# Logout initiated by SP
ok(
......@@ -188,7 +161,7 @@ SKIP: {
),
'Query SP for logout'
);
ok( $res->[0] == 200, 'Return code is 200' );
expectOK($res);
ok(
$res->[2]->[0] =~
/<input type="hidden".+?name="SAMLRequest".+?value="(.+?)"/s,
......@@ -218,9 +191,9 @@ SKIP: {
cookie => "lemonldap=$idpId",
length => length($s)
),
'Post SAML request to IdP'
'Post SAML logout request to IdP'
);
ok( $res->[0] == 200, 'Return code is 200' );
expectOK($res);
# Get SAML response
ok(
......@@ -253,9 +226,7 @@ SKIP: {
),
'Post SAML response to SP'
);
ok( $res->[0] == 302, 'Get redirection' );
ok( $sp->getRedirection($res) eq 'http://auth.sp.com',
'Redirection points to SP' );
expectRedirection( $res, 'http://auth.sp.com' );
#print STDERR Dumper($res);
}
......
......@@ -7,7 +7,7 @@ BEGIN {
require 't/test-lib.pm';
}
my $maintests = 21;
my $maintests = 12;
my $debug = 'error';
my ( $issuer, $sp, $res );
my %handlerOR = ( issuer => [], sp => [] );
......@@ -36,11 +36,8 @@ SKIP: {
),
'Auth query'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
my $cookies = $issuer->getCookies($res);
my $idpId;
ok( $idpId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res->[1], 'Set-Cookie: something' );
expectOK($res);
my $idpId = expectCookie($res);
# Query IdP to access to SP
ok(
......@@ -52,9 +49,7 @@ SKIP: {
),
'Query IdP to access to SP'
);
ok( $res->[0] == 200, 'Response is 200' ) or explain( $res->[0], 200 );
# Post SAML response to SP
expectOK($res);
ok(
$res->[2]->[0] =~
m#<form.+?action="http://auth.sp.com(.*?)".+?method="post"#,
......@@ -67,6 +62,8 @@ SKIP: {
'Found SAML response'
);
my $s = "SAMLResponse=$1";
# Post SAML response to SP
switch ('sp');
ok(
$res = $sp->_post(
......@@ -79,21 +76,12 @@ SKIP: {
);
# Verify authentication on SP
ok( $res->[0] == 302, 'Get redirection' );
$cookies = $sp->getCookies($res);
my $spId;
ok( $spId = $cookies->{lemonldap}, 'Get cookie' )
or explain( $res, 'Set-Cookie: something' );
ok( $sp->getRedirection($res) eq 'http://auth.sp.com',
'Redirection points to SP portal' )
or explain( $res, 'Location: http://auth.sp.com' );
my $spId = expectCookie($res);
expectRedirection( $res, 'http://auth.sp.com' );
ok( $res = $sp->_get( '/', cookie => "lemonldap=$spId" ), 'Get / on SP' );
ok( $res->[0] == 200, 'User is authentified' ) or explain( $res->[0], 200 );
ok(
$sp->getUser($res) eq 'dwho@badwolf.org@idp',
'User is identified as dwho@badwolf.org@idp'
) or explain( $res->[1], 'Lm-Remote-User: dwho@badwolf.org@idp' );
expectOK($res);
expectAuthenticatedAs( $res, 'dwho@badwolf.org@idp' );
# Logout initiated by IdP
switch ('issuer');
......@@ -104,9 +92,9 @@ SKIP: {
cookie => "lemonldap=$idpId",
accept => 'text/html'
),
'Query SP for logout'
'Query IdP for logout'
);
ok( $res->[0] == 200, 'Return code is 200' );
expectOK($res);
ok(
$res->[2]->[0] =~
......@@ -117,15 +105,14 @@ m#img src="http://auth.idp.com(/saml/relaySingleLogoutSOAP)\?(relay=.*?)"#s,
ok(
$res = $issuer->_get(
$1,
query => $2,
#cookie => "lemonldap=$idpId",
query => $2,
cookie => "lemonldap=$idpId",
accept => 'text/html'
),
'Get image'