[dbsrgits/DBIx-Class.git] / t / prefetch / attrs_untouched.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use warnings;
use strict;

use Test::More;

use DBICTest;
use DBIx::Class::_Util 'dump_value';

my $schema = DBICTest->init_schema();

plan tests => 3;

# bug in 0.07000 caused attr (join/prefetch) to be modifed by search
# so we check the search & attr arrays are not modified
my $search = { 'artist.name' => 'Caterwauler McCrae' };
my $attr = { prefetch => [ qw/artist liner_notes/ ],
             order_by => 'me.cdid' };
my $search_str = dump_value $search;
my $attr_str = dump_value $attr;

my $rs = $schema->resultset("CD")->search($search, $attr);

is( dump_value $search, $search_str, 'Search hash untouched after search()');
is( dump_value $attr, $attr_str, 'Attribute hash untouched after search()');
cmp_ok($rs + 0, '==', 3, 'Correct number of records returned');
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
8273e845	3	use warnings;
4a233f30	4	use strict;
e9bd1473	5
e9bd1473	6	use Test::More;
c0329273	7
e9bd1473	8	use DBICTest;
8fc4291e	9	use DBIx::Class::_Util 'dump_value';
e9bd1473	10
	11	my $schema = DBICTest->init_schema();
	12
f1952f5c	13	plan tests => 3;
e9bd1473	14
e9bd1473	15	# bug in 0.07000 caused attr (join/prefetch) to be modifed by search
	16	# so we check the search & attr arrays are not modified
	17	my $search = { 'artist.name' => 'Caterwauler McCrae' };
	18	my $attr = { prefetch => [ qw/artist liner_notes/ ],
	19	order_by => 'me.cdid' };
8fc4291e	20	my $search_str = dump_value $search;
8fc4291e	21	my $attr_str = dump_value $attr;
e9bd1473	22
	23	my $rs = $schema->resultset("CD")->search($search, $attr);
	24
8fc4291e	25	is( dump_value $search, $search_str, 'Search hash untouched after search()');
8fc4291e	26	is( dump_value $attr, $attr_str, 'Attribute hash untouched after search()');
e9bd1473	27	cmp_ok($rs + 0, '==', 3, 'Correct number of records returned');