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

Append unit test (#2314 & #2315)

Browse Source
This commit is contained in:
Christophe Maudoux 2020-09-15 22:18:32 +02:00
parent eccc2ca881
commit 92df2a84d0
2 changed files with 185 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lemonldap-ng-portal/MANIFEST
View File

@ -653,6 +653,7 @@ t/66-CDA.t
t/67-CheckUser-with-Global-token.t
t/67-CheckUser-with-Impersonation-and-Macros.t
t/67-CheckUser-with-issuer-SAML-POST.t
t/67-CheckUser-with-rules.t
t/67-CheckUser-with-token.t
t/67-CheckUser-with-UnrestrictedUser.t
t/67-CheckUser.t

184
lemonldap-ng-portal/t/67-CheckUser-with-rules.t Normal file
View File

@ -0,0 +1,184 @@
use Test::More;
use IO::String;
use strict;
use JSON qw(to_json from_json);
BEGIN {
require 't/test-lib.pm';
}
my $res;
my $client = LLNG::Manager::Test->new( {
ini => {
logLevel => 'debug',
authentication => 'Demo',
userDB => 'Same',
loginHistoryEnabled => 1,
brutForceProtection => 0,
checkUser => 1,
checkUserDisplayPersistentInfo => '$uid eq "dwho"',
checkUserDisplayEmptyValues => '$uid eq "dwho"',
checkUserDisplayEmptyHeaders => '$uid eq "dwho"',
checkUserDisplayComputedSession => '$uid eq "dwho"',
macros => {
emptyMacro => '',
_whatToTrace => '$_user',
},
}
}
);
## Try to authenticate with 'dwho'
ok(
$res = $client->_post(
'/',
IO::String->new('user=dwho&password=dwho'),
length => 23,
accept => 'text/html',
),
'Auth query with "dwho"'
);
count(1);
my $id_dwho = expectCookie($res);
expectRedirection( $res, 'http://auth.example.com/' );
## Try to authenticate with 'msmith'
ok(
$res = $client->_post(
'/',
IO::String->new('user=msmith&password=msmith'),
length => 27,
accept => 'text/html',
),
'Auth query with "msmith"'
);
count(1);
my $id_msmith = expectCookie($res);
expectRedirection( $res, 'http://auth.example.com/' );
## CheckUser forms
## ------------------------
# Try checkUser with 'dwho'
ok(
$res = $client->_get(
'/checkuser',
cookie => "lemonldap=$id_dwho",
accept => 'text/html'
),
'CheckUser form',
);
count(1);
my ( $host, $url, $query ) =
expectForm( $res, undef, '/checkuser', 'user', 'url' );
ok( $res->[2]->[0] =~ m%<span trspan="checkUser">%, 'Found trspan="checkUser"' )
or explain( $res->[2]->[0], 'trspan="checkUser"' );
count(1);
$query =~ s/url=/url=http%3A%2F%2Ftest1.example.com/;
ok(
$res = $client->_post(
'/checkuser',
IO::String->new($query),
cookie => "lemonldap=$id_dwho",
length => length($query),
),
'POST checkuser'
);
ok( $res = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
or print STDERR "$@\n" . Dumper($res);
ok( $res->{MSG} eq 'checkUser', 'checkUser found' )
or print STDERR Dumper($res);
count(3);
$query =~ s/user=dwho/user=rtyler/;
ok(
$res = $client->_post(
'/checkuser',
IO::String->new($query),
cookie => "lemonldap=$id_dwho",
length => length($query),
),
'POST checkuser'
);
ok( $res = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
or print STDERR "$@\n" . Dumper($res);
ok( $res->{MSG} eq 'checkUserComputedSession', 'Computed session' )
or print STDERR Dumper($res);
ok( scalar @{ $res->{HEADERS} } == 4, 'Four headers found' )
or print STDERR Dumper($res);
my @emptyValue = map { $_->{key} eq 'emptyHeader' ? $_ : () } @{ $res->{HEADERS} };
ok( scalar @emptyValue == 1, 'Empty header found' )
or print STDERR Dumper($res);
@emptyValue = map { $_->{key} eq 'emptyMacro' ? $_ : () } @{ $res->{MACROS} };
ok( scalar @emptyValue == 1, 'Empty macro found' )
or print STDERR Dumper($res);
count(6);
# Try checkUser with 'msmith'
ok(
$res = $client->_get(
'/checkuser',
cookie => "lemonldap=$id_msmith",
accept => 'text/html'
),
'CheckUser form',
);
count(1);
( $host, $url, $query ) =
expectForm( $res, undef, '/checkuser', 'user', 'url' );
ok( $res->[2]->[0] =~ m%<span trspan="checkUser">%, 'Found trspan="checkUser"' )
or explain( $res->[2]->[0], 'trspan="checkUser"' );
count(1);
$query =~ s/user=msmith/user=rtyler/;
$query =~ s/url=/url=http%3A%2F%2Ftest1.example.com/;
ok(
$res = $client->_post(
'/checkuser',
IO::String->new($query),
cookie => "lemonldap=$id_msmith",
length => length($query),
),
'POST checkuser'
);
count(1);
ok( $res = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
or print STDERR "$@\n" . Dumper($res);
ok( $res->{MSG} eq 'checkUserNoSessionFound', 'No session found' )
or print STDERR Dumper($res);
count(2);
# Try checkUser with 'msmith'
$query =~ s/user=rtyler/user=dwho/;
ok(
$res = $client->_post(
'/checkuser',
IO::String->new($query),
cookie => "lemonldap=$id_msmith",
length => length($query),
),
'POST checkuser'
);
count(1);
ok( $res = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
or print STDERR "$@\n" . Dumper($res);
ok( $res->{MSG} eq 'checkUser', 'checkUser found' )
or print STDERR Dumper($res);
ok( scalar @{ $res->{HEADERS} } == 3, 'Three headers found' )
or print STDERR Dumper($res);
@emptyValue = map { $_->{key} eq 'emptyHeader' ? $_ : () } @{ $res->{HEADERS} };
ok( scalar @emptyValue == 0, 'No empty header found' )
or print STDERR Dumper($res);
@emptyValue = map { $_->{key} eq 'emptyMacro' ? $_ : () } @{ $res->{MACROS} };
ok( scalar @emptyValue == 0, 'No empty macro found' )
or print STDERR Dumper($res);
count(5);
$client->logout($id_dwho);
$client->logout($id_msmith);
clean_sessions();
done_testing( count() );