Improve unit test (#1773)

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

@@ -36,7 +36,7 @@ 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',
+    'XFromVH=app1-auth.example.com', "serviceHeader1=$sessionId",
     'test2.example.com',             '*.example.com'
 );
 
@@ -51,11 +51,11 @@ 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] };
+my @headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
+my @values  = grep { /\.example\.com|^$sessionId$/ } @{ $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' )
+ok( @values == 4, 'Found 4 service header values' )
   or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(2);
 
@@ -73,11 +73,11 @@ ok(
 ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
 count(2);
 
-@headers = grep { /service/ } @{ $res->[1] };
-@values  = grep { /\.example\.com/ } @{ $res->[1] };
+@headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
+@values  = grep { /\.example\.com|^$sessionId$/ } @{ $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' )
+ok( @values == 4, 'Found 4 service header values' )
   or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(2);
 
@@ -95,7 +95,7 @@ ok(
 ok( $res->[0] == 302, 'Code is 200' ) or explain( $res->[0], 302 );
 count(2);
 
-@headers = grep { /service/ } @{ $res->[1] };
+@headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
 ok( @headers == 0, 'NONE service header found' )
   or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(1);
@@ -114,11 +114,11 @@ ok(
 ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
 count(2);
 
-@headers = grep { /service/ } @{ $res->[1] };
-@values  = grep { /\.example\.com/ } @{ $res->[1] };
+@headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
+@values  = grep { /\.example\.com|^$sessionId$/ } @{ $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' )
+ok( @values == 4, 'Found 4 service header values' )
   or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(2);
 
@@ -136,7 +136,7 @@ ok(
 ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
 count(2);
 
-@headers = grep { /service/ } @{ $res->[1] };
+@headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
 ok( @headers == 0, 'NONE service header found' )
   or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(1);
@@ -152,7 +152,7 @@ ok(
 ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
 count(2);
 
-@headers = grep { /service/ } @{ $res->[1] };
+@headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
 ok( @headers == 0, 'NONE service header found' )
   or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(1);
@@ -169,7 +169,7 @@ ok(
 ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
 count(2);
 
-@headers = grep { /service/ } @{ $res->[1] };
+@headers = grep { /service|^XFromVH$/ } @{ $res->[1] };
 ok( @headers == 0, 'NONE service header found' )
   or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(1);