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