[dbsrgits/DBIx-Class.git] / t / resultset / as_subselect_rs.t

use strict;
use warnings;

use Test::More;
use Test::Exception;

use lib qw(t/lib);
use DBICTest;
use DBIC::SqlMakerTest;

my $schema = DBICTest->init_schema();

my $new_rs = $schema->resultset('Artist')->search({
   'artwork_to_artist.artist_id' => 1
}, {
   join => 'artwork_to_artist'
});
lives_ok { $new_rs->count } 'regular search works';
lives_ok { $new_rs->search({ 'artwork_to_artist.artwork_cd_id' => 1})->count }
   '... and chaining off that using join works';
lives_ok { $new_rs->search({ 'artwork_to_artist.artwork_cd_id' => 1})->as_subselect_rs->count }
   '... and chaining off the virtual view works';
dies_ok  { $new_rs->as_subselect_rs->search({'artwork_to_artist.artwork_cd_id'=> 1})->count }
   q{... but chaining off of a virtual view using join doesn't work};
done_testing;
Commit	Line	Data
e4bb6727	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use Test::Exception;
	6
	7	use lib qw(t/lib);
	8	use DBICTest;
	9	use DBIC::SqlMakerTest;
	10
	11	my $schema = DBICTest->init_schema();
	12
	13	my $new_rs = $schema->resultset('Artist')->search({
	14	'artwork_to_artist.artist_id' => 1
	15	}, {
	16	join => 'artwork_to_artist'
	17	});
	18	lives_ok { $new_rs->count } 'regular search works';
	19	lives_ok { $new_rs->search({ 'artwork_to_artist.artwork_cd_id' => 1})->count }
	20	'... and chaining off that using join works';
	21	lives_ok { $new_rs->search({ 'artwork_to_artist.artwork_cd_id' => 1})->as_subselect_rs->count }
	22	'... and chaining off the virtual view works';
	23	dies_ok { $new_rs->as_subselect_rs->search({'artwork_to_artist.artwork_cd_id'=> 1})->count }
	24	q{... but chaining off of a virtual view using join doesn't work};
	25	done_testing;