Improve unit tests

lemonldap-ng-portal/t/40-Notifications-JSON-File.t

@@ -94,7 +94,7 @@ ok(
 );
 count(1);
 expectOK($res);
-my $id = expectCookie($res);
+$id = expectCookie($res);
 expectForm( $res, undef, '/notifback', 'reference1x1', 'url' );
 
 # Verify that cookie is ciphered (session unvalid)
@@ -207,7 +207,6 @@ ok(
     $res = $client->_get(
         '/',
         cookie => "lemonldap=$id",
-        length => 64,
         accept => 'text/html',
     ),
     'New auth query'

lemonldap-ng-portal/t/68-ContextSwitching.t

@@ -61,10 +61,14 @@ ok(
     $res->[2]->[0] =~ m%<span trspan="connectedAs">Connected as</span> rtyler%,
     'Connected as rtyler'
 ) or print STDERR Dumper( $res->[2]->[0] );
+ok(
+    $res->[2]->[0] =~ qr%<span id="languages"></span>%,
+    'Found language flags'
+) or print STDERR Dumper( $res->[2]->[0] );
 expectAuthenticatedAs( $res, 'rtyler' );
 ok( $res->[2]->[0] !~ m%contextSwitching_ON%, 'Connected as dwho' )
   or print STDERR Dumper( $res->[2]->[0] );
-count(2);
+count(3);
 
 $client->logout($id);
 

lemonldap-ng-portal/t/75-2F-Registers.t

@@ -4,7 +4,7 @@ use IO::String;
 use Data::Dumper;
 
 require 't/test-lib.pm';
-my $maintests = 52;
+my $maintests = 54;
 
 SKIP: {
     eval { require Convert::Base32 };
@@ -64,10 +64,13 @@ SKIP: {
     );
     ok( $res->[2]->[0] =~ /totpregistration\.(?:min\.)?js/, 'Found TOTP js' );
     ok(
-        $res->[2]->[0] =~ qr%<img src="/static/common/logos/logo_llng_old.png"%,
+        $res->[2]->[0] =~ qr%<img src="/static/common/logos/logo_llng_old\.png"%,
         'Found custom Main Logo'
     ) or print STDERR Dumper( $res->[2]->[0] );
-    count(1);
+    ok(
+        $res->[2]->[0] =~ qr%<span id="languages"></span>%,
+        'Language icons found'
+    ) or print STDERR Dumper( $res->[2]->[0] );
 
     # Register TOTP
     # JS query