From a82df68fb0aa18b3308240fed51c94a10a92d875 Mon Sep 17 00:00:00 2001
From: Christophe Maudoux <chrmdx@gmail.com>
Date: Mon, 22 Nov 2021 20:55:15 +0100
Subject: [PATCH] Improve unit test (#2658)

---
 .../t/67-CheckUser-with-rules.t               | 37 ++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/lemonldap-ng-portal/t/67-CheckUser-with-rules.t b/lemonldap-ng-portal/t/67-CheckUser-with-rules.t
index a73043953..1c44af37b 100644
--- a/lemonldap-ng-portal/t/67-CheckUser-with-rules.t
+++ b/lemonldap-ng-portal/t/67-CheckUser-with-rules.t
@@ -5,7 +5,6 @@ use JSON qw(to_json from_json);
 
 require 't/test-lib.pm';
 
-
 my $res;
 my $client = LLNG::Manager::Test->new( {
         ini => {
@@ -22,6 +21,7 @@ my $client = LLNG::Manager::Test->new( {
             macros                          => {
                 emptyMacro   => '',
                 _whatToTrace => '$_user',
+                authMode     => '$authenticationLevel == 1 ? "DEMO" : "NULL"'
             },
         }
     }
@@ -200,8 +200,43 @@ ok( scalar @persistentAttr == 0, 'No persistent attribute found' )
   or print STDERR Dumper($res);
 count(6);
 
+# Refresh rights (#2179)
+# ------------------------
+ok(
+    $res = $client->_get(
+        '/refresh',
+        cookie => "lemonldap=$id_msmith",
+        accept => 'text/html'
+    ),
+    'Refresh query',
+);
+expectRedirection( $res, 'http://auth.example.com/' );
+
+Time::Fake->offset("+20s");    # Go through handler internal cache
+
+ok(
+    $res = $client->_get(
+        '/checkuser', cookie => "lemonldap=$id_msmith",
+    ),
+    'GET checkuser'
+);
+
+my $data = eval { JSON::from_json( $res->[2]->[0] ) };
+ok( not($@), ' Content is JSON' )
+  or explain( [ $@, $res->[2] ], 'JSON content' );
+my @authLevel =
+  map { $_->{key} eq 'authenticationLevel' ? $_ : () } @{ $data->{ATTRIBUTES} };
+ok( $authLevel[0]->{value} == 1, 'Good authenticationLevel found' )
+  or explain( $authLevel[0]->{value}, 'authenticationLevel' );
+my @authMode =
+  map { $_->{key} eq 'authMode' ? $_ : () } @{ $data->{MACROS} };
+ok( $authMode[0]->{value} eq 'DEMO', 'Good authMode found' )
+  or explain( $authMode[0]->{value}, 'authMode' );
+count(5);
+
 $client->logout($id_dwho);
 $client->logout($id_msmith);
 clean_sessions();
 
 done_testing( count() );
+