blob: 48406b94bb17c62c1147a3450e4217e87fad41d1 (
plain)
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
|
use v5.22;
use warnings;
use utf8;
use Test::More;
use Test::Mojo;
use JWebmail::Model::Driver::Mock;
my $user = JWebmail::Model::Driver::Mock::VALID_USER;
my $pw = JWebmail::Model::Driver::Mock::VALID_PW;
my $t = Test::Mojo->new('JWebmail', {
development => { use_read_mock => 1, block_writes => 1 },
});
$t->get_ok('/')->status_is(200);
$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);
done_testing();
#$r->get('/123' => sub { my $c = shift; $c->render(inline => $c->stash->{lang}) });
#my $x = $self->build_controller;
#$x->match->find($self, {method => 'GET', path => '//write'});
#print $self->dumper($x->match->stack);
|
