Merge pull request #7 from tokuhirom/master

[catagits/Web-Session.git] / t / 013_cookiestore.t

diff --git a/t/013_cookiestore.t b/t/013_cookiestore.t
index 2e7f753..f1f1a58 100644 (file)
--- a/t/013_cookiestore.t
+++ b/t/013_cookiestore.t
@@ -13,17 +13,15 @@ my $app = sub {
     my $env = shift;
     my $session = $env->{'psgix.session'};
 
-    my $counter = $session->get('counter') || 0;
-    if ($counter >= 2) {
-        $session->expire;
-    } else {
-        $session->set(counter => $counter + 1);
+    my $counter = $session->{counter} || 0;
+    if ($session->{counter}++ >= 2) {
+        $env->{'psgix.session.options'}->{expire} = 1;
     }
 
     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 );
@@ -33,14 +31,17 @@ test_psgi ua => $ua, app => $app, client => sub {
 
     my $res = $cb->(GET "/");
     is $res->content, "counter=0";
+    like $res->header('Set-Cookie'), qr/expires=/;
+    like $res->header('Set-Cookie'), qr/path=\//;
 
     $res = $cb->(GET "/");
     is $res->content, "counter=1";
+    like $res->header('Set-Cookie'), qr/expires=/;
 
     $res = $cb->(GET "/");
     is $res->content, "counter=2";
 
-    my $res = $cb->(GET "/");
+    $res = $cb->(GET "/");
     is $res->content, "counter=0";
 };