9 eval { require Catalyst::Plugin::Session::State::Cookie }
11 "Catalyst::Plugin::Session::State::Cookie is required for this test";
13 eval { require Test::WWW::Mechanize::Catalyst }
15 "Test::WWW::Mechanize::Catalyst is required for this test";
21 use Test::WWW::Mechanize::Catalyst "SessionTestApp";
23 my $ua1 = Test::WWW::Mechanize::Catalyst->new;
24 my $ua2 = Test::WWW::Mechanize::Catalyst->new;
26 $_->get_ok( "http://localhost/page", "initial get" ) for $ua1, $ua2;
28 $ua1->content_contains( "please login", "ua1 not logged in" );
29 $ua2->content_contains( "please login", "ua2 not logged in" );
31 $ua1->get_ok( "http://localhost/login", "log ua1 in" );
32 $ua1->content_contains( "logged in", "ua1 logged in" );
34 $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2;
36 $ua1->content_contains( "you are logged in", "ua1 logged in" );
37 $ua2->content_contains( "please login", "ua2 not logged in" );
39 $ua2->get_ok( "http://localhost/login", "get main page" );
40 $ua2->content_contains( "logged in", "log ua2 in" );
42 $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2;
44 $ua1->content_contains( "you are logged in", "ua1 logged in" );
45 $ua2->content_contains( "you are logged in", "ua2 logged in" );
47 my ( $u1_expires ) = ($ua1->content =~ /(\d+)$/);
48 my ( $u2_expires ) = ($ua2->content =~ /(\d+)$/);
52 $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2;
54 $ua1->content_contains( "you are logged in", "ua1 logged in" );
55 $ua2->content_contains( "you are logged in", "ua2 logged in" );
57 my ( $u1_expires_updated ) = ($ua1->content =~ /(\d+)$/);
58 my ( $u2_expires_updated ) = ($ua2->content =~ /(\d+)$/);
60 cmp_ok( $u1_expires, "<", $u1_expires_updated, "expiry time updated");
61 cmp_ok( $u2_expires, "<", $u2_expires_updated, "expiry time updated");
63 $ua2->get_ok( "http://localhost/logout", "log ua2 out" );
64 $ua2->content_like( qr/logged out/, "ua2 logged out" );
65 $ua2->content_like( qr/after 2 request/,
66 "ua2 made 2 requests for page in the session" );
68 $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2;
70 $ua1->content_contains( "you are logged in", "ua1 logged in" );
71 $ua2->content_contains( "please login", "ua2 not logged in" );
73 $ua1->get_ok( "http://localhost/logout", "log ua1 out" );
74 $ua1->content_like( qr/logged out/, "ua1 logged out" );
75 $ua1->content_like( qr/after 4 requests/,
76 "ua1 made 4 request for page in the session" );
78 $_->get_ok( "http://localhost/page", "get main page" ) for $ua1, $ua2;
80 $ua1->content_contains( "please login", "ua1 not logged in" );
81 $ua2->content_contains( "please login", "ua2 not logged in" );