Improve unit test (#1508)

This commit is contained in:
Christophe Maudoux 2018-11-14 22:52:52 +01:00
parent 68d90a4fcb
commit b1d2d061c6

View File

@ -10,7 +10,7 @@ BEGIN {
} }
my ( $res, $user, $pwd ); my ( $res, $user, $pwd );
my $maintests = 7; my $maintests = 8;
my $mailSend = 0; my $mailSend = 0;
my $mail2 = 0; my $mail2 = 0;
@ -88,6 +88,19 @@ SKIP: {
ok( mail() =~ /Your password was changed/, 'Password was changed' ); ok( mail() =~ /Your password was changed/, 'Password was changed' );
ok(
$res = $client->_post(
'/',
IO::String->new('user=dwho&password=zz&test=sql'),
length => 30
),
'Auth query'
);
expectOK($res);
my $id = expectCookie($res);
$client->logout($id);
#print STDERR Dumper($query); #print STDERR Dumper($query);
} }
count($maintests); count($maintests);