Append unit test (#2314 & #2315)

lemonldap-ng-portal/MANIFEST

@@ -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

lemonldap-ng-portal/t/67-CheckUser-with-rules.t

@@ -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() );