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

use warnings;
use strict;

use Test::More;

use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema(
   no_populate => 1,
);

$schema->resultset('CD')->create({
   cdid => 0,
   artist => {
      artistid => 0,
      name => 0,
      rank => 0,
      charfield => 0,
   },
   title => 0,
   year => 0,
   genreid => 0,
   single_track => 0,
});

ok( $schema->resultset('CD')->search( {}, { prefetch => 'artist' })->first->artist, 'artist loads even if all columns are 0');

done_testing;
Commit	Line	Data
571df676	1	use warnings;
	2	use strict;
	3
	4	use Test::More;
	5
277b225f	6	use lib qw(t/lib);
277b225f	7	use DBICTest;
571df676	8
277b225f	9	my $schema = DBICTest->init_schema(
277b225f	10	no_populate => 1,
571df676	11	);
571df676	12
277b225f	13	$schema->resultset('CD')->create({
	14	cdid => 0,
	15	artist => {
	16	artistid => 0,
	17	name => 0,
	18	rank => 0,
	19	charfield => 0,
	20	},
	21	title => 0,
	22	year => 0,
	23	genreid => 0,
	24	single_track => 0,
	25	});
	26
	27	ok( $schema->resultset('CD')->search( {}, { prefetch => 'artist' })->first->artist, 'artist loads even if all columns are 0');
	28
	29	done_testing;