Commit | Line | Data |
d2cee1fa |
1 | use strict; |
2 | use Test::More; |
3 | |
4 | BEGIN { |
40f05175 |
5 | eval "use DBIx::Class::CDBICompat;"; |
6 | plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@" |
7 | if $@; |
68de9438 |
8 | plan tests => 6; |
d2cee1fa |
9 | } |
10 | |
50891152 |
11 | use lib 't/cdbi/testlib'; |
d2cee1fa |
12 | require Film; |
13 | |
14 | sub Film::accessor_name_for { |
6a3bf251 |
15 | my ($class, $col) = @_; |
16 | return "sheep" if lc $col eq "numexplodingsheep"; |
17 | return $col; |
d2cee1fa |
18 | } |
19 | |
20 | my $data = { |
6a3bf251 |
21 | Title => 'Bad Taste', |
22 | Director => 'Peter Jackson', |
23 | Rating => 'R', |
d2cee1fa |
24 | }; |
25 | |
26 | my $bt; |
27 | eval { |
6a3bf251 |
28 | my $data = $data; |
29 | $data->{sheep} = 1; |
8273e845 |
30 | ok $bt = Film->insert($data), "Modified accessor - with |
d2cee1fa |
31 | accessor"; |
6a3bf251 |
32 | isa_ok $bt, "Film"; |
d2cee1fa |
33 | }; |
34 | is $@, '', "No errors"; |
35 | |
36 | eval { |
6a3bf251 |
37 | ok $bt->sheep(2), 'Modified accessor, set'; |
38 | ok $bt->update, 'Update'; |
d2cee1fa |
39 | }; |
40 | is $@, '', "No errors"; |
41 | |