X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi-t%2F08-inheritcols.t;h=af294248517e36de48ed83263359d6bec48fe2c3;hb=a2ed1a5f6c18bbcd20c17aa6796116b6a7c12df3;hp=7c669496112910d96d17df92aa0dc2da0a563b5e;hpb=d2cee1fa9efa9dd1f830d1ade5914c7297e15933;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/cdbi-t/08-inheritcols.t b/t/cdbi-t/08-inheritcols.t
index 7c66949..af29424 100644
--- a/t/cdbi-t/08-inheritcols.t
+++ b/t/cdbi-t/08-inheritcols.t
@@ -1,12 +1,16 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 3;
+use Test::More;
 
-use Class::DBI;
+BEGIN {
+  eval "use DBIx::Class::CDBICompat;";
+  plan $@ ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required')
+          : (tests=> 3);
+}
 
 package A;
-@A::ISA = qw(Class::DBI);
+@A::ISA = qw(DBIx::Class::CDBICompat);
 __PACKAGE__->columns(Primary => 'id');
 
 package A::B;