1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7
8plan ( tests => 1 );
9
10use lib qw(t/lib);
11use DBICTest;
12use DBIC::SqlMakerTest;
13
14my $schema = DBICTest->init_schema();
15
16{
17    my $rs = $schema->resultset("CD")->search(
18        { 'artist.name' => 'Caterwauler McCrae' },
19        { join => [qw/artist/]}
20    );
21    my $squery = $rs->get_column('cdid')->as_query;
22    my $subsel_rs = $schema->resultset("CD")->search( { cdid => { IN => $squery } } );
23    is($subsel_rs->count, $rs->count, 'Subselect on PK got the same row count');
24}
25