[Catalyst-commits] r10564 - in trunk/Catalyst-Plugin-Session-State-Cookie/t: . lib

[kmx at dev.catalyst.perl.org]

Author: kmx
Date: 2009-06-17 08:23:20 +0000 (Wed, 17 Jun 2009)
New Revision: 10564

Modified:
   trunk/Catalyst-Plugin-Session-State-Cookie/t/basic.t
   trunk/Catalyst-Plugin-Session-State-Cookie/t/lib/CookieTestApp.pm
   trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t
Log:
C::P::Session::State::Cookie - improved tests (cookie_secure option)

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/t/basic.t
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/t/basic.t	2009-06-17 07:26:03 UTC (rev 10563)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/t/basic.t	2009-06-17 08:23:20 UTC (rev 10564)
@@ -68,7 +68,7 @@
 $res->called_ok( "cookies", "response cookie was set when sessionid changed" );
 is_deeply(
     \%res_cookies,
-    { session => { value => $sessionid, expires => 123 } },
+    { session => { value => $sessionid, httponly => 1, expires => 123 } },
     "cookie was set correctly"
 );
 

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/t/lib/CookieTestApp.pm
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/t/lib/CookieTestApp.pm	2009-06-17 07:26:03 UTC (rev 10563)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/t/lib/CookieTestApp.pm	2009-06-17 08:23:20 UTC (rev 10564)
@@ -6,6 +6,8 @@
   Session::State::Cookie
   /;
 
+__PACKAGE__->config->{session} = { cookie_secure => 2 };
+
 sub page : Local {
     my ( $self, $c ) = @_;
     $c->res->body( "Hi! hit number " . ++$c->session->{counter} );

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t	2009-06-17 07:26:03 UTC (rev 10563)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t	2009-06-17 08:23:20 UTC (rev 10564)
@@ -56,3 +56,10 @@
 
 $m->get_ok( "http://localhost/deleteme", "get page" );
 $m->content_is( 1, 'session id changed' );
+
+$m->get_ok( "https://localhost/page", "get page over HTTPS - init session");
+$m->content_contains( "hit number 1", "first hit" );
+$m->get_ok( "http://localhost/page", "get page again over HTTP");
+$m->content_contains( "hit number 1", "first hit again - cookie not sent" );
+$m->get_ok( "https://localhost/page", "get page over HTTPS");
+$m->content_contains( "hit number 2", "second hit" );