[Catalyst-commits] r6819 - trunk/Catalyst-View-Mason/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-08-28 17:04:46 +0100 (Tue, 28 Aug 2007)
New Revision: 6819

Modified:
   trunk/Catalyst-View-Mason/t/exception.t
   trunk/Catalyst-View-Mason/t/helper.t
Log:
Make t/exception.t not fail if Test::MockModule isn't installed by fixing the number of tests to skip.


Modified: trunk/Catalyst-View-Mason/t/exception.t
===================================================================
--- trunk/Catalyst-View-Mason/t/exception.t	2007-08-28 16:04:43 UTC (rev 6818)
+++ trunk/Catalyst-View-Mason/t/exception.t	2007-08-28 16:04:46 UTC (rev 6819)
@@ -16,7 +16,7 @@
 
 SKIP: {
     eval 'use Test::MockModule';
-    skip 'Test::MockModule required', 1 if $@;
+    skip 'Test::MockModule required', 2 if $@;
 
     my $mock = Test::MockModule->new('HTML::Mason::Interp');
     $mock->mock(exec => sub { die bless \do { my $o }, 'FakeException' });

Modified: trunk/Catalyst-View-Mason/t/helper.t
===================================================================
--- trunk/Catalyst-View-Mason/t/helper.t	2007-08-28 16:04:43 UTC (rev 6818)
+++ trunk/Catalyst-View-Mason/t/helper.t	2007-08-28 16:04:46 UTC (rev 6819)
@@ -19,7 +19,7 @@
 plan tests => 4;
 
 my $app_name = 'TestApp';
-my $old_cwd  = cwd;
+my $old_cwd  = cwd();
 my $test_dir = catdir(qw/t var/);
 
 if (!-d $test_dir) {