view release on metacpan or  search on metacpan

t/prefetch/via_search_related.t  view on Meta::CPAN

use strict;
use warnings;

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

use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema();

lives_ok ( sub {
  my $no_prefetch = $schema->resultset('Track')->search_related(cd =>
    {
      'cd.year' => "2000",
    },
    {
      join => 'tags',
      order_by => 'me.trackid',
      rows => 1,
    }
  );

  my $use_prefetch = $no_prefetch->search(
    {},
    {
      prefetch => 'tags',
    }
  );

  is($use_prefetch->count, $no_prefetch->count, 'counts with and without prefetch match');
  is(
    scalar ($use_prefetch->all),
    scalar ($no_prefetch->all),
    "Amount of returned rows is right"
  );

}, 'search_related prefetch with order_by works');

lives_ok ( sub {
  my $no_prefetch = $schema->resultset('Track')->search_related(cd =>
    {
      'cd.year' => "2000",
      'tagid' => 1,
    },
    {
      join => 'tags',
      rows => 1,
    }
  );

  my $use_prefetch = $no_prefetch->search(
    undef,
    {
      prefetch => 'tags',
    }
  );

  is(
    scalar ($use_prefetch->all),
    scalar ($no_prefetch->all),
    "Amount of returned rows is right"
  );
  is($use_prefetch->count, $no_prefetch->count, 'counts with and without prefetch match');

}, 'search_related prefetch with condition referencing unqualified column of a joined table works');

# make sure chains off prefetched results still work
{
  my $cd = $schema->resultset('CD')->search({}, { prefetch => 'cd_to_producer' })->find(1);

  $schema->is_executed_querycount( sub {
      is( $cd->cd_to_producer->count, 3 ,'Count of prefetched m2m links via accessor' );
    is( scalar $cd->cd_to_producer->all, 3, 'Amount of prefetched m2m link objects via accessor' );
    is( $cd->search_related('cd_to_producer')->count, 3, 'Count of prefetched m2m links via search_related' );
    is( scalar $cd->search_related('cd_to_producer')->all, 3, 'Amount of prefetched m2m links via search_related' );
  }, 0, 'No queries ran so far');

  is( scalar $cd->cd_to_producer->search_related('producer')->all, 3,
      'Amount of objects via search_related off prefetched linker' );
  is( $cd->cd_to_producer->search_related('producer')->count, 3,
      'Count via search_related off prefetched linker' );
  is( scalar $cd->search_related('cd_to_producer')->search_related('producer')->all, 3,
      'Amount of objects via chained search_related off prefetched linker' );
  is( $cd->search_related('cd_to_producer')->search_related('producer')->count, 3,
      'Count via chained search_related off prefetched linker' );
  is( scalar $cd->producers->all, 3,
      'Amount of objects via m2m accessor' );
  is( $cd->producers->count, 3,
      'Count via m2m accessor' );

  $schema->is_executed_querycount( sub {
    is( $cd->cd_to_producer->count, 3 ,'Review count of prefetched m2m links via accessor' );
    is( scalar $cd->cd_to_producer->all, 3, 'Review amount of prefetched m2m link objects via accessor' );
    is( $cd->search_related('cd_to_producer')->count, 3, 'Review count of prefetched m2m links via search_related' );
    is( scalar $cd->search_related('cd_to_producer')->all, 3, 'Rreview amount of prefetched m2m links via search_related' );
  }, 0, 'Still no queries on prefetched linker');
}

# tests with distinct => 1
lives_ok (sub {
    my $rs = $schema->resultset("Artwork")->search(undef, {distinct => 1})
              ->search_related('artwork_to_artist')->search_related('artist',
                undef,