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

Remove consumed headers & update unit test (#1863)

Browse Source
This commit is contained in:
Christophe Maudoux 2019-08-27 21:14:12 +02:00
parent a1f979d5ac
commit 814590d40e
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/PSGI.pm
View File

@ -147,6 +147,9 @@ sub _authAndTrace {
push @{ $res->[1] }, ( $_ => $hdr2{$_} );
}
}
# Headers have been consumed -> remove them (#1863)
$req->{respHeaders} = [];
}
return $res;
}

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

@ -53,9 +53,9 @@ count(2);
my @headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
my @values = grep { /\.example\.com|^$sessionId$/ } @{ $res->[1] };
ok( @headers == 4, 'Found 4 service headers' )
ok( @headers == 2, 'Found 2 service headers' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
ok( @values == 4, 'Found 4 service header values' )
ok( @values == 2, 'Found 2 service header values' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(2);
@ -75,9 +75,9 @@ count(2);
@headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
@values = grep { /\.example\.com|^$sessionId$/ } @{ $res->[1] };
ok( @headers == 4, 'Found 4 service headers' )
ok( @headers == 2, 'Found 2 service headers' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
ok( @values == 4, 'Found 4 service header values' )
ok( @values == 2, 'Found 2 service header values' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(2);
@ -116,9 +116,9 @@ count(2);
@headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
@values = grep { /\.example\.com|^$sessionId$/ } @{ $res->[1] };
ok( @headers == 4, 'Found 4 service headers' )
ok( @headers == 2, 'Found 2 service headers' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
ok( @values == 4, 'Found 4 service header values' )
ok( @values == 2, 'Found 2 service header values' )
or print STDERR Data::Dumper::Dumper( $res->[1] );
count(2);