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