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

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-09-14 15:12:15 +0100 (Fri, 14 Sep 2007)
New Revision: 6886

Modified:
   trunk/Catalyst-Plugin-Session-State-Cookie/Changes
   trunk/Catalyst-Plugin-Session-State-Cookie/Makefile.PL
   trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t
Log:
require specific ver of Test::WWW::Mechanize::Catalyst for t/live_app. remove some warnings

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/Changes
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/Changes	2007-09-14 13:54:44 UTC (rev 6885)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/Changes	2007-09-14 14:12:15 UTC (rev 6886)
@@ -2,6 +2,7 @@
 
 0.08    2007-08-09 9:46PM (+0500)
         - Fix live test with Mech version 0.37+
+        - Switch to Module::Install
 
 0.07    2007-04-04 23:10:00
         - Fix the bug that caused sessions to expire immediately when another

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/Makefile.PL	2007-09-14 13:54:44 UTC (rev 6885)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/Makefile.PL	2007-09-14 14:12:15 UTC (rev 6886)
@@ -1,4 +1,4 @@
-use inc::Module::Install;
+use inc::Module::Install 0.67;
 
 name 'Catalyst-Plugin-Session-State-Cookie';
 all_from 'lib/Catalyst/Plugin/Session/State/Cookie.pm';

Modified: trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t
===================================================================
--- trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t	2007-09-14 13:54:44 UTC (rev 6885)
+++ trunk/Catalyst-Plugin-Session-State-Cookie/t/live_app.t	2007-09-14 14:12:15 UTC (rev 6886)
@@ -10,6 +10,7 @@
     plan skip_all =>
       "This test requires Test::WWW::Mechanize::Catalyst in order to run"
       if $@;
+    plan skip_all => 'Test::WWW::Mechanize::Catalyst >= 0.40 required' if $Test::WWW::Mechanize::Catalyst::VERSION < 0.40;
     plan 'no_plan';
 }
 
@@ -53,7 +54,7 @@
 $m->content_contains( "hit number 1", "session data created" );
 
 my $expired;
-$m->cookie_jar->scan( sub { $expired = $_[8]; warn join":", at _; } );
+$m->cookie_jar->scan( sub { $expired = $_[8]; } );
 
 $m->get_ok( "http://localhost/page", "get page" );
 $m->content_contains( "hit number 2", "session data restored" );
@@ -67,7 +68,7 @@
 $m->content_contains( "hit number 4", "session data restored" );
 
 my $updated_expired;
-$m->cookie_jar->scan( sub { $updated_expired = $_[8]; warn join":", at _; } );
+$m->cookie_jar->scan( sub { $updated_expired = $_[8]; } );
 
 cmp_ok( $expired, "<", $updated_expired, "cookie expiration was extended" );