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