From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 20 Apr 2008 15:41:09 +0000 (+0000)
Subject: fix loading checks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40f051753c914357649e074ba0c7621d2f87308a;p=dbsrgits%2FDBIx-Class-Historic.git

fix loading checks
---

diff --git a/t/cdbi-t/24-meta_info.t b/t/cdbi-t/24-meta_info.t
index 93268e9..2545111 100644
--- a/t/cdbi-t/24-meta_info.t
+++ b/t/cdbi-t/24-meta_info.t
@@ -4,10 +4,14 @@ use strict;
 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;
diff --git a/t/cdbi-t/26-mutator.t b/t/cdbi-t/26-mutator.t
index a7f8f98..1eeea25 100644
--- a/t/cdbi-t/26-mutator.t
+++ b/t/cdbi-t/26-mutator.t
@@ -2,6 +2,12 @@ use strict;
 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')