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

Fix unit test for #321 with old perl

Browse Source
This commit is contained in:
Maxime Besson 2020-01-29 08:01:44 +01:00
parent 22a58a6f44
commit e39f67290c
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lemonldap-ng-handler/t/60-Lemonldap-NG-Handler-PSGI.t
View File

@ -36,10 +36,14 @@ ok( $res = $client->_get( '/', undef, undef, "lemonldap=$sessionId" ),
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res, 200 ); ok( $res->[0] == 200, 'Code is 200' ) or explain( $res, 200 );
count(2); count(2);
ok( $res = $client->_get( '/user_dwho/', undef, undef, "lemonldap=$sessionId" ),
'Regexp query' ); SKIP: {
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res, 200 ); skip "Regexp match in rules only supported in recent Perl", 0 unless $^V ge v5.25.7;
count(2); ok( $res = $client->_get( '/user_dwho/', undef, undef, "lemonldap=$sessionId" ),
'Regexp query' );
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res, 200 );
count(2);
};
# Request an URI protected by custom function -> allowed # Request an URI protected by custom function -> allowed
ok( ok(
@ -92,11 +96,14 @@ ok( $res = $client->_get( '/AuthWeak', undef, undef, "lemonldap=$sessionId" ),
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res, 200 ); ok( $res->[0] == 200, 'Code is 200' ) or explain( $res, 200 );
count(2); count(2);
ok( $res = $client->_get( '/user_rtyler/', undef, undef, "lemonldap=$sessionId" ), SKIP: {
'Regexp deny query' ); skip "Regexp match in rules only supported in recent Perl", 0 unless $^V ge v5.25.7;
ok( $res->[0] == 403, 'Code is 403' ) or explain( $res, 403 ); ok( $res = $client->_get( '/user_rtyler/', undef, undef, "lemonldap=$sessionId" ),
'Regexp deny query' );
ok( $res->[0] == 403, 'Code is 403' ) or explain( $res, 403 );
count(2);
}
count(2);
# Required AuthnLevel = 5 # Required AuthnLevel = 5
ok( ok(