t/cdbi/26-mutator.t

   1 use strict;
   2 use Test::More;
   3
   4 BEGIN {
   5   eval "use DBIx::Class::CDBICompat;";
   6   plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
   7     if $@;
   8 }
   9
  10 BEGIN {
  11   eval "use DBD::SQLite";
  12   plan $@
  13     ? (skip_all => 'needs DBD::SQLite for testing')
  14     : (tests => 6);
  15 }
  16
  17 use lib 't/cdbi/testlib';
  18 require Film;
  19
  20 sub Film::accessor_name_for {
  21   my ($class, $col) = @_;
  22   return "sheep" if lc $col eq "numexplodingsheep";
  23   return $col;
  24 }
  25
  26 my $data = {
  27   Title    => 'Bad Taste',
  28   Director => 'Peter Jackson',
  29   Rating   => 'R',
  30 };
  31
  32 my $bt;
  33 eval {
  34   my $data = $data;
  35   $data->{sheep} = 1;
  36   ok $bt = Film->insert($data), "Modified accessor - with
  37 accessor";
  38   isa_ok $bt, "Film";
  39 };
  40 is $@, '', "No errors";
  41
  42 eval {
  43   ok $bt->sheep(2), 'Modified accessor, set';
  44   ok $bt->update, 'Update';
  45 };
  46 is $@, '', "No errors";
  47