X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi-t%2F11-triggers.t;h=f25957c6fe62e7320695f9fcf47c99a4e7015582;hb=1543db24f266ac56443d504e126c2273b06d6d5c;hp=9e36c54f99c64d5d991f8b486883c5399492d3b4;hpb=510ca9120ab2fea50a0852ee4ed6a13735ed7ebc;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/cdbi-t/11-triggers.t b/t/cdbi-t/11-triggers.t
index 9e36c54..f25957c 100644
--- a/t/cdbi-t/11-triggers.t
+++ b/t/cdbi-t/11-triggers.t
@@ -2,8 +2,13 @@ use strict;
 use Test::More;
 
 BEGIN {
-	eval "use DBD::SQLite";
-	plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 13);
+  eval "use DBIx::Class::CDBICompat;";
+  if ($@) {
+    plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
+    next;
+  }
+  eval "use DBD::SQLite";
+  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 13);
 }
 
 use lib 't/testlib';
@@ -20,13 +25,11 @@ sub pst_up_trigger { ::ok(1, "Running post-update trigger"); }
 
 sub default_rating { $_[0]->Rating(15); }
 
-Film->add_trigger(
-	before_create => \&default_rating,
-	after_create  => \&create_trigger2,
-	after_delete  => \&delete_trigger,
-	before_update => \&pre_up_trigger,
-	after_update  => \&pst_up_trigger,
-);
+Film->add_trigger(before_create => \&default_rating);
+Film->add_trigger(after_create  => \&create_trigger2);
+Film->add_trigger(after_delete  => \&delete_trigger);
+Film->add_trigger(before_update => \&pre_up_trigger);
+Film->add_trigger(after_update  => \&pst_up_trigger);
 
 ok(
 	my $ver = Film->create({