Fix warning messages

This commit is contained in:
Christophe Maudoux 2020-02-16 16:10:35 +01:00
parent 4f44b69290
commit fe4f925e58
3 changed files with 14 additions and 12 deletions

View File

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

View File

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

View File

@ -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();
done_testing();
count($maintests);
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,
samlServicePublicKeyEnc => saml_key_idp_public_enc,
samlServicePublicKeySig => saml_key_idp_public_sig,
samlSPMetaDataXML => {
samlServicePrivateKeySig => saml_key_idp_private_sig,
samlServicePublicKeyEnc => saml_key_idp_public_enc,
samlServicePublicKeySig => saml_key_idp_public_sig,
samlSPMetaDataXML => {
"sp.com" => {
samlSPMetaDataXML =>
samlSPMetaDataXML( 'sp', 'HTTP-Redirect' )