t/cdbi/26-mutator.t

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