[dbsrgits/DBIx-Class.git] / t / cdbi / 26-mutator.t

use strict;
use warnings;
use Test::More;

use lib 't/cdbi/testlib';
require Film;

sub Film::accessor_name_for {
  my ($class, $col) = @_;
  return "sheep" if lc $col eq "numexplodingsheep";
  return $col;
}

my $data = {
  Title    => 'Bad Taste',
  Director => 'Peter Jackson',
  Rating   => 'R',
};

my $bt;
eval {
  my $data = $data;
  $data->{sheep} = 1;
  ok $bt = Film->insert($data), "Modified accessor - with
accessor";
  isa_ok $bt, "Film";
};
is $@, '', "No errors";

eval {
  ok $bt->sheep(2), 'Modified accessor, set';
  ok $bt->update, 'Update';
};
is $@, '', "No errors";

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