Remove consumed headers & update unit test (#1863)

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

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

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

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