Commit | Line | Data |
300eb468 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | |
8 | BEGIN { |
340449a2 |
9 | eval { require Catalyst::Plugin::Session::State::Cookie; Catalyst::Plugin::Session::State::Cookie->VERSION(0.03) } |
300eb468 |
10 | or plan skip_all => |
340449a2 |
11 | "Catalyst::Plugin::Session::State::Cookie 0.03 or higher is required for this test"; |
300eb468 |
12 | |
13 | eval { require Test::WWW::Mechanize::Catalyst } |
14 | or plan skip_all => |
15 | "Test::WWW::Mechanize::Catalyst is required for this test"; |
45c0711b |
16 | |
6687905d |
17 | plan tests => 36; |
300eb468 |
18 | } |
19 | |
20 | use lib "t/lib"; |
21 | use Test::WWW::Mechanize::Catalyst "SessionTestApp"; |
22 | |
23 | my $ua1 = Test::WWW::Mechanize::Catalyst->new; |
24 | my $ua2 = Test::WWW::Mechanize::Catalyst->new; |
25 | |
45c0711b |
26 | $_->get_ok( "http://localhost/page", "initial get" ) for $ua1, $ua2; |
300eb468 |
27 | |
28 | $ua1->content_contains( "please login", "ua1 not logged in" ); |
29 | $ua2->content_contains( "please login", "ua2 not logged in" ); |
30 | |
45c0711b |
31 | $ua1->get_ok( "http://localhost/login", "log ua1 in" ); |
300eb468 |
32 | $ua1->content_contains( "logged in", "ua1 logged in" ); |
33 | |
45c0711b |
34 | $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2; |
300eb468 |
35 | |
36 | $ua1->content_contains( "you are logged in", "ua1 logged in" ); |
37 | $ua2->content_contains( "please login", "ua2 not logged in" ); |
38 | |
45c0711b |
39 | $ua2->get_ok( "http://localhost/login", "get main page" ); |
300eb468 |
40 | $ua2->content_contains( "logged in", "log ua2 in" ); |
41 | |
45c0711b |
42 | $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2; |
300eb468 |
43 | |
44 | $ua1->content_contains( "you are logged in", "ua1 logged in" ); |
45 | $ua2->content_contains( "you are logged in", "ua2 logged in" ); |
46 | |
6687905d |
47 | my ( $u1_expires ) = ($ua1->content =~ /(\d+)$/); |
48 | my ( $u2_expires ) = ($ua2->content =~ /(\d+)$/); |
49 | |
50 | sleep 1; |
51 | |
52 | $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2; |
53 | |
54 | $ua1->content_contains( "you are logged in", "ua1 logged in" ); |
55 | $ua2->content_contains( "you are logged in", "ua2 logged in" ); |
56 | |
57 | my ( $u1_expires_updated ) = ($ua1->content =~ /(\d+)$/); |
58 | my ( $u2_expires_updated ) = ($ua2->content =~ /(\d+)$/); |
59 | |
60 | cmp_ok( $u1_expires, "<", $u1_expires_updated, "expiry time updated"); |
61 | cmp_ok( $u2_expires, "<", $u2_expires_updated, "expiry time updated"); |
62 | |
45c0711b |
63 | $ua2->get_ok( "http://localhost/logout", "log ua2 out" ); |
300eb468 |
64 | $ua2->content_like( qr/logged out/, "ua2 logged out" ); |
6687905d |
65 | $ua2->content_like( qr/after 2 request/, |
66 | "ua2 made 2 requests for page in the session" ); |
300eb468 |
67 | |
45c0711b |
68 | $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2; |
300eb468 |
69 | |
70 | $ua1->content_contains( "you are logged in", "ua1 logged in" ); |
71 | $ua2->content_contains( "please login", "ua2 not logged in" ); |
72 | |
45c0711b |
73 | $ua1->get_ok( "http://localhost/logout", "log ua1 out" ); |
300eb468 |
74 | $ua1->content_like( qr/logged out/, "ua1 logged out" ); |
6687905d |
75 | $ua1->content_like( qr/after 4 requests/, |
76 | "ua1 made 4 request for page in the session" ); |
300eb468 |
77 | |
45c0711b |
78 | $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2; |
300eb468 |
79 | |
80 | $ua1->content_contains( "please login", "ua1 not logged in" ); |
81 | $ua2->content_contains( "please login", "ua2 not logged in" ); |
82 | |