t/cdbi/26-mutator.t

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