9 eval { require Catalyst::Plugin::Session::State::Cookie; Catalyst::Plugin::Session::State::Cookie->VERSION(0.03) }
11 "Catalyst::Plugin::Session::State::Cookie 0.03 or higher is required for this test";
14 require Test::WWW::Mechanize::Catalyst;
15 Test::WWW::Mechanize::Catalyst->VERSION(0.51);
18 'Test::WWW::Mechanize::Catalyst >= 0.51 is required for this test';
22 use Test::WWW::Mechanize::Catalyst "SessionExpiry";
24 my $ua = Test::WWW::Mechanize::Catalyst->new;
26 my $res = $ua->get( "http://localhost/session_data_expires" );
27 ok($res->is_success, "session_data_expires");
29 my $expiry = $res->decoded_content + 0;
31 $res = $ua->get( "http://localhost/session_expires" );
32 ok($res->is_success, "session_expires");
33 is($res->decoded_content, $expiry, "session_expires == session_data_expires");
37 $res = $ua->get( "http://localhost/session_data_expires" );
38 ok($res->is_success, "session_data_expires");
40 is($res->decoded_content, $expiry, "expiration not updated");
42 $res = $ua->get( "http://localhost/session_expires" );
43 ok($res->is_success, "session_expires");
44 is($res->decoded_content, $expiry, "session_expires == session_data_expires");
48 $res = $ua->get( "http://localhost/update_session" );
49 ok($res->is_success, "update_session");
51 $res = $ua->get( "http://localhost/session_data_expires" );
52 ok($res->is_success, "session_data_expires");
54 my $updated = $res->decoded_content + 0;
55 ok($updated > $expiry, "expiration updated");
59 $res = $ua->get( "http://localhost/session_data_expires" );
60 ok($res->is_success, "session_data_expires");
62 is($res->decoded_content, $expiry, "expiration not updated");
64 $res = $ua->get( "http://localhost/session_expires" );
65 ok($res->is_success, "session_expires");
66 is($res->decoded_content, $expiry, "session_expires == session_data_expires");
70 $res = $ua->get( "http://localhost/session_data_expires" );
71 ok($res->is_success, "session_data_expires");
73 $updated = $res->decoded_content + 0;
74 ok($updated > $expiry, "expiration updated");
76 $res = $ua->get( "http://localhost/session_expires" );
77 ok($res->is_success, "session_expires");
78 is($res->decoded_content, $updated, "session_expires == session_data_expires");