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