5 eval "use DBIx::Class::CDBICompat;";
7 plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
10 eval "use DBD::SQLite";
11 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 13);
17 sub create_trigger2 { ::ok(1, "Running create trigger 2"); }
18 sub delete_trigger { ::ok(1, "Deleting " . shift->Title) }
21 $_[0]->_attribute_set(numexplodingsheep => 1);
22 ::ok(1, "Running pre-update trigger");
24 sub pst_up_trigger { ::ok(1, "Running post-update trigger"); }
26 sub default_rating { $_[0]->Rating(15); }
29 before_create => \&default_rating,
30 after_create => \&create_trigger2,
31 after_delete => \&delete_trigger,
32 before_update => \&pre_up_trigger,
33 after_update => \&pst_up_trigger,
37 my $ver = Film->create({
38 title => 'La Double Vie De Veronique',
39 director => 'Kryzstof Kieslowski',
42 numexplodingsheep => 0,
48 is $ver->Rating, 15, "Default rating";
49 is $ver->NumExplodingSheep, 0, "Original sheep count";
50 ok $ver->Rating('12') && $ver->update, "Change the rating";
51 is $ver->NumExplodingSheep, 1, "Updated object's sheep count";
53 $ver->db_Main->selectall_arrayref(
54 'SELECT numexplodingsheep FROM '
57 . $ver->primary_column . ' = '
58 . $ver->db_Main->quote($ver->id))
59 )->[0]->[0], 1, "Updated database's sheep count";
60 ok $ver->delete, "Delete";
63 Film->add_trigger(before_create => sub {
65 ok !$self->_attribute_exists('title'), "PK doesn't auto-vivify";
67 Film->create({director => "Me"});