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