[dbsrgits/DBIx-Class.git] / t / row / copy_with_extra_selection.t

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

use strict;
use warnings;

use Test::More;


use DBICTest;

my $schema = DBICTest->init_schema();

my $cd = $schema->resultset('CD')->search({}, {
  '+columns' => { avg_year => $schema->resultset('CD')->get_column('year')->func_rs('avg')->as_query },
  order_by => 'cdid',
})->next;

my $ccd = $cd->copy({ cdid => 5_000_000, artist => 2 });

cmp_ok(
  $ccd->id,
  '!=',
  $cd->id,
  'IDs differ'
);

is(
  $ccd->title,
  $cd->title,
  'Title same on copied object',
);

done_testing;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
cc506f8b	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
c0329273	8
cc506f8b	9	use DBICTest;
	10
	11	my $schema = DBICTest->init_schema();
	12
	13	my $cd = $schema->resultset('CD')->search({}, {
	14	'+columns' => { avg_year => $schema->resultset('CD')->get_column('year')->func_rs('avg')->as_query },
	15	order_by => 'cdid',
	16	})->next;
	17
	18	my $ccd = $cd->copy({ cdid => 5_000_000, artist => 2 });
	19
	20	cmp_ok(
	21	$ccd->id,
	22	'!=',
	23	$cd->id,
	24	'IDs differ'
	25	);
	26
	27	is(
	28	$ccd->title,
	29	$cd->title,
	30	'Title same on copied object',
	31	);
	32
	33	done_testing;