|
BEGIN {
require 't/test-lib.pm' ;
}
my $debug = 'error' ;
my ( $issuer , $res );
plan skip_all => "Missing dependencies: $@" if ($@);
ok( $issuer = issuer( 'none' ), 'Issuer portal' );
count(1);
ok( $issuer = issuer( 'error' ), 'Issuer portal' );
count(1);
expectPortalError( $res , 107 );
ok( $issuer = issuer( 'faketicket' ), 'Issuer portal' );
count(1);
expectPortalError( $res , 107 );
clean_sessions();
done_testing( count() );
sub gatewayRequest {
my ( $issuer , $url ) = @_ ;
return $issuer ->_get(
'/cas/login' ,
query => buildForm(
{
gateway => "true" ,
service => $url ,
}
),
accept => 'text/html' ,
);
}
sub issuer {
my ( $policy ) = @_ ;
return LLNG::Manager::Test->new(
{
ini => {
logLevel => $debug ,
domain => 'idp.com' ,
authentication => 'Demo' ,
userDB => 'Same' ,
issuerDBCASActivation => 1,
casAttr => 'uid' ,
casAppMetaDataOptions => {
sp2 => {
casAppMetaDataOptionsRule => "0" ,
},
},
casAccessControlPolicy => $policy ,
multiValuesSeparator => ';' ,
}
}
);
}
|