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
38
39
40
41
42
43
44
45
46
|
use strict;
use warnings;
use Test::Needs {
'Catalyst::Plugin::Authentication' => '0',
'Catalyst::Plugin::Session::State::Cookie' => '0.03',
};
use Test::More;
use lib "t/lib";
use MiniUA;
my $ua = MiniUA->new('SessionTestApp');
$ua->agent('Initial user_agent');
my $res;
$res = $ua->get( "http://localhost/user_agent" );
ok +$res->is_success, "get initial user_agent";
like +$res->content, qr{UA=Initial user_agent}, "test initial user_agent";
$res = $ua->get( "http://localhost/page" );
ok +$res->is_success, "initial get main page";
like +$res->content, qr{please login}, "ua not logged in";
$res = $ua->get( "http://localhost/login" );
ok +$res->is_success, "log ua in";
like +$res->content, qr{logged in}, "ua logged in";
$res = $ua->get( "http://localhost/page" );
ok +$res->is_success, "get main page";
like +$res->content, qr{you are logged in}, "ua logged in";
$ua->agent('Changed user_agent');
$res = $ua->get( "http://localhost/user_agent" );
ok +$res->is_success, "get changed user_agent";
like +$res->content, qr{UA=Changed user_agent}, "test changed user_agent";
$res = $ua->get( "http://localhost/page" );
ok +$res->is_success, "test deleted session";
like +$res->content, qr{please login}, "ua not logged in";
done_testing;
|
