More tests (#2188)

This commit is contained in:
Xavier Guimard 2020-05-06 13:05:27 +02:00
parent f2e892a44d
commit c96daef1d7

View File

@ -179,27 +179,63 @@ ok( $res->[0] == 200, ' Code is 200' ) or explain( $res, 200 );
count(4);
# Wildcards
ok($res = $client->_get( '/', undef, 'foo.example.org', "lemonldap=$sessionId" ), 'Accept "*.example.org"');
ok(
$res =
$client->_get( '/', undef, 'foo.example.org', "lemonldap=$sessionId" ),
'Accept "*.example.org"'
);
ok( $res->[0] == 200, ' Code is 200' ) or explain( $res, 200 );
count(2);
ok($res = $client->_get( '/', undef, 'foo.example.fr', "lemonldap=$sessionId" ), 'Reject "foo.example.fr"');
ok(
$res =
$client->_get( '/', undef, 'foo.example.fr', "lemonldap=$sessionId" ),
'Reject "foo.example.fr"'
);
ok( $res->[0] == 302, ' Code is 302' ) or explain( $res, 302 );
count(2);
ok($res = $client->_get( '/orgdeny', undef, 'foo.example.org', "lemonldap=$sessionId" ), 'Reject "foo.example.org/orgdeny"');
ok(
$res = $client->_get(
'/orgdeny', undef, 'foo.example.org', "lemonldap=$sessionId"
),
'Reject "foo.example.org/orgdeny"'
);
ok( $res->[0] == 302, ' Code is 302' ) or explain( $res, 302 );
count(2);
ok($res = $client->_get( '/orgdeny', undef, 'afoo.example.org', "lemonldap=$sessionId" ), 'Accept "afoo.example.org/orgdeny"');
ok(
$res = $client->_get(
'/orgdeny', undef, 'afoo.example.org', "lemonldap=$sessionId"
),
'Accept "afoo.example.org/orgdeny"'
);
ok( $res->[0] == 200, ' Code is 200' ) or explain( $res, 200 );
count(2);
ok($res = $client->_get( '/orgdeny', undef, 'abfoo.example.org', "lemonldap=$sessionId" ), 'Reject "abfoo.example.org/orgdeny"');
ok(
$res = $client->_get(
'/orgdeny', undef, 'abfoo.example.org', "lemonldap=$sessionId"
),
'Reject "abfoo.example.org/orgdeny"'
);
ok( $res->[0] == 302, ' Code is 302' ) or explain( $res, 302 );
count(2);
ok($res = $client->_get( '/', undef, 'test-foo.example.fr', "lemonldap=$sessionId" ), 'Accept "test*.example.fr"');
ok(
$res =
$client->_get( '/', undef, 'abfoo.example.org', "lemonldap=$sessionId" ),
'Reject "abfoo.example.org/orgdeny"'
);
ok( $res->[0] == 302, ' Code is 302' ) or explain( $res, 302 );
count(2);
ok(
$res = $client->_get(
'/', undef, 'test-foo.example.fr', "lemonldap=$sessionId"
),
'Accept "test*.example.fr"'
);
ok( $res->[0] == 200, ' Code is 200' ) or explain( $res, 200 );
count(2);