dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tidy

Browse Source
This commit is contained in:
Christophe Maudoux 2019-06-12 22:43:16 +02:00
parent 55e26efe4e
commit 313fe39ed9
2 changed files with 38 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/ServiceToken.pm
View File

@ -14,8 +14,8 @@ sub fetchId {
# Decrypt token
my $s = $class->tsv->{cipher}->decrypt($token);
# Token format:
# time:_session_id:vhost1:vhost2:serviceHeader1=value1:serviceHeader2=value2,...
# Token format:
# time:_session_id:vhost1:vhost2:serviceHeader1=value1:serviceHeader2=value2,...
my ( $t, $_session_id, @vhosts ) = split /:/, $s;
# Looking for service headers

60
lemonldap-ng-handler/t/65-Lemonldap-NG-Handler-PSGI-ServiceToken.t
View File

@ -33,10 +33,12 @@ init(
my $res;
my $crypt = Lemonldap::NG::Common::Crypto->new('qwertyui');
my $token =
$crypt->encrypt( join ':', time, $sessionId, 'test1.example.com',
'XFromVH=app1-auth.example.com','serviceHeader1=service_Header1',
'test2.example.com', '*.example.com' );
my $token = $crypt->encrypt(
join ':', time,
$sessionId, 'test1.example.com',
'XFromVH=app1-auth.example.com', 'serviceHeader1=service_Header1',
'test2.example.com', '*.example.com'
);
ok(
$res = $client->_get(
@ -49,10 +51,12 @@ ok(
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
count(2);
my @headers = grep { /service/ } @{$res->[1]};
my @values = grep { /\.example\.com/ } @{$res->[1]};
ok( @headers == 4, 'Found 4 service headers' ) or print STDERR Data::Dumper::Dumper($res->[1]);
ok( @values == 2, 'Found 2 service header values' ) or print STDERR Data::Dumper::Dumper($res->[1]);
my @headers = grep { /service/ } @{ $res->[1] };
my @values = grep { /\.example\.com/ } @{ $res->[1] };
ok( @headers == 4, 'Found 4 service headers' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
ok( @values == 2, 'Found 2 service header values' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(2);
diag 'Waiting';
@ -69,10 +73,12 @@ ok(
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
count(2);
my @headers = grep { /service/ } @{$res->[1]};
my @values = grep { /\.example\.com/ } @{$res->[1]};
ok( @headers == 4, 'Found 4 service headers' ) or print STDERR Data::Dumper::Dumper($res->[1]);
ok( @values == 2, 'Found 2 service header values' ) or print STDERR Data::Dumper::Dumper($res->[1]);
my @headers = grep { /service/ } @{ $res->[1] };
my @values = grep { /\.example\.com/ } @{ $res->[1] };
ok( @headers == 4, 'Found 4 service headers' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
ok( @values == 2, 'Found 2 service header values' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(2);
diag 'Waiting';
@ -89,8 +95,9 @@ ok(
ok( $res->[0] == 302, 'Code is 200' ) or explain( $res->[0], 302 );
count(2);
my @headers = grep { /service/ } @{$res->[1]};
ok( @headers == 0, 'NONE service header found' ) or print STDERR Data::Dumper::Dumper($res->[1]);
my @headers = grep { /service/ } @{ $res->[1] };
ok( @headers == 0, 'NONE service header found' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(1);
diag 'Waiting';
@ -107,10 +114,12 @@ ok(
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
count(2);
my @headers = grep { /service/ } @{$res->[1]};
my @values = grep { /\.example\.com/ } @{$res->[1]};
ok( @headers == 4, 'Found 4 service headers' ) or print STDERR Data::Dumper::Dumper($res->[1]);
ok( @values == 2, 'Found 2 service header values' ) or print STDERR Data::Dumper::Dumper($res->[1]);
my @headers = grep { /service/ } @{ $res->[1] };
my @values = grep { /\.example\.com/ } @{ $res->[1] };
ok( @headers == 4, 'Found 4 service headers' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
ok( @values == 2, 'Found 2 service header values' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(2);
diag 'Waiting';
@ -127,8 +136,9 @@ ok(
ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
count(2);
my @headers = grep { /service/ } @{$res->[1]};
ok( @headers == 0, 'NONE service header found' ) or print STDERR Data::Dumper::Dumper($res->[1]);
my @headers = grep { /service/ } @{ $res->[1] };
ok( @headers == 0, 'NONE service header found' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(1);
ok(
@ -142,8 +152,9 @@ ok(
ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
count(2);
my @headers = grep { /service/ } @{$res->[1]};
ok( @headers == 0, 'NONE service header found' ) or print STDERR Data::Dumper::Dumper($res->[1]);
my @headers = grep { /service/ } @{ $res->[1] };
ok( @headers == 0, 'NONE service header found' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(1);
$token = $crypt->encrypt( join ':', time, $sessionId, '' );
@ -158,8 +169,9 @@ ok(
ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
count(2);
my @headers = grep { /service/ } @{$res->[1]};
ok( @headers == 0, 'NONE service header found' ) or print STDERR Data::Dumper::Dumper($res->[1]);
my @headers = grep { /service/ } @{ $res->[1] };
ok( @headers == 0, 'NONE service header found' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(1);
done_testing( count() );