Fix unit tests (#1976)
This commit is contained in:
parent
0cf1dbd37d
commit
3ea79317e2
|
@ -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
|
||||
|
|
|
@ -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>
|
|
@ -27,6 +27,8 @@
|
|||
__LLNG_LOGIN_FORM__
|
||||
</form>
|
||||
</div>
|
||||
|
||||
<TMPL_INCLUDE NAME="finduser.tpl">
|
||||
<TMPL_INCLUDE NAME="customLoginFooter.tpl">
|
||||
|
||||
</main>
|
||||
|
|
|
@ -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">
|
||||
|
|
|
@ -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' );
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue