Fix unit tests for #2791
This commit is contained in:
parent
318e08ccc7
commit
d6efecb6cc
|
@ -3,7 +3,7 @@ use strict;
|
|||
use IO::String;
|
||||
|
||||
require 't/test-lib.pm';
|
||||
my $maintests = 27;
|
||||
my $maintests = 28;
|
||||
|
||||
SKIP: {
|
||||
eval { require Convert::Base32 };
|
||||
|
@ -186,10 +186,13 @@ SKIP: {
|
|||
),
|
||||
'Post code'
|
||||
);
|
||||
( $host, $url, $query ) =
|
||||
expectForm( $res, '#', undef, 'user', 'password', 'token' );
|
||||
ok( $res->[2]->[0] =~ /<span trmsg="82"><\/span>/, 'Token expired' )
|
||||
or print STDERR Dumper( $res->[2]->[0] );
|
||||
unlike(
|
||||
$res->[2]->[0],
|
||||
qr/input id="userfield"/,
|
||||
'Login form is not displayed'
|
||||
);
|
||||
|
||||
# Try to sign-in
|
||||
ok( $res = $client->_get( '/', accept => 'text/html' ), 'Get Menu', );
|
||||
|
|
|
@ -4,7 +4,7 @@ use IO::String;
|
|||
use JSON qw/from_json to_json/;
|
||||
|
||||
require 't/test-lib.pm';
|
||||
my $maintests = 30;
|
||||
my $maintests = 31;
|
||||
|
||||
SKIP: {
|
||||
eval { require Convert::Base32 };
|
||||
|
@ -187,10 +187,14 @@ SKIP: {
|
|||
),
|
||||
'Post code'
|
||||
);
|
||||
( $host, $url, $query ) =
|
||||
expectForm( $res, '#', undef, 'user', 'password', 'token' );
|
||||
|
||||
ok( $res->[2]->[0] =~ /<span trmsg="82"><\/span>/, 'Token expired' )
|
||||
or print STDERR Dumper( $res->[2]->[0] );
|
||||
unlike(
|
||||
$res->[2]->[0],
|
||||
qr/input id="userfield"/,
|
||||
'Login form is not displayed'
|
||||
);
|
||||
|
||||
# Try to sign-in
|
||||
ok( $res = $client->_get( '/', accept => 'text/html' ), 'Get Menu', );
|
||||
|
|
Loading…
Reference in New Issue