dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix warning

Browse Source
This commit is contained in:
Christophe Maudoux 2021-02-16 16:35:23 +01:00
parent edf7a88114
commit 35385b803d
3 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lemonldap-ng-portal/t/29-AuthGPG.t
View File

@ -60,6 +60,7 @@ SKIP: {
expectOK($res);
expectCookie($res);
}
count($mainTests);
clean_sessions();
done_testing( count() );
done_testing();

9
lemonldap-ng-portal/t/56-CheckDevOps-with-Download.t
View File

@ -114,7 +114,8 @@ ok( $res->[2]->[0] =~ m%\^/deny: <span trspan="forbidden">%, 'deny' )
or explain( $res->[2]->[0], 'deny' );
ok( $res->[2]->[0] =~ m%\$uid eq qq{dwho}"%, 'file' )
or explain( $res->[2]->[0], 'file' );
ok( $res->[2]->[0] !~ m%Mail: dwho\@badwolf.org<br/>%, 'Hearder Mail not found' )
ok( $res->[2]->[0] !~ m%Mail: dwho\@badwolf.org<br/>%,
'Hearder Mail not found' )
or explain( $res->[2]->[0], 'No hearder Mail' );
ok( $res->[2]->[0] =~ m%UA: <br/>%, 'Hearder UA found' )
or explain( $res->[2]->[0], 'Hearder UA' );
@ -151,10 +152,8 @@ ok( $res->{MSG} eq 'checkDevOps', 'MSG found' )
count(8);
$client->logout($id);
clean_sessions();
done_testing( count() );
done_testing();
# Redefine LWP methods for tests
no warnings 'redefine';
@ -180,4 +179,4 @@ sub LWP::UserAgent::request {
$httpResp->header( 'Content-Length', length($s) );
$httpResp->content($s);
return $httpResp;
}
}

7
lemonldap-ng-portal/t/56-CheckDevOps.t
View File

@ -148,7 +148,8 @@ ok( $res->[2]->[0] =~ m%Name: Doctor Who<br/>%, 'Hearder Name found' )
or explain( $res->[2]->[0], 'Hearder Name' );
ok( $res->[2]->[0] =~ m%User: dwho<br/>%, 'Hearder User found' )
or explain( $res->[2]->[0], 'Hearder User' );
ok( $res->[2]->[0] !~ m%Mail: dwho\@badwolf.org<br/>%, 'Hearder Mail not found' )
ok( $res->[2]->[0] !~ m%Mail: dwho\@badwolf.org<br/>%,
'Hearder Mail not found' )
or explain( $res->[2]->[0], 'No hearder Mail' );
ok( $res->[2]->[0] !~ m%UA: <br/>%, 'Hearder UA not found' )
or explain( $res->[2]->[0], 'No hearder UA' );
@ -274,7 +275,5 @@ ok( $res->{MSG} eq 'PE81', 'PE81 found' )
count(5);
$client->logout($id);
clean_sessions();
done_testing( count() );
done_testing();