Add CDA+SOAP test (#1440)
This commit is contained in:
parent
7f7d068646
commit
663be11a35
|
@ -430,6 +430,7 @@ t/62-SingleSession.t
|
|||
t/63-History.t
|
||||
t/64-StayConnected.t
|
||||
t/65-AutoSignin.t
|
||||
t/66-CDA-with-SOAP.t
|
||||
t/66-CDA.t
|
||||
t/70-2F-TOTP.t
|
||||
t/71-2F-U2F.t
|
||||
|
|
180
lemonldap-ng-portal/t/66-CDA-with-SOAP.t
Normal file
180
lemonldap-ng-portal/t/66-CDA-with-SOAP.t
Normal file
|
@ -0,0 +1,180 @@
|
|||
use Test::More;
|
||||
use strict;
|
||||
use IO::String;
|
||||
use LWP::UserAgent;
|
||||
use inc::LWP::Protocol::PSGI;
|
||||
|
||||
use Lemonldap::NG::Portal::Main::Constants qw(
|
||||
PE_FIRSTACCESS
|
||||
);
|
||||
|
||||
require 't/test-lib.pm';
|
||||
|
||||
my $res;
|
||||
my $maintests = 8;
|
||||
my $debug = 'error';
|
||||
my %handlerOR = ( portal => [], app => [] );
|
||||
my $client;
|
||||
|
||||
# Redefine LWP methods for tests
|
||||
LWP::Protocol::PSGI->register(
|
||||
sub {
|
||||
my $req = Plack::Request->new(@_);
|
||||
ok( $req->uri =~ m#http://auth.example.com(.*)#, " @ SOAP REQUEST @" );
|
||||
my $url = $1;
|
||||
my $res;
|
||||
my $s = $req->content;
|
||||
switch ('portal');
|
||||
ok(
|
||||
$res = $client->_post(
|
||||
$url,
|
||||
IO::String->new($s),
|
||||
length => length($s),
|
||||
type => $req->header('Content-Type'),
|
||||
custom => {
|
||||
HTTP_SOAPACTION => $req->header('Soapaction'),
|
||||
},
|
||||
),
|
||||
' Execute request'
|
||||
);
|
||||
ok( getHeader( $res, 'Content-Type' ) =~ m#^(?:text|application)/xml#,
|
||||
' Content is XML' )
|
||||
or explain( $res->[1], 'Content-Type => application/xml' );
|
||||
pass(' @ END OF SOAP REQUEST @');
|
||||
count(4);
|
||||
switch ('app');
|
||||
return $res;
|
||||
}
|
||||
);
|
||||
|
||||
SKIP: {
|
||||
eval 'use SOAP::Lite';
|
||||
if ($@) {
|
||||
skip 'SOAP::Lite not found', $maintests;
|
||||
}
|
||||
$client = LLNG::Manager::Test->new(
|
||||
{
|
||||
ini => {
|
||||
logLevel => $debug,
|
||||
useSafeJail => 1,
|
||||
cda => 1,
|
||||
soapSessionServer => 1,
|
||||
logger => 'Lemonldap::NG::Common::Logger::Std',
|
||||
}
|
||||
}
|
||||
);
|
||||
$handlerOR{portal} = \@Lemonldap::NG::Handler::Main::_onReload;
|
||||
|
||||
# CDA with unauthentified user
|
||||
ok(
|
||||
$res = $client->_get(
|
||||
'/',
|
||||
query => 'url=aHR0cDovL3Rlc3QuZXhhbXBsZS5vcmcv',
|
||||
accept => 'text/html',
|
||||
),
|
||||
'Unauth CDA request'
|
||||
);
|
||||
my ( $host, $url, $query ) = expectForm( $res, undef, undef, 'url' );
|
||||
ok( $query =~ /\burl=aHR0cDovL3Rlc3QuZXhhbXBsZS5vcmcv\b/,
|
||||
' check url value' );
|
||||
|
||||
# Authentification
|
||||
$query .= '&user=dwho&password=dwho';
|
||||
ok(
|
||||
$res = $client->_post(
|
||||
'/' => IO::String->new($query),
|
||||
length => length($query),
|
||||
accept => 'text/html',
|
||||
),
|
||||
'Post credentials'
|
||||
);
|
||||
|
||||
($query) =
|
||||
expectRedirection( $res,
|
||||
qr#^http://test.example.org/\?(lemonldapcda=.*)$# );
|
||||
|
||||
# Handler part
|
||||
use_ok('Lemonldap::NG::Handler::Server');
|
||||
use_ok('Lemonldap::NG::Common::PSGI::Cli::Lib');
|
||||
|
||||
my ( $cli, $app );
|
||||
&Lemonldap::NG::Handler::Main::cfgNum( 0, 0 );
|
||||
switch ('app');
|
||||
ok(
|
||||
$app = Lemonldap::NG::Handler::Server->run(
|
||||
{
|
||||
%{ $client->ini },
|
||||
globalStorage => 'Lemonldap::NG::Common::Apache::Session::SOAP',
|
||||
globalStorageOptions =>
|
||||
{ proxy => 'http://auth.example.com/adminSessions' },
|
||||
localSessionStorage => undef,
|
||||
}
|
||||
),
|
||||
'App'
|
||||
);
|
||||
|
||||
ok(
|
||||
$res = $app->(
|
||||
{
|
||||
'HTTP_ACCEPT' => 'text/html',
|
||||
'SCRIPT_NAME' => '/',
|
||||
'SERVER_NAME' => '127.0.0.1',
|
||||
'QUERY_STRING' => $query,
|
||||
'HTTP_CACHE_CONTROL' => 'max-age=0',
|
||||
'HTTP_ACCEPT_LANGUAGE' => 'fr,fr-FR;q=0.8,en-US;q=0.5,en;q=0.3',
|
||||
'PATH_INFO' => '/',
|
||||
'REQUEST_METHOD' => 'GET',
|
||||
'REQUEST_URI' => "/?$query",
|
||||
'X_ORIGINAL_URI' => "/?$query",
|
||||
'SERVER_PORT' => '80',
|
||||
'SERVER_PROTOCOL' => 'HTTP/1.1',
|
||||
'HTTP_USER_AGENT' =>
|
||||
'Mozilla/5.0 (VAX-4000; rv:36.0) Gecko/20350101 Firefox',
|
||||
'REMOTE_ADDR' => '127.0.0.1',
|
||||
'HTTP_HOST' => 'test.example.org',
|
||||
'VHOSTTYPE' => 'CDA',
|
||||
}
|
||||
),
|
||||
'Push cda cookie'
|
||||
);
|
||||
expectRedirection( $res, 'http://test.example.org/' );
|
||||
my $cid = expectCookie($res);
|
||||
|
||||
ok(
|
||||
$res = $app->(
|
||||
{
|
||||
'HTTP_ACCEPT' => 'text/html',
|
||||
'SCRIPT_NAME' => '/',
|
||||
'SERVER_NAME' => '127.0.0.1',
|
||||
'HTTP_COOKIE' => "lemonldap=$cid",
|
||||
'HTTP_CACHE_CONTROL' => 'max-age=0',
|
||||
'HTTP_ACCEPT_LANGUAGE' => 'fr,fr-FR;q=0.8,en-US;q=0.5,en;q=0.3',
|
||||
'PATH_INFO' => '/',
|
||||
'REQUEST_METHOD' => 'GET',
|
||||
'REQUEST_URI' => "/",
|
||||
'X_ORIGINAL_URI' => "/",
|
||||
'SERVER_PORT' => '80',
|
||||
'SERVER_PROTOCOL' => 'HTTP/1.1',
|
||||
'HTTP_USER_AGENT' =>
|
||||
'Mozilla/5.0 (VAX-4000; rv:36.0) Gecko/20350101 Firefox',
|
||||
'REMOTE_ADDR' => '127.0.0.1',
|
||||
'HTTP_HOST' => 'test.example.org',
|
||||
'VHOSTTYPE' => 'CDA',
|
||||
}
|
||||
),
|
||||
'Authenticated query'
|
||||
);
|
||||
expectOK($res);
|
||||
expectAuthenticatedAs( $res, 'dwho' );
|
||||
}
|
||||
|
||||
clean_sessions();
|
||||
|
||||
done_testing( count($maintests) );
|
||||
|
||||
sub switch {
|
||||
my $type = shift;
|
||||
@Lemonldap::NG::Handler::Main::_onReload = @{
|
||||
$handlerOR{$type};
|
||||
};
|
||||
}
|
Loading…
Reference in New Issue
Block a user