|
|
|
@ -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); |
|
|
|
|
|
|
|
|
|