Fix unit tests

register-approval
Christophe Maudoux 6 years ago
parent aff70428a8
commit 692f938188
  1. 6
      lemonldap-ng-portal/t/62-UpgradeSession.t
  2. 2
      lemonldap-ng-portal/t/67-CheckUser-with-issuer-SAML-POST.t
  3. 6
      lemonldap-ng-portal/t/67-CheckUser.t

@ -11,7 +11,7 @@ count(1);
my $client = LLNG::Manager::Test->new( {
ini => {
logLevel => 'debug',
logLevel => 'error',
upgradeSession => 1,
authentication => 'Choice',
apacheAuthnLevel => 5,
@ -61,7 +61,7 @@ ok(
'GET http://test1.example.com/AuthBasic'
);
count(1);
print STDERR Data::Dumper::Dumper $res;
#print STDERR Data::Dumper::Dumper $res;
ok(
my $res = $client->_get(
@ -72,7 +72,7 @@ ok(
'GET http://test1.example.com/AuthStrong'
);
count(1);
print STDERR Data::Dumper::Dumper $res;
#print STDERR Data::Dumper::Dumper $res;
# After attempting to access test1,
# the handler sends up back to /upgradesession

@ -287,7 +287,7 @@ SKIP: {
);
ok(
$res->[2]->[0] =~
m%<div class="message message-positive alert"><span trspan="PE5"></span></div>%,
m%<div class="alert alert-warning alert"><div class="text-center"><span trspan="PE5"></span></div></div>%,
' PE5 found'
) or explain( $res->[2]->[0], 'PE5 - Unknown identity' );
count(2);

@ -444,7 +444,7 @@ ok(
);
ok(
$res->[2]->[0] =~
m%<div class="message message-positive alert"><span trspan="PE5"></span></div>%,
m%<div class="alert alert-warning alert"><div class="text-center"><span trspan="PE5"></span></div></div>%,
' PE5 found'
) or explain( $res->[2]->[0], 'PE5 - Forbidden identity' );
count(2);
@ -463,7 +463,7 @@ ok(
);
ok(
$res->[2]->[0] =~
m%<div class="message message-positive alert"><span trspan="PE5"></span></div>%,
m%<div class="alert alert-warning alert"><div class="text-center"><span trspan="PE5"></span></div></div>%,
' PE5 found'
) or explain( $res->[2]->[0], 'PE5 - Unknown identity' );
count(2);
@ -482,7 +482,7 @@ ok(
);
ok(
$res->[2]->[0] =~
m%<div class="message message-positive alert"><span trspan="PE5"></span></div>%,
m%<div class="alert alert-warning alert"><div class="text-center"><span trspan="PE5"></span></div></div>%,
' PE5 found'
) or explain( $res->[2]->[0], 'PE5 - Unvalid identity' );
count(2);

Loading…
Cancel
Save