X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=blobdiff_plain;f=t%2Fbasic.t;h=9620451c913ab459df94534e42f4b30ab55c0bb1;hp=aa78b68fcb9e8880a20012e81d6d1bda413255e3;hb=2bde9162132ed51c98e86106f3b9be65459c12a3;hpb=7acfe95d356e31f93bfbebfbadd0088974080299

diff --git a/t/basic.t b/t/basic.t
index aa78b68..9620451 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 15;
+use Test::More tests => 10;
 use Test::MockObject;
 use Test::MockObject::Extends;
 
@@ -24,87 +24,50 @@ $res->set_always( cookies => \%res_cookies );
 my $cxt =
   Test::MockObject::Extends->new("Catalyst::Plugin::Session::State::Cookie");
 
-$cxt->set_always( config => { } );
+$cxt->set_always( config   => {} );
 $cxt->set_always( request  => $req );
 $cxt->set_always( response => $res );
+$cxt->set_always( session  => { } );
+$cxt->set_always( session_expires => 123 );
 $cxt->set_false("debug");
 my $sessionid;
 $cxt->mock( sessionid => sub { shift; $sessionid = shift if @_; $sessionid } );
 
-
 can_ok( $m, "setup_session" );
 
 $cxt->setup_session;
 
-is( $cxt->config->{session}{cookie_name}, "session", "default cookie name is set" );
+like( $cxt->config->{session}{cookie_name},
+    qr/_session$/, "default cookie name is set" );
 
+$cxt->config->{session}{cookie_name} = "session";
 
-can_ok( $m, "prepare_cookies" );
+can_ok( $m, "get_session_id" );
 
-$cxt->prepare_cookies;
-ok( !$cxt->called("sessionid"),
-    "didn't try setting session ID when there was nothing to set it by" );
+ok( !$cxt->get_session_id, "no session id yet");
 
 $cxt->clear;
 
 %req_cookies = ( session => $cookie );
 
-ok( !$cxt->sessionid, "no session ID yet" );
-$cxt->prepare_cookies;
-is( $cxt->sessionid, "the session id", "session ID was restored from cookie" );
+is( $cxt->get_session_id, "the session id", "session ID was restored from cookie" );
 
 $cxt->clear;
 $res->clear;
 
-can_ok( $m, "finalize" );
-$cxt->finalize;
-ok( !$res->called("cookies"),
-    "response cookie was not set since res cookie is already there" );
-
-$cxt->clear;
-$sessionid = undef;
-$res->clear;
+can_ok( $m, "set_session_id" );
+$cxt->set_session_id("moose");
 
-$cxt->finalize;
-ok( !$res->called("cookies"),
-"response cookie was not set when sessionid was deleted, even if req cookie is still there"
-);
+$res->called_ok( "cookies", "created a cookie on set" );
 
-$sessionid = "some other ID";
 $cxt->clear;
 $res->clear;
 
-$cxt->finalize;
-$res->called_ok( "cookies", "response cookie was set when sessionid changed" );
-is_deeply(
-    \%res_cookies,
-    { session => { value => $sessionid } },
-    "cookie was set correctly"
-);
+$cxt->set_session_id($sessionid);
 
-$cxt->clear;
-$res->clear;
-%req_cookies = ();
-%res_cookies = ();
-$sessionid   = undef;
-
-$cxt->finalize;
-ok( !$res->called("cookies"),
-    "response cookie was not set when there is no sessionid or request cookie"
-);
-
-$cxt->clear;
-$sessionid   = "123";
-%res_cookies = ();
-$res->clear;
-
-$cxt->finalize;
-
-$res->called_ok( "cookies",
-    "response cookie was set when session was created" );
+$res->called_ok( "cookies", "response cookie was set when sessionid changed" );
 is_deeply(
     \%res_cookies,
-    { session => { value => $sessionid } },
+    { session => { value => $sessionid, expires => 123 } },
     "cookie was set correctly"
 );
-