[Catalyst-commits] r9424 - in trunk/Catalyst-Plugin-Authentication: . t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-03-04 12:48:14 +0000 (Wed, 04 Mar 2009)
New Revision: 9424

Modified:
   trunk/Catalyst-Plugin-Authentication/Changes
   trunk/Catalyst-Plugin-Authentication/t/live_app_session.t
Log:
Don't run the mech test unless you have new mech. FIXME - Why the hell is the test count wrong, whats going on there - investiagte

Modified: trunk/Catalyst-Plugin-Authentication/Changes
===================================================================
--- trunk/Catalyst-Plugin-Authentication/Changes	2009-03-04 11:34:28 UTC (rev 9423)
+++ trunk/Catalyst-Plugin-Authentication/Changes	2009-03-04 12:48:14 UTC (rev 9424)
@@ -1,8 +1,12 @@
 Revision history for Perl extension Catalyst::Plugin::Authentication
 
+0.10011 *UNRELEASED*
+      - Update t/live_app_session.t to skip unless you have a newer, more
+        reliable version of TWMC (RT#43817)
+
 0.10010
       - Change from NEXT to MRO::Compat
-      - Chop a number off the versions to get back to the correct 0.10000 
+      - Chop a number off the versions to get back to the correct 0.10000
         version scheme.
 
 0.100092_01

Modified: trunk/Catalyst-Plugin-Authentication/t/live_app_session.t
===================================================================
--- trunk/Catalyst-Plugin-Authentication/t/live_app_session.t	2009-03-04 11:34:28 UTC (rev 9423)
+++ trunk/Catalyst-Plugin-Authentication/t/live_app_session.t	2009-03-04 12:48:14 UTC (rev 9424)
@@ -6,7 +6,9 @@
 BEGIN {
 	eval { require Test::WWW::Mechanize::Catalyst; require Catalyst::Plugin::Session; require Catalyst::Plugin::Session::State::Cookie };
 	plan skip_all => "This test needs Test::WWW::Mechanize::Catalyst, Catalyst::Plugin::Session and Catalyst::Plugin::Session::State::Cookie installed" if $@;
-	plan tests => 29;
+    plan skip_all => "This test needs Test::WWW::Mechanize::Catalyst >= 0.50, you have only $Test::WWW::Mechanize::Catalyst::VERSION"
+        unless $Test::WWW::Mechanize::Catalyst::VERSION >= 0.50;
+    plan tests => 26;
 }
 
 use lib 't/lib';
@@ -24,3 +26,4 @@
 $m->get_ok("http://localhost/fluffy_bunny", "get ok");
 $m->get_ok("http://localhost/possum", "get ok");
 $m->get_ok("http://localhost/butterfly", "get ok");
+