Fix warning messages

lemonldap-ng-handler/t/12-Lemonldap-NG-Handler-Jail.t

@@ -40,13 +40,13 @@ ok( $res = &$code, "Function works" );
 ok( $res eq 'dGVzdA==', 'Get good result' );
 
 $sub = "sub { return ( listMatch('ABC; DEF; GHI','abc',1) ) }";
-my $code = $jail->jail_reval($sub);
+$code = $jail->jail_reval($sub);
 ok( ( defined($code) and ref($code) eq 'CODE' ),
     'listMatch function is defined' );
 ok( &$code eq '1', 'Get good result' );
 
 $sub = "sub { return ( listMatch('ABC; DEF; GHI','ab',1) ) }";
-my $code = $jail->jail_reval($sub);
+$code = $jail->jail_reval($sub);
 ok( ( defined($code) and ref($code) eq 'CODE' ),
     'listMatch function is defined' );
 ok( &$code eq '0', 'Get good result' );

lemonldap-ng-handler/t/13-Lemonldap-NG-Handler-Fake-Safe.t

@@ -50,7 +50,7 @@ ok( ( defined($listMatch) and ref($listMatch) eq 'CODE' ),
 ok( &$listMatch eq '1', 'Get good result' );
 
 my $sub5      = "sub { return ( listMatch('ABC; DEF; GHI','ab', 1) ) }";
-my $listMatch = $jail->jail_reval($sub5);
+$listMatch = $jail->jail_reval($sub5);
 ok( ( defined($listMatch) and ref($listMatch) eq 'CODE' ),
     'listMatch function is defined' );
 ok( &$listMatch eq '0', 'Get good result' );

lemonldap-ng-portal/t/30-SAML-Macros.t

@@ -14,11 +14,12 @@ BEGIN {
 
 my $debug = 'error';
 my ( $issuer, $res );
+my $maintests = 6;
 
 SKIP: {
     eval "use Lasso";
     if ($@) {
-        skip 'Lasso not found';
+        skip 'Lasso not found', $maintests;
     }
 
     # Initialization
@@ -66,10 +67,11 @@ SKIP: {
     {
         is( $value->textContent, 'Accents', 'Check Attribute' );
     }
+    clean_sessions();
 }
 
-clean_sessions();
+count($maintests);
-done_testing();
+done_testing( count() );
 
 sub issuer {
     return LLNG::Manager::Test->new( {