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', {
    model    => { read  => { devel => { driver => 'JWebmail::Model::ReadMails::MockJSON' }},
                  write => { devel => { block_writes => 1 }}},
    i18n     => { default_language => DEFAULT_LANGUAGE, directory => 'lib/JWebmail/I18N' },
    session  => { secure => 'none' },
    defaults => { scriptadmin => 'test@example.org' },
});

$t->get_ok('/')->status_is(200);

subtest login => sub {
    $t->post_ok('/', form => {userid => $user, password => 'x'})->status_is(400);
    $t->post_ok('/', form => {userid => $user, password => 'abcde'})->status_is(401);
    $t->post_ok('/', 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;