[Bast-commits] r4277 - DBIx-Class/0.08/trunk/t/cdbi-t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-04-20 16:41:09 +0100 (Sun, 20 Apr 2008)
New Revision: 4277

Modified:
   DBIx-Class/0.08/trunk/t/cdbi-t/24-meta_info.t
   DBIx-Class/0.08/trunk/t/cdbi-t/26-mutator.t
Log:
fix loading checks

Modified: DBIx-Class/0.08/trunk/t/cdbi-t/24-meta_info.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi-t/24-meta_info.t	2008-04-18 23:25:23 UTC (rev 4276)
+++ DBIx-Class/0.08/trunk/t/cdbi-t/24-meta_info.t	2008-04-20 15:41:09 UTC (rev 4277)
@@ -4,10 +4,14 @@
 use Test::More;
 
 BEGIN {
-    plan skip_all => "Time::Piece required for this test"
-        unless eval { require Time::Piece };
+  eval "use DBIx::Class::CDBICompat;";
+  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
+    if $@;
 
-    plan tests => 12;
+  plan skip_all => "Time::Piece required for this test"
+    unless eval { require Time::Piece };
+
+  plan tests => 12;
 }
 
 use Test::Warn;

Modified: DBIx-Class/0.08/trunk/t/cdbi-t/26-mutator.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi-t/26-mutator.t	2008-04-18 23:25:23 UTC (rev 4276)
+++ DBIx-Class/0.08/trunk/t/cdbi-t/26-mutator.t	2008-04-20 15:41:09 UTC (rev 4277)
@@ -2,6 +2,12 @@
 use Test::More;
 
 BEGIN {
+  eval "use DBIx::Class::CDBICompat;";
+  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
+    if $@;
+}
+
+BEGIN {
 	eval "use DBD::SQLite";
 	plan $@
 		? (skip_all => 'needs DBD::SQLite for testing')