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

[jrockway at dev.catalyst.perl.org]

Author: jrockway
Date: 2007-08-10 04:51:16 +0100 (Fri, 10 Aug 2007)
New Revision: 6638

Modified:
   trunk/
   trunk/Catalyst-Plugin-Session-State-Cookie/Changes
   trunk/Catalyst-Plugin-Session-State-Cookie/lib/Catalyst/Plugin/Session/State/Cookie.pm
   trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t
Log:
 r28413 at foo:  jon | 2007-08-09 22:11:05 -0500
 fix State::Cookie so that tests work with newer TWMCs



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local_branches/Catalyst-bad-mst/trunk:40156
6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local_branches/Catalyst-broken-net/trunk:19004
6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local_branches/Catalyst_acl_in_conf/trunk:3134
d7608cd0-831c-0410-93c0-e5b306c3c028:/local/Catalyst-trunk:26670
d7608cd0-831c-0410-93c0-e5b306c3c028:/local/Catalyst/trunk:7830
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst/trunk:7023
   + 6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local_branches/Catalyst-bad-mst/trunk:40156
6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local_branches/Catalyst-broken-net/trunk:19004
6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local_branches/Catalyst_acl_in_conf/trunk:3134
d7608cd0-831c-0410-93c0-e5b306c3c028:/local/Catalyst-trunk:28413
d7608cd0-831c-0410-93c0-e5b306c3c028:/local/Catalyst/trunk:7830
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst/trunk:7023

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/Changes
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/Changes	2007-08-09 21:29:46 UTC (rev 6637)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/Changes	2007-08-10 03:51:16 UTC (rev 6638)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Plugin::Session::State::Cookie
 
+0.08    2007-08-09 9:46PM (+0500)
+        - Fix live test with Mech version 0.37+
+
 0.07    2007-04-04 23:10:00
         - Fix the bug that caused sessions to expire immediately when another
           session was deleted previously in the same request cycle

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/lib/Catalyst/Plugin/Session/State/Cookie.pm
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/lib/Catalyst/Plugin/Session/State/Cookie.pm	2007-08-09 21:29:46 UTC (rev 6637)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/lib/Catalyst/Plugin/Session/State/Cookie.pm	2007-08-10 03:51:16 UTC (rev 6638)
@@ -7,7 +7,7 @@
 use NEXT;
 use Catalyst::Utils ();
 
-our $VERSION = "0.07";
+our $VERSION = "0.08";
 
 BEGIN { __PACKAGE__->mk_accessors(qw/_deleted_session_id/) }
 
@@ -242,6 +242,7 @@
 Christian Hansen
 Yuval Kogman, C<nothingmuch at woobling.org>
 Marcus Ramberg
+Jonathan Rockway, C<jrockway at cpan.org>
 Sebastian Riedel
 
 =head1 COPYRIGHT

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t	2007-08-09 21:29:46 UTC (rev 6637)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t	2007-08-10 03:51:16 UTC (rev 6638)
@@ -49,27 +49,27 @@
 
 my $m = Test::WWW::Mechanize::Catalyst->new;
 
-$m->get_ok( "http://foo.com/stream", "get page" );
+$m->get_ok( "http://localhost/stream", "get page" );
 $m->content_contains( "hit number 1", "session data created" );
 
 my $expired;
-$m->cookie_jar->scan( sub { $expired = $_[8] } );
+$m->cookie_jar->scan( sub { $expired = $_[8]; warn join":", at _; } );
 
-$m->get_ok( "http://foo.com/page", "get page" );
+$m->get_ok( "http://localhost/page", "get page" );
 $m->content_contains( "hit number 2", "session data restored" );
 
-$m->get_ok( "http://foo.com/stream", "get stream" );
+$m->get_ok( "http://localhost/stream", "get stream" );
 $m->content_contains( "hit number 3", "session data restored" );
 
-sleep 2;
+sleep 1;
 
-$m->get_ok( "http://foo.com/page", "get stream" );
+$m->get_ok( "http://localhost/page", "get stream" );
 $m->content_contains( "hit number 4", "session data restored" );
 
 my $updated_expired;
-$m->cookie_jar->scan( sub { $updated_expired = $_[8] } );
+$m->cookie_jar->scan( sub { $updated_expired = $_[8]; warn join":", at _; } );
 
 cmp_ok( $expired, "<", $updated_expired, "cookie expiration was extended" );
 
-$m->get_ok( "http://foo.com/deleteme", "get page" );
+$m->get_ok( "http://localhost/deleteme", "get page" );
 $m->content_is( 1, 'session id changed' );