1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
use v5.22;
use warnings;
use utf8;
use Test::More;
use Test::Mojo;
use JWebmail::Model::ReadMails::MockJSON;
use constant DEFAULT_LANGUAGE => 'en';
my $user = JWebmail::Model::ReadMails::MockJSON::VALID_USER;
my $pw = JWebmail::Model::ReadMails::MockJSON::VALID_PW;
my $t = Test::Mojo->new('JWebmail', {
development => { read_mock => 'JWebmail::Model::ReadMails::MockJSON', block_writes => 1 },
i18n => { default_language => DEFAULT_LANGUAGE },
});
$t->get_ok('/')->status_is(200);
subtest login => sub {
$t->post_ok('/login', form => {userid => $user, password => 'x'})->status_is(400);
$t->post_ok('/login', form => {userid => $user, password => 'abcde'})->status_is(401);
$t->post_ok('/login', form => {userid => $user, password => $pw})->status_is(303);
};
subtest lang => sub {
$t->get_ok('/about')->status_is(200)->attr_is('html', 'lang', DEFAULT_LANGUAGE);
$t->get_ok('/en/about')->status_is(200)->attr_is('html', 'lang', 'en');
$t->get_ok('/de/about')->status_is(200)->attr_is('html', 'lang', 'de');
};
done_testing;
|
