Improve unit test (#2101)

lemonldap-ng-portal/t/01-AuthDemo.t

@@ -1,6 +1,7 @@
 use Test::More;
 use strict;
 use IO::String;
+use MIME::Base64;
 
 require 't/test-lib.pm';
 
@@ -15,6 +16,38 @@ ok( $res = $client->_get('/'), 'Unauth JSON request' );
 count(1);
 expectReject($res);
 
+# Test "first access" with an unprotected url
+ok(
+    $res = $client->_get(
+        '/',
+        query  => 'url=' . encode_base64( "http://test.example.fr/", '' ),
+        accept => 'text/html'
+    ),
+    'Get Menu'
+);
+ok( $res->[2]->[0] =~ /<span trmsg="37"><\/span><\/div>/,
+    'Rejected with PE_BADURL' )
+  or print STDERR Dumper( $res->[2]->[0] );
+ok( $res->[2]->[0] =~ m%<span id="languages"></span>%, ' Language icons found' )
+  or print STDERR Dumper( $res->[2]->[0] );
+count(3);
+
+# Test "first access" with a wildcard-protected url
+ok(
+    $res = $client->_get(
+        '/',
+        query  => 'url=' . encode_base64( "http://test.example.llng/", '' ),
+        accept => 'text/html'
+    ),
+    'Get Menu'
+);
+ok( $res->[2]->[0] =~ /<span trmsg="9"><\/span><\/div>/,
+    'Rejected with PE_FIRSTACCESS' )
+  or print STDERR Dumper( $res->[2]->[0] );
+ok( $res->[2]->[0] =~ m%<span id="languages"></span>%, ' Language icons found' )
+  or print STDERR Dumper( $res->[2]->[0] );
+count(3);
+
 # Test "first access" with good url
 ok(
     $res =
@@ -40,15 +73,13 @@ ok(
     ),
     'Auth query'
 );
-count(1);
 ok( $res->[2]->[0] =~ /<span trmsg="5"><\/span><\/div>/,
     'jdoe rejected with PE_BADCREDENTIALS' )
   or print STDERR Dumper( $res->[2]->[0] );
-count(1);
 ok( $res->[2]->[0] =~ m%<span trspan="connect">Connect</span>%,
     'Found connect button' )
   or print STDERR Dumper( $res->[2]->[0] );
-count(1);
+count(3);
 
 # Try to authenticate with bad password
 # -------------------------------------

lemonldap-ng-portal/t/lmConf-1.json

@@ -57,6 +57,9 @@
     },
     "test.example.org": {
       "default": "accept"
+    },
+    "*.example.llng": {
+      "default": "accept"
     }
   },
   "macros": {