From: Alexander Hartmaier Date: Thu, 2 Aug 2012 12:38:52 +0000 (+0200) Subject: Added test for join and empty prefetch exception X-Git-Tag: v0.08240~17 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8969df759446cb95c53269b2ee52de1e4dd8df85;p=dbsrgits%2FDBIx-Class.git Added test for join and empty prefetch exception (Now passing after previous commit) --- diff --git a/t/prefetch/standard.t b/t/prefetch/standard.t index 493b538..f316e10 100644 --- a/t/prefetch/standard.t +++ b/t/prefetch/standard.t @@ -2,14 +2,13 @@ use strict; use warnings; use Test::More; +use Test::Exception; use lib qw(t/lib); use DBICTest; my $schema = DBICTest->init_schema(); my $orig_debug = $schema->storage->debug; -plan tests => 44; - my $queries = 0; $schema->storage->debugcb(sub { $queries++; }); $schema->storage->debug(1); @@ -227,6 +226,13 @@ $rs->create({ artistid => 5, name => 'Emo 4ever' }); @artists = $rs->search(undef, { prefetch => 'cds', order_by => 'artistid' }); is(scalar @artists, 5, 'has_many prefetch with adjacent empty rows ok'); +lives_ok { @artists = $rs->search(undef, { + join => ['cds'], + prefetch => [], + rows => 20, + }); +} 'join and empty prefetch ok'; + # ------------- # # Tests for multilevel has_many prefetch @@ -292,3 +298,5 @@ is($queries, 0, 'chained search_related after has_many->has_many prefetch ran no $schema->storage->debug($orig_debug); $schema->storage->debugobj->callback(undef); + +done_testing;