FindUser with LDAP & AD & Append unit test (#1976)
Christophe Maudoux
4 years ago
parent
072f68004a
commit
597455dfcf
@ -0,0 +1,241 @@ |
||||
use Test::More; |
||||
use strict; |
||||
use JSON; |
||||
use IO::String; |
||||
|
||||
require 't/test-lib.pm'; |
||||
|
||||
my $res; |
||||
my $json; |
||||
my $request; |
||||
my $maintests = 41; |
||||
|
||||
SKIP: { |
||||
skip 'LLNGTESTLDAP is not set', $maintests unless ( $ENV{LLNGTESTLDAP} ); |
||||
require 't/test-ldap.pm'; |
||||
|
||||
my $client = LLNG::Manager::Test->new( { |
||||
ini => { |
||||
logLevel => 'error', |
||||
authentication => 'LDAP', |
||||
portal => 'http://auth.example.com/', |
||||
userDB => 'Same', |
||||
ldapServer => 'ldap://127.0.0.1:19389/', |
||||
ldapBase => 'ou=users,dc=example,dc=com', |
||||
managerDn => 'cn=admin,dc=example,dc=com', |
||||
managerPassword => 'admin', |
||||
ldapExportedVars => { |
||||
uid => 'uid', |
||||
cn => 'cn', |
||||
sn => 'sn', |
||||
displayName => 'displayName', |
||||
roomNumber => 'roomNumber', |
||||
mail => 'mail' |
||||
}, |
||||
requireToken => 0, |
||||
findUser => 1, |
||||
impersonationRule => 1, |
||||
findUserSearchingAttributes => |
||||
{ uid => 'Login', roomNumber => 'Room', cn => 'Name' }, |
||||
findUserExcludingAttributes => |
||||
{ mail => 'french@badwolf.org', uid => 'russian' }, |
||||
} |
||||
} |
||||
); |
||||
## Simple access |
||||
ok( $res = $client->_get( '/', accept => 'text/html' ), 'Get Portal', ); |
||||
my ( $host, $url, $query ) = |
||||
expectForm( $res, '#', undef, 'user', 'password', 'spoofId' ); |
||||
|
||||
$request = ''; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'text/html', |
||||
length => length($request) |
||||
), |
||||
'Post empty FindFuser request' |
||||
); |
||||
( $host, $url, $query ) = |
||||
expectForm( $res, '#', undef, 'user', 'password', 'spoofId' ); |
||||
( $host, $url, $query ) = |
||||
expectForm( $res, '#', undef, 'uid', 'roomNumber', 'cn' ); |
||||
ok( |
||||
$res->[2]->[0] =~ |
||||
m%<input id="spoofIdfield" name="spoofId" type="text" class="form-control" value="" autocomplete="off"%, |
||||
'value=""' |
||||
) or explain( $res->[2]->[0], 'value=""' ); |
||||
|
||||
$request = 'uid=dwho'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'text/html', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request' |
||||
); |
||||
ok( $res->[2]->[0] =~ m%value="dwho"%, 'value="dwho"' ) |
||||
or explain( $res->[2]->[0], 'value="dwho"' ); |
||||
ok( $res->[2]->[0] =~ m%autocomplete="off"%, 'autocomplete="off"' ) |
||||
or explain( $res->[2]->[0], 'autocomplete="off"' ); |
||||
ok( |
||||
$res->[2]->[0] =~ |
||||
m%<span trspan="searchAccount">Search for an account</span>%, |
||||
'Search an account' |
||||
) or explain( $res->[2]->[0], 'Search for an account' ); |
||||
ok( |
||||
$res->[2]->[0] =~ |
||||
m%<input id="findUser_roomNumber" name="roomNumber" type="text" autocomplete="off" class="form-control" placeholder="Room" />%, |
||||
'id="findUser_roomNumber"' |
||||
) or explain( $res->[2]->[0], 'id="findUser_roomNumber"' ); |
||||
ok( |
||||
$res->[2]->[0] =~ |
||||
m%<input id="findUser_uid" name="uid" type="text" autocomplete="off" class="form-control" placeholder="Login" />%, |
||||
'id="findUser_uid"' |
||||
) or explain( $res->[2]->[0], 'id="findUser_uid"' ); |
||||
ok( |
||||
$res->[2]->[0] =~ |
||||
m%<input id="findUser_cn" name="cn" type="text" autocomplete="off" class="form-control" placeholder="Name" />%, |
||||
'id="findUser_cn"' |
||||
) or explain( $res->[2]->[0], 'id="findUser_cn"' ); |
||||
|
||||
$request = 'uid=dwho'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{user} eq 'dwho', ' Good user' ) |
||||
or explain( $json, 'user => dwho' ); |
||||
|
||||
$request = 'uid=ohwd'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request with bad user' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{user} eq '', ' No user' ) |
||||
or explain( $json, "user => ''" ); |
||||
|
||||
$request = 'cn=Rose Tyler'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request one result' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{user} eq 'rtyler', ' Good user' ) |
||||
or explain( $json, "user => 'rtyler'" ); |
||||
|
||||
$request = 'roomNumber=0'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request multi results' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{user} =~ /^(dwho|french|reset)$/, " Good user ($1)" ) |
||||
or explain( $json, "user => $1" ); |
||||
|
||||
$request = 'arg=1'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request with bad arg' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{result} == 1, ' Good result' ) |
||||
or explain( $json, 'result => 1' ); |
||||
ok( $json->{user} eq '', ' No user' ) |
||||
or explain( $json, 'user => ?' ); |
||||
|
||||
$request = 'roomNumber=0&uid=dwho'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request with two args' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{user} eq 'dwho', ' Good user' ) |
||||
or explain( $json, 'user => dwho' ); |
||||
|
||||
$request = 'roomNumber=0&uid=rtyler'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request with wrong args' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{result} == 1, ' Good result' ) |
||||
or explain( $json, 'result => 1' ); |
||||
ok( $json->{user} eq '', ' No user' ) |
||||
or explain( $json, 'user => ?' ); |
||||
|
||||
$request = 'uid=russian'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request with excluding result' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{result} == 1, ' Good result' ) |
||||
or explain( $json, 'result => 1' ); |
||||
ok( $json->{user} eq '', ' No user' ) |
||||
or explain( $json, 'user => ?' ); |
||||
|
||||
$request = 'uid=french'; |
||||
ok( |
||||
$res = $client->_post( |
||||
'/finduser', IO::String->new($request), |
||||
accept => 'application/json', |
||||
length => length($request) |
||||
), |
||||
'Post FindFuser request with excluding result' |
||||
); |
||||
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' ) |
||||
or print STDERR "$@\n" . Dumper($res); |
||||
ok( $json->{result} == 1, ' Good result' ) |
||||
or explain( $json, 'result => 1' ); |
||||
ok( $json->{user} eq '', ' No user' ) |
||||
or explain( $json, 'user => ?' ); |
||||
|
||||
clean_sessions(); |
||||
} |
||||
count($maintests); |
||||
stopLdapServer() if $ENV{LLNGTESTLDAP}; |
||||
done_testing( count() ); |
||||
Loading…
Reference in new issue