t/cdbi/retrieve_from_sql_with_limit.t

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