1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
9 use lib 't/cdbi/testlib';
12 sub create_trigger2 { ::ok(1, "Running create trigger 2"); }
13 sub delete_trigger { ::ok(1, "Deleting " . shift->Title) }
16 $_[0]->_attribute_set(numexplodingsheep => 1);
17 ::ok(1, "Running pre-update trigger");
19 sub pst_up_trigger { ::ok(1, "Running post-update trigger"); }
21 sub default_rating { $_[0]->Rating(15); }
23 Film->add_trigger(before_create => \&default_rating);
24 Film->add_trigger(after_create => \&create_trigger2);
25 Film->add_trigger(after_delete => \&delete_trigger);
26 Film->add_trigger(before_update => \&pre_up_trigger);
27 Film->add_trigger(after_update => \&pst_up_trigger);
30 my $ver = Film->create({
31 title => 'La Double Vie De Veronique',
32 director => 'Kryzstof Kieslowski',
35 numexplodingsheep => 0,
41 is $ver->Rating, 15, "Default rating";
42 is $ver->NumExplodingSheep, 0, "Original sheep count";
43 ok $ver->Rating('12') && $ver->update, "Change the rating";
44 is $ver->NumExplodingSheep, 1, "Updated object's sheep count";
46 $ver->db_Main->selectall_arrayref(
47 'SELECT numexplodingsheep FROM '
50 . $ver->primary_column . ' = '
51 . $ver->db_Main->quote($ver->id))
52 )->[0]->[0], 1, "Updated database's sheep count";
53 ok $ver->delete, "Delete";
56 Film->add_trigger(before_create => sub {
58 ok !$self->_attribute_exists('title'), "PK doesn't auto-vivify";
60 Film->create({director => "Me"});