[Catalyst-commits] r10738 - in trunk/Catalyst-Model-DBIC-Schema: . t

[wintrmute at dev.catalyst.perl.org]

Author: wintrmute
Date: 2009-06-30 08:17:53 +0000 (Tue, 30 Jun 2009)
New Revision: 10738

Modified:
   trunk/Catalyst-Model-DBIC-Schema/Makefile.PL
   trunk/Catalyst-Model-DBIC-Schema/t/08helper.t
Log:
Remove requirement on Catalyst::Helper, and instead skip the test that fails
without its presence.


Modified: trunk/Catalyst-Model-DBIC-Schema/Makefile.PL
===================================================================
--- trunk/Catalyst-Model-DBIC-Schema/Makefile.PL	2009-06-30 07:57:52 UTC (rev 10737)
+++ trunk/Catalyst-Model-DBIC-Schema/Makefile.PL	2009-06-30 08:17:53 UTC (rev 10738)
@@ -16,7 +16,6 @@
 
 test_requires 'Test::More';
 test_requires 'Test::Exception';
-test_requires 'Catalyst::Helper';
 
 feature 'Catalyst::Helper support',
     -default                      => 0,

Modified: trunk/Catalyst-Model-DBIC-Schema/t/08helper.t
===================================================================
--- trunk/Catalyst-Model-DBIC-Schema/t/08helper.t	2009-06-30 07:57:52 UTC (rev 10737)
+++ trunk/Catalyst-Model-DBIC-Schema/t/08helper.t	2009-06-30 08:17:53 UTC (rev 10738)
@@ -4,11 +4,13 @@
 use FindBin '$Bin';
 use lib "$Bin/lib";
 
-use Test::More tests => 40;
+use Test::More;
 use Test::Exception;
 use Catalyst::Helper::Model::DBIC::Schema;
-use Catalyst::Helper;
 use Storable 'dclone';
+eval "use Catalyst::Helper";
+plan skip_all => 'Catalyst::Helper required for tests' if $@;
+plan tests => 40;
 
 my $helper      = Catalyst::Helper->new;
 $helper->{base} = $Bin;