t/cdbi/retrieve_from_sql_with_limit.t

   1 use strict;
   2 use Test::More;
   3
   4 INIT {
   5     use lib 't/cdbi/testlib';
   6     use Film;
   7 }
   8
   9 for my $title ("Bad Taste", "Braindead", "Forgotten Silver") {
  10     Film->insert({ Title => $title, Director => 'Peter Jackson' });
  11 }
  12
  13 Film->insert({ Title => "Transformers", Director => "Michael Bay"});
  14
  15 {
  16     my @films = Film->retrieve_from_sql(qq[director = "Peter Jackson" LIMIT 2]);
  17     is @films, 2, "retrieve_from_sql with LIMIT";
  18     is( $_->director, "Peter Jackson" ) for @films;
  19 }
  20
  21 done_testing;