Commit | Line | Data |
510ca912 |
1 | use strict; |
2 | use Test::More; |
3 | |
4 | BEGIN { |
5 | eval "use DBD::SQLite"; |
6 | plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 13); |
7 | } |
8 | |
9 | use lib 't/testlib'; |
10 | use Film; |
11 | |
12 | sub create_trigger2 { ::ok(1, "Running create trigger 2"); } |
13 | sub delete_trigger { ::ok(1, "Deleting " . shift->Title) } |
14 | |
15 | sub pre_up_trigger { |
16 | $_[0]->_attribute_set(numexplodingsheep => 1); |
17 | ::ok(1, "Running pre-update trigger"); |
18 | } |
19 | sub pst_up_trigger { ::ok(1, "Running post-update trigger"); } |
20 | |
21 | sub default_rating { $_[0]->Rating(15); } |
22 | |
23 | Film->add_trigger( |
24 | before_create => \&default_rating, |
25 | after_create => \&create_trigger2, |
26 | after_delete => \&delete_trigger, |
27 | before_update => \&pre_up_trigger, |
28 | after_update => \&pst_up_trigger, |
29 | ); |
30 | |
31 | ok( |
32 | my $ver = Film->create({ |
33 | title => 'La Double Vie De Veronique', |
34 | director => 'Kryzstof Kieslowski', |
35 | |
36 | # rating => '15', |
37 | numexplodingsheep => 0, |
38 | } |
39 | ), |
40 | "Create Veronique" |
41 | ); |
42 | |
43 | is $ver->Rating, 15, "Default rating"; |
44 | is $ver->NumExplodingSheep, 0, "Original sheep count"; |
45 | ok $ver->Rating('12') && $ver->update, "Change the rating"; |
46 | is $ver->NumExplodingSheep, 1, "Updated object's sheep count"; |
47 | is + ( |
48 | $ver->db_Main->selectall_arrayref( |
49 | 'SELECT numexplodingsheep FROM ' |
50 | . $ver->table |
51 | . ' WHERE ' |
52 | . $ver->primary_column . ' = ' |
53 | . $ver->db_Main->quote($ver->id)) |
54 | )->[0]->[0], 1, "Updated database's sheep count"; |
55 | ok $ver->delete, "Delete"; |
56 | |
57 | { |
58 | Film->add_trigger(before_create => sub { |
59 | my $self = shift; |
60 | ok !$self->_attribute_exists('title'), "PK doesn't auto-vivify"; |
61 | }); |
62 | Film->create({director => "Me"}); |
63 | } |