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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-08-28 17:03:16 +0100 (Tue, 28 Aug 2007)
New Revision: 6795

Modified:
   trunk/Catalyst-View-Mason/t/helper.t
Log:
Skip t/helper.t if Catalyst::Helper isn't around.


Modified: trunk/Catalyst-View-Mason/t/helper.t
===================================================================
--- trunk/Catalyst-View-Mason/t/helper.t	2007-08-28 16:03:13 UTC (rev 6794)
+++ trunk/Catalyst-View-Mason/t/helper.t	2007-08-28 16:03:16 UTC (rev 6795)
@@ -4,7 +4,6 @@
 use warnings;
 use Cwd;
 use File::Path;
-use Catalyst::Helper;
 use File::Spec::Functions qw/catdir catfile/;
 use Test::More;
 
@@ -14,6 +13,9 @@
 eval 'use Test::Exception';
 plan skip_all => 'Test::Exception required' if $@;
 
+eval 'use Catalyst::Helper';
+plan skip_all => 'Catalyst::Helper required' if $@;
+
 plan tests => 3;
 
 my $app_name = 'TestApp';
@@ -28,7 +30,7 @@
 my $helper = Catalyst::Helper->new;
 
 $helper->mk_app($app_name);
-$FindBin::Bin = catdir($app_name, 'lib');
+$FindBin::Bin = $FindBin::Bin = catdir($app_name, 'lib');
 
 $helper->mk_component($app_name, 'view', 'Mason', 'Mason');