force CDBICompat deps for developers, fix tests to work with latest Class::Trigger

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 11-triggers.t

diff --git a/t/cdbi-t/11-triggers.t b/t/cdbi-t/11-triggers.t
index 9e36c54..f25957c 100644 (file)
--- 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({