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;