# Test to ensure we get a consistent result set wether or not we use the
# prefetch option in combination rows (LIMIT).
use strict;
use warnings;

use Test::More;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema();

BEGIN {
	eval "use DBD::SQLite";
	plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 2);
}

my $no_prefetch = $schema->resultset('Artist')->search(
	undef,
	{ rows => 3 }
);

my $use_prefetch = $schema->resultset('Artist')->search(
	undef,
	{
		prefetch => 'cds',
		rows     => 3
	}
);

my $no_prefetch_count  = 0;
my $use_prefetch_count = 0;
$no_prefetch_count++  while $no_prefetch->next;
$use_prefetch_count++ while $use_prefetch->next;

is($no_prefetch->count, $use_prefetch->count, '$no_prefetch->count == $use_prefetch->count');
is(
	$no_prefetch_count,
	$use_prefetch_count,
	"manual row count confirms consistency"
	. " (\$no_prefetch_count == $no_prefetch_count, "
	. " \$use_prefetch_count == $use_prefetch_count)"
);