[Catalyst-commits] r6255 - trunk/Catalyst-Plugin-Session-State-Cookie/t

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-04-03 13:04:42 +0100 (Tue, 03 Apr 2007)
New Revision: 6255

Modified:
   trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t
Log:
added a test for nothingmuch's patch

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t	2007-04-03 01:41:33 UTC (rev 6254)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t	2007-04-03 12:04:42 UTC (rev 6255)
@@ -34,6 +34,14 @@
         $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;
 }
 
@@ -62,3 +70,6 @@
 $m->cookie_jar->scan( sub { $updated_expired = $_[8] } );
 
 cmp_ok( $expired, "<", $updated_expired, "cookie expiration was extended" );
+
+$m->get_ok( "http://foo.com/deleteme", "get page" );
+$m->content_is( 1, 'session id changed' );