Commit 64e6c20f authored by Christophe Maudoux's avatar Christophe Maudoux 🐛

Improve unit test (#1595)

parent b777007f
...@@ -15,6 +15,8 @@ my $client = LLNG::Manager::Test->new( { ...@@ -15,6 +15,8 @@ my $client = LLNG::Manager::Test->new( {
passwordDB => 'Demo', passwordDB => 'Demo',
portalRequireOldPassword => 1, portalRequireOldPassword => 1,
showLanguages => 0, showLanguages => 0,
translations => 'site/templates/localeTranslations.txt',
error_de_85 => 'From lemonlap-ng.ini',
} }
} }
); );
...@@ -23,7 +25,28 @@ ok( $res = $client->_get( '/', accept => 'text/html' ), 'Get Menu' ); ...@@ -23,7 +25,28 @@ ok( $res = $client->_get( '/', accept => 'text/html' ), 'Get Menu' );
ok( $res->[2]->[0] !~ m%<span id="languages"></span>%, ok( $res->[2]->[0] !~ m%<span id="languages"></span>%,
' No language icon found' ) ' No language icon found' )
or print STDERR Dumper( $res->[2]->[0] ); or print STDERR Dumper( $res->[2]->[0] );
count(2); ok( $res->[2]->[0] =~ m%"trOver"%,
' trOver found' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ m%"all":\{\}%,
' all found' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ m%"en":\{"PE5":"Big brother is watching you, authenticated user"\}%,
' en found' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ m%"PE0":"Souriez, vous êtes surveillés !"%,
' PE0 found' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ m%"selectIdP":"Portail de Fédération des Identités"%,
' selectIdP found' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ m%"fr":\{%,
' fr found' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ m%"PE85":"From lemonlap-ng.ini"%,
' PE85 found' )
or print STDERR Dumper( $res->[2]->[0] );
count(9);
# Try yo authenticate # Try yo authenticate
# ------------------- # -------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment