[dbsrgits/DBIx-Class.git] / t / count / in_subquery.t

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

use strict;
use warnings;

use Test::More;


use DBICTest;

my $schema = DBICTest->init_schema();

{
    my $rs = $schema->resultset("CD")->search(
        { 'artist.name' => 'Caterwauler McCrae' },
        { join => [qw/artist/]}
    );
    my $squery = $rs->get_column('cdid')->as_query;
    my $subsel_rs = $schema->resultset("CD")->search( { cdid => { IN => $squery } } );
    is($subsel_rs->count, $rs->count, 'Subselect on PK got the same row count');
}

done_testing;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
ff1393c7	3	use strict;
	4	use warnings;
	5
ff1393c7	6	use Test::More;
ff1393c7	7
c0329273	8
ff1393c7	9	use DBICTest;
ff1393c7	10
	11	my $schema = DBICTest->init_schema();
	12
	13	{
	14	my $rs = $schema->resultset("CD")->search(
	15	{ 'artist.name' => 'Caterwauler McCrae' },
	16	{ join => [qw/artist/]}
	17	);
	18	my $squery = $rs->get_column('cdid')->as_query;
	19	my $subsel_rs = $schema->resultset("CD")->search( { cdid => { IN => $squery } } );
	20	is($subsel_rs->count, $rs->count, 'Subselect on PK got the same row count');
	21	}
f54428ab	22
f54428ab	23	done_testing;