Fix obscure failure of CDBICompat accessor install on 5.8

[dbsrgits/DBIx-Class.git] / t / prefetch / empty_cache.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;

use Test::More;


use DBICTest;

my $schema = DBICTest->init_schema();

my $queries;
my $debugcb = sub { $queries++; };
my $orig_debug = $schema->storage->debug;

{
  $queries = 0;
  $schema->storage->debugcb($debugcb);
  $schema->storage->debug(1);

  my $cds_rs = $schema->resultset('CD')
    ->search(\'0 = 1', { prefetch => 'tracks', cache => 1 });

  my @cds = $cds_rs->all;
  is( $queries, 1, '->all on empty original resultset hit db' );
  is_deeply( $cds_rs->get_cache, [], 'empty cache on original resultset' );
  is( 0+@cds, 0, 'empty original resultset' );

  my $tracks_rs = $cds_rs->related_resultset('tracks');
  is_deeply( $tracks_rs->get_cache, [], 'empty cache on related resultset' );

  my @tracks = $tracks_rs->all;
  is( $queries, 1, "->all on empty related resultset didn't hit db" );
  is( 0+@tracks, 0, 'empty related resultset' );

  $schema->storage->debugcb(undef);
  $schema->storage->debug($orig_debug);
}

done_testing;