use v5.24;
use warnings;
use utf8;

use Test::More;
use Test::Mojo;


use constant DEFAULT_LANGUAGE => 'en';
my $user = 'mockmaildir@example.org';
my $pw   = '12345';


my $t = Test::Mojo->new('JWebmail', {
    model      => { read  => { virtual_user => $ENV{USER}, mailbox_path => 't/testdata', authenticator => 'script/testauthenticator.pl' },
                    write => { sendmail => 'cat' }},
    i18n       => { default_language => DEFAULT_LANGUAGE },
    admin_mail => '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;