Make mech tests skip unless mech new enough. RT#55303

diff --git a/Changes b/Changes
index 5d23d37..5808703 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+   - Skip WWW::Mech tests unless WWW::Mech is a new enough version (RT#55303).
+
 1.012 2010-03-07
    - Move actions out of the test applications to stop warnings.
 

diff --git a/Makefile.PL b/Makefile.PL
index 40c9275..1b7ce66 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -14,6 +14,7 @@ requires 'Test::MockObject';
 requires 'URI::Escape';
 requires 'Class::Accessor::Fast';
 
+author_requires 'Test::WWW::Mechanize::Catalyst' => '0.51';
 author_requires 'Test::Pod' => '1.14';
 author_requires 'Test::Spelling' => '0.11';
 author_requires 'Test::Pod::Coverage' => '1.04';

diff --git a/t/live_app.t b/t/live_app.t
index 142c406..fc07156 100644 (file)
--- a/t/live_app.t
+++ b/t/live_app.t
@@ -7,7 +7,11 @@ use lib "$Bin/lib";
 
 use Test::More;
 BEGIN {
-    eval { require Test::WWW::Mechanize::Catalyst }
+    do {
+        eval { require Test::WWW::Mechanize::Catalyst }
+        and
+        Test::WWW::Mechanize::Catalyst->VERSION('0.51')
+    }
       or plan skip_all =>
       "Test::WWW::Mechanize::Catalyst is needed for this test";
     plan tests => 4;

diff --git a/t/live_app_digest.t b/t/live_app_digest.t
index 50f2247..2755f3c 100644 (file)
--- a/t/live_app_digest.t
+++ b/t/live_app_digest.t
@@ -5,7 +5,11 @@ use FindBin qw/$Bin/;
 use lib "$Bin/lib";
 use Test::More;
 BEGIN {
-    eval { require Test::WWW::Mechanize::Catalyst }
+    do {
+        eval { require Test::WWW::Mechanize::Catalyst }
+        and
+        Test::WWW::Mechanize::Catalyst->VERSION('0.51')
+    }
       or plan skip_all =>
       "Test::WWW::Mechanize::Catalyst is needed for this test";
     eval { require Catalyst::Plugin::Cache }