Switch CDBICompat and its tests to OptDeps

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

diff --git a/t/cdbi/11-triggers.t b/t/cdbi/11-triggers.t
index efab875..cd322e5 100644 (file)
--- a/t/cdbi/11-triggers.t
+++ b/t/cdbi/11-triggers.t
@@ -1,15 +1,9 @@
+use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
+
 use strict;
-use Test::More;
+use warnings;
 
-BEGIN {
-  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 Test::More;
 
 use lib 't/cdbi/testlib';
 use Film;
@@ -18,8 +12,8 @@ sub create_trigger2 { ::ok(1, "Running create trigger 2"); }
 sub delete_trigger  { ::ok(1, "Deleting " . shift->Title) }
 
 sub pre_up_trigger {
-       $_[0]->_attribute_set(numexplodingsheep => 1);
-       ::ok(1, "Running pre-update trigger");
+  $_[0]->_attribute_set(numexplodingsheep => 1);
+  ::ok(1, "Running pre-update trigger");
 }
 sub pst_up_trigger { ::ok(1, "Running post-update trigger"); }
 
@@ -32,15 +26,15 @@ Film->add_trigger(before_update => \&pre_up_trigger);
 Film->add_trigger(after_update  => \&pst_up_trigger);
 
 ok(
-       my $ver = Film->create({
-                       title    => 'La Double Vie De Veronique',
-                       director => 'Kryzstof Kieslowski',
-
-                       # rating           => '15',
-                       numexplodingsheep => 0,
-               }
-       ),
-       "Create Veronique"
+  my $ver = Film->create({
+      title    => 'La Double Vie De Veronique',
+      director => 'Kryzstof Kieslowski',
+
+      # rating           => '15',
+      numexplodingsheep => 0,
+    }
+  ),
+  "Create Veronique"
 );
 
 is $ver->Rating,            15, "Default rating";
@@ -48,19 +42,21 @@ is $ver->NumExplodingSheep, 0,  "Original sheep count";
 ok $ver->Rating('12') && $ver->update, "Change the rating";
 is $ver->NumExplodingSheep, 1, "Updated object's sheep count";
 is + (
-       $ver->db_Main->selectall_arrayref(
-                   'SELECT numexplodingsheep FROM '
-                       . $ver->table
-                       . ' WHERE '
-                       . $ver->primary_column . ' = '
-                       . $ver->db_Main->quote($ver->id))
+  $ver->db_Main->selectall_arrayref(
+        'SELECT numexplodingsheep FROM '
+      . $ver->table
+      . ' WHERE '
+      . $ver->primary_column . ' = '
+      . $ver->db_Main->quote($ver->id))
 )->[0]->[0], 1, "Updated database's sheep count";
 ok $ver->delete, "Delete";
 
 {
-       Film->add_trigger(before_create => sub { 
-               my $self = shift;
-               ok !$self->_attribute_exists('title'), "PK doesn't auto-vivify";
-       });
-       Film->create({director => "Me"});
+  Film->add_trigger(before_create => sub {
+    my $self = shift;
+    ok !$self->_attribute_exists('title'), "PK doesn't auto-vivify";
+  });
+  Film->create({director => "Me"});
 }
+
+done_testing;