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( {
@@ -80,12 +82,12 @@ sub issuer {
                 authentication         => 'Demo',
                 userDB                 => 'Same',
                 issuerDBSAMLActivation => 1,
-                samlSPMetaDataMacros                   => {
+                samlSPMetaDataMacros   => {
                     'sp.com' => {
                         extracted_sn => '(split(/\s/, $cn))[1]'
                     }
                 },
-                samlSPMetaDataOptions  => {
+                samlSPMetaDataOptions => {
                     'sp.com' => {
                         samlSPMetaDataOptionsEncryptionMode           => 'none',
                         samlSPMetaDataOptionsEnableIDPInitiatedURL    => 1,
@@ -109,10 +111,10 @@ sub issuer {
                 samlOrganizationName        => "IDP",
                 samlOrganizationURL         => "http://www.idp.com/",
                 samlServicePrivateKeyEnc    => saml_key_idp_private_enc,
-                samlServicePrivateKeySig => saml_key_idp_private_sig,
+                samlServicePrivateKeySig    => saml_key_idp_private_sig,
-                samlServicePublicKeyEnc => saml_key_idp_public_enc,
+                samlServicePublicKeyEnc     => saml_key_idp_public_enc,
-                samlServicePublicKeySig => saml_key_idp_public_sig,
+                samlServicePublicKeySig     => saml_key_idp_public_sig,
-                samlSPMetaDataXML => {
+                samlSPMetaDataXML           => {
                     "sp.com" => {
                         samlSPMetaDataXML =>
                           samlSPMetaDataXML( 'sp', 'HTTP-Redirect' )