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

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-03-11 03:15:09 +0000 (Tue, 11 Mar 2008)
New Revision: 4163

Modified:
   DBIx-Class/0.08/trunk/t/cdbi-t/08-inheritcols.t
Log:
moved t/cdbi-t/08-inheritcols.t to use CDBICompat

Modified: DBIx-Class/0.08/trunk/t/cdbi-t/08-inheritcols.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi-t/08-inheritcols.t	2008-03-11 03:12:33 UTC (rev 4162)
+++ DBIx-Class/0.08/trunk/t/cdbi-t/08-inheritcols.t	2008-03-11 03:15:09 UTC (rev 4163)
@@ -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;
- at A::ISA = qw(Class::DBI);
+ at A::ISA = qw(DBIx::Class::CDBICompat);
 __PACKAGE__->columns(Primary => 'id');
 
 package A::B;