view release on metacpan or  search on metacpan

t/004_newcursor.t  view on Meta::CPAN

use strict;
no warnings;
use FindBin qw($Bin);
require "$Bin/testutil.pl";

use Test::More tests => 1;

my $errs = "";
OQ::foreachdb(sub {
  my $oq = OQ::schema(
    'select' => {
      'U_ID' => ['movie','movie.movie_id','Movie ID'],
      'NAME' => ['movie', 'movie.name', 'Name'],
      'CAST' => ['moviecastperson', 'moviecastperson.name', 'All Cast (seprated by commas)']
    },
    filter => "[NAME] like 'Return of the Jedi'",
    'module' => 'CSV',
    'joins' => {
      'movie' => [undef, "oqtest_movie movie"],
      'moviecast' => ['movie', 'JOIN oqtest_moviecast moviecast ON (movie.movie_id = moviecast.movie_id)', undef, { new_cursor => 1 }],
      'moviecastperson' => ['moviecast', 'JOIN oqtest_person moviecastperson ON (moviecast.person_id=moviecastperson.person_id)']
    }
  );
  $oq->output();
  $errs .= "$OQ::DBTYPE missing return cast" unless $OQ::BUF =~ /Harrison Ford\, Mark Hamill/s;
});

is($errs, '', 'newcursor test');