Fix unit tests (#1976)

This commit is contained in:
Christophe Maudoux 2021-05-01 00:03:54 +02:00
parent 0cf1dbd37d
commit 3ea79317e2
6 changed files with 10 additions and 7 deletions

View File

@ -1,4 +1,4 @@
.\" Automatically generated by Pod::Man 4.10 (Pod::Simple 3.35)
.\" Automatically generated by Pod::Man 4.11 (Pod::Simple 3.35)
.\"
.\" Standard preamble:
.\" ========================================================================
@ -133,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "llng-fastcgi-server 8"
.TH llng-fastcgi-server 8 "2020-04-12" "perl v5.30.0" "User Contributed Perl Documentation"
.TH llng-fastcgi-server 8 "2021-04-30" "perl v5.30.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l

View File

@ -1,3 +1,4 @@
<TMPL_IF NAME="DISPLAY_FINDUSER">
<div id="finduserModal" class="modal fade" tabindex="-1" role="dialog">
<div class="modal-dialog" role="document">
<div class="modal-content">
@ -48,4 +49,5 @@
</div>
</div>
</div>
</div>
</div>
</TMPL_IF>

View File

@ -27,6 +27,8 @@
__LLNG_LOGIN_FORM__
</form>
</div>
<TMPL_INCLUDE NAME="finduser.tpl">
<TMPL_INCLUDE NAME="customLoginFooter.tpl">
</main>

View File

@ -56,7 +56,6 @@
<span class="fa fa-search"></span>
<span trspan="searchAccount">Search for an account</span>
</button>
<TMPL_INCLUDE NAME="finduser.tpl">
</TMPL_IF>
<TMPL_IF NAME="DISPLAY_REGISTER">

View File

@ -37,7 +37,7 @@ my ( $host, $url, $query ) =
( $host, $url, $query ) =
expectForm( $res, '#', undef, 'uid', 'guy', 'cn', 'token' );
my @form = ( $res->[2]->[0] =~ m#<form.*?</form>#sg );
ok( @form == 3, 'Display 3 forms' )
ok( @form == 5, 'Display 5 forms' )
or explain( $res->[2]->[0], 'Forms are missing' );
ok( $query =~ /lmAuth=2_ssl/, 'lmAuth=2_ssl' )
or explain( $query, 'lmAuth is not well defined' );

View File

@ -38,8 +38,8 @@ my ( $host, $url, $query ) =
( $host, $url, $query ) =
expectForm( $res, '#', undef, 'uid', 'guy', 'cn', 'token' );
my @form = ( $res->[2]->[0] =~ m#<form.*?</form>#sg );
ok( @form == 3, 'Display 3 forms' )
or explain( $res->[2]->[0], 'Forms are missing' );
ok( @form == 5, 'Display 5 forms' )
or explain( $res->[2]->[0], 'Forms are missing: ' . scalar @form );
ok( $query =~ /lmAuth=2_ssl/, 'lmAuth=2_ssl' )
or explain( $query, 'lmAuth is not well defined' );
count(3);