[dbsrgits/DBIx-Class.git] / t / cdbi / retrieve_from_sql_with_limit.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';

use strict;
use warnings;

use Test::More;

use lib 't/cdbi/testlib';
use Film;

for my $title ("Bad Taste", "Braindead", "Forgotten Silver") {
    Film->insert({ Title => $title, Director => 'Peter Jackson' });
}

Film->insert({ Title => "Transformers", Director => "Michael Bay"});

{
    my @films = Film->retrieve_from_sql(qq[director = "Peter Jackson" LIMIT 2]);
    is @films, 2, "retrieve_from_sql with LIMIT";
    is( $_->director, "Peter Jackson" ) for @films;
}

done_testing;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
83eef562	2	use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
83eef562	3
e60dc79f	4	use strict;
4a233f30	5	use warnings;
83eef562	6
e60dc79f	7	use Test::More;
e60dc79f	8
a40329c4	9	use lib 't/cdbi/testlib';
a40329c4	10	use Film;
e60dc79f	11
	12	for my $title ("Bad Taste", "Braindead", "Forgotten Silver") {
	13	Film->insert({ Title => $title, Director => 'Peter Jackson' });
	14	}
	15
	16	Film->insert({ Title => "Transformers", Director => "Michael Bay"});
	17
	18	{
	19	my @films = Film->retrieve_from_sql(qq[director = "Peter Jackson" LIMIT 2]);
	20	is @films, 2, "retrieve_from_sql with LIMIT";
	21	is( $_->director, "Peter Jackson" ) for @films;
	22	}
d9bd5195	23
d9bd5195	24	done_testing;