X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=blobdiff_plain;f=t%2Flive_app.t;h=3c814fb68a6790d0399c8dbbf509b888c6814346;hp=db8afdbd9a81c93b1c0143ffb961972cd672e16c;hb=a79a56a8332eb8daf2f85eceb0a1eea66324e91d;hpb=58730edcb664fc621cbb907b477d037c5c8576fa diff --git a/t/live_app.t b/t/live_app.t index db8afdb..3c814fb 100644 --- a/t/live_app.t +++ b/t/live_app.t @@ -34,6 +34,14 @@ BEGIN { $c->res->write($count); } + sub deleteme : Local { + my ( $self, $c ) = @_; + my $id = $c->get_session_id; + $c->delete_session; + my $id2 = $c->get_session_id; + $c->res->body( $id ne ( $id2 || '' ) ); + } + __PACKAGE__->setup; } @@ -41,24 +49,27 @@ use Test::WWW::Mechanize::Catalyst qw/CookieTestApp/; my $m = Test::WWW::Mechanize::Catalyst->new; -$m->get_ok( "http://foo.com/stream", "get page" ); +$m->get_ok( "http://localhost/stream", "get page" ); $m->content_contains( "hit number 1", "session data created" ); my $expired; -$m->cookie_jar->scan( sub { $expired = $_[8] } ); +$m->cookie_jar->scan( sub { $expired = $_[8]; warn join":",@_; } ); -$m->get_ok( "http://foo.com/page", "get page" ); +$m->get_ok( "http://localhost/page", "get page" ); $m->content_contains( "hit number 2", "session data restored" ); -$m->get_ok( "http://foo.com/stream", "get stream" ); +$m->get_ok( "http://localhost/stream", "get stream" ); $m->content_contains( "hit number 3", "session data restored" ); sleep 1; -$m->get_ok( "http://foo.com/page", "get stream" ); +$m->get_ok( "http://localhost/page", "get stream" ); $m->content_contains( "hit number 4", "session data restored" ); my $updated_expired; -$m->cookie_jar->scan( sub { $updated_expired = $_[8] } ); +$m->cookie_jar->scan( sub { $updated_expired = $_[8]; warn join":",@_; } ); cmp_ok( $expired, "<", $updated_expired, "cookie expiration was extended" ); + +$m->get_ok( "http://localhost/deleteme", "get page" ); +$m->content_is( 1, 'session id changed' );