4 use warnings FATAL => 'all';
11 use DBIC::SqlMakerTest;
15 my $schema = DBICTest->init_schema();
16 my $art_rs = $schema->resultset('Artist');
17 my $cdrs = $schema->resultset('CD');
20 my $cdrs2 = $cdrs->search({
21 artist_id => { 'in' => $art_rs->search({}, { rows => 1 })->get_column( 'id' )->as_query },
24 my $arr = $cdrs2->as_query;
25 my ($query, @bind) = @{$$arr};
28 "SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track FROM cd me WHERE artist_id IN ( SELECT id FROM artist me LIMIT 1 )",