[Catalyst-commits] r8501 - in trunk/Catalyst-Plugin-PageCache: . lib/Catalyst/Plugin t

andyg at dev.catalyst.perl.org andyg at dev.catalyst.perl.org
Thu Oct 2 15:39:14 BST 2008


Author: andyg
Date: 2008-10-02 15:39:14 +0100 (Thu, 02 Oct 2008)
New Revision: 8501

Modified:
   trunk/Catalyst-Plugin-PageCache/Changes
   trunk/Catalyst-Plugin-PageCache/lib/Catalyst/Plugin/PageCache.pm
   trunk/Catalyst-Plugin-PageCache/t/15busy_lock.t
Log:
PageCache 0.21, fix test failure

Modified: trunk/Catalyst-Plugin-PageCache/Changes
===================================================================
--- trunk/Catalyst-Plugin-PageCache/Changes	2008-10-02 13:46:44 UTC (rev 8500)
+++ trunk/Catalyst-Plugin-PageCache/Changes	2008-10-02 14:39:14 UTC (rev 8501)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Plugin::PageCache
 
+0.21    2008-10-02 10:45:00
+        - Check for FileCache in new test to avoid test failures.
+
 0.20    2008-10-02 00:15:00
         - Config option 'cache_headers' to cache HTTP headers.  This is needed
           if operating behind edge caches such as Akamai. (Chris Alef)

Modified: trunk/Catalyst-Plugin-PageCache/lib/Catalyst/Plugin/PageCache.pm
===================================================================
--- trunk/Catalyst-Plugin-PageCache/lib/Catalyst/Plugin/PageCache.pm	2008-10-02 13:46:44 UTC (rev 8500)
+++ trunk/Catalyst-Plugin-PageCache/lib/Catalyst/Plugin/PageCache.pm	2008-10-02 14:39:14 UTC (rev 8501)
@@ -4,7 +4,7 @@
 use base qw/Class::Accessor::Fast/;
 use NEXT;
 
-our $VERSION = '0.20';
+our $VERSION = '0.21';
 
 # Do we need to cache the current page?
 __PACKAGE__->mk_accessors('_cache_page');

Modified: trunk/Catalyst-Plugin-PageCache/t/15busy_lock.t
===================================================================
--- trunk/Catalyst-Plugin-PageCache/t/15busy_lock.t	2008-10-02 13:46:44 UTC (rev 8500)
+++ trunk/Catalyst-Plugin-PageCache/t/15busy_lock.t	2008-10-02 14:39:14 UTC (rev 8501)
@@ -9,6 +9,13 @@
 use File::Path;
 use Time::HiRes qw(time sleep);
 
+BEGIN {
+    eval "use Catalyst::Plugin::Cache::FileCache";
+    if ( $@ ) {
+        plan skip_all => 'needs Catalyst::Plugin::Cache::FileCache for testing';
+    }
+}
+
 plan $^O =~ /Win32/
     ? ( skip_all => 'Cannot run this test on Windows' )
     : ( tests => 4 );




More information about the Catalyst-commits mailing list