9 eval { require Test::WWW::Mechanize::Catalyst };
11 "This test requires Test::WWW::Mechanize::Catalyst in order to run"
13 plan skip_all => 'Test::WWW::Mechanize::Catalyst >= 0.40 required' if $Test::WWW::Mechanize::Catalyst::VERSION < 0.40;
19 package CookieTestApp;
23 Session::State::Cookie
27 my ( $self, $c ) = @_;
28 $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
32 my ( $self, $c ) = @_;
33 my $count = ++$c->session->{counter};
34 $c->res->write("hit number ");
35 $c->res->write($count);
38 sub deleteme : Local {
39 my ( $self, $c ) = @_;
40 my $id = $c->get_session_id;
42 my $id2 = $c->get_session_id;
43 $c->res->body( $id ne ( $id2 || '' ) );
49 use Test::WWW::Mechanize::Catalyst qw/CookieTestApp/;
51 my $m = Test::WWW::Mechanize::Catalyst->new;
53 $m->get_ok( "http://localhost/stream", "get page" );
54 $m->content_contains( "hit number 1", "session data created" );
57 $m->cookie_jar->scan( sub { $expired = $_[8]; } );
59 $m->get_ok( "http://localhost/page", "get page" );
60 $m->content_contains( "hit number 2", "session data restored" );
62 $m->get_ok( "http://localhost/stream", "get stream" );
63 $m->content_contains( "hit number 3", "session data restored" );
67 $m->get_ok( "http://localhost/page", "get stream" );
68 $m->content_contains( "hit number 4", "session data restored" );
71 $m->cookie_jar->scan( sub { $updated_expired = $_[8]; } );
73 cmp_ok( $expired, "<", $updated_expired, "cookie expiration was extended" );
75 $m->get_ok( "http://localhost/deleteme", "get page" );
76 $m->content_is( 1, 'session id changed' );