X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F013_cookiestore.t;fp=t%2F013_cookiestore.t;h=51c22782e50308f997b8594d5187e97d27602dbc;hb=ee51674d7247c5988d29d157068fa1aef2f515ca;hp=cc1e08cdf794bd65e1764592f1caaa9dd07729ae;hpb=e4976d975b55e9a317e77fd4a7a5e6c4b1a947e9;p=catagits%2FWeb-Session.git diff --git a/t/013_cookiestore.t b/t/013_cookiestore.t index cc1e08c..51c2278 100644 --- a/t/013_cookiestore.t +++ b/t/013_cookiestore.t @@ -21,7 +21,7 @@ my $app = sub { return [ 200, [], [ "counter=$counter" ] ]; }; -$app = Plack::Middleware::Session::Cookie->wrap($app, secret => "foobar"); +$app = Plack::Middleware::Session::Cookie->wrap($app, secret => "foobar", expires => 3600); my $ua = LWP::UserAgent->new; $ua->cookie_jar( HTTP::Cookies->new ); @@ -31,9 +31,11 @@ test_psgi ua => $ua, app => $app, client => sub { my $res = $cb->(GET "/"); is $res->content, "counter=0"; + like $res->header('Set-Cookie'), qr/expires=/; $res = $cb->(GET "/"); is $res->content, "counter=1"; + like $res->header('Set-Cookie'), qr/expires=/; $res = $cb->(GET "/"); is $res->content, "counter=2";