environments/ppa-mbqj77/deployments/361
Christophe Maudoux 7 years ago
parent 9ee90cbb74
commit 65296a4bdf
  1. 18
      lemonldap-ng-portal/t/61-ForceAuthn.t

@ -10,8 +10,7 @@ BEGIN {
my $res;
my $client = LLNG::Manager::Test->new(
{
ini => {
{ ini => {
authentication => 'Demo',
userdb => 'Same',
portalForceAuthn => 1,
@ -20,8 +19,7 @@ my $client = LLNG::Manager::Test->new(
}
);
ok(
$res = $client->_post(
ok( $res = $client->_post(
'/',
IO::String->new('user=dwho&password=dwho'),
length => 23
@ -35,8 +33,7 @@ count(1);
sleep 3;
ok(
$res = $client->_get(
ok( $res = $client->_get(
'/',
cookie => "lemonldap=$id1",
accept => 'text/html',
@ -47,8 +44,7 @@ ok( $res->[2]->[0] =~ qr%<span trspan="PE87"></span>%, 'Found PE87 code' )
or print STDERR Dumper( $res->[2]->[0] );
count(1);
ok(
$res = $client->_post(
ok( $res = $client->_post(
'/',
IO::String->new('user=dwho&password=dwho'),
length => 23,
@ -60,15 +56,15 @@ expectOK($res);
$id1 = expectCookie($res);
count(1);
ok(
$res = $client->_get(
ok( $res = $client->_get(
'/',
cookie => "lemonldap=$id1",
accept => 'text/html',
),
'Go to Portal'
);
ok( $res->[2]->[0] =~ qr%<span trspan="yourApps">Your applications</span>%, 'Found applications list' )
ok( $res->[2]->[0] =~ qr%<span trspan="yourApps">Your applications</span>%,
'Found applications list' )
or print STDERR Dumper( $res->[2]->[0] );
count(1);

Loading…
Cancel
Save