X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F11-triggers.t;h=918403a28ac0abd6034161fe21216c8c2f87a0be;hb=6a3bf2519832866d037740c5fb22341dad6f8bb3;hp=efab875e16afc0329fee8c766bc80f07a5912689;hpb=50891152d0b24649bfd67bdba97feec86b11c064;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/11-triggers.t b/t/cdbi/11-triggers.t index efab875..918403a 100644 --- a/t/cdbi/11-triggers.t +++ b/t/cdbi/11-triggers.t @@ -18,8 +18,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 +32,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', + my $ver = Film->create({ + title => 'La Double Vie De Veronique', + director => 'Kryzstof Kieslowski', - # rating => '15', - numexplodingsheep => 0, - } - ), - "Create Veronique" + # rating => '15', + numexplodingsheep => 0, + } + ), + "Create Veronique" ); is $ver->Rating, 15, "Default rating"; @@ -48,19 +48,19 @@ 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"}); }