X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fprefetch%2Fstandard.t;h=7980da3ac5ae03c62b1e00dd025952a92b3543ba;hb=7a830802cc71558c57d1751ec7ce18ebaedf8156;hp=ee4a9faa222ba263752f85b067834a496cad576c;hpb=a2287768f5c3dd665c469d7f9dfe99d369ff6781;p=dbsrgits%2FDBIx-Class.git diff --git a/t/prefetch/standard.t b/t/prefetch/standard.t index ee4a9fa..7980da3 100644 --- a/t/prefetch/standard.t +++ b/t/prefetch/standard.t @@ -1,17 +1,16 @@ use strict; -use warnings; +use warnings; use Test::More; use Test::Exception; use lib qw(t/lib); use DBICTest; -use Data::Dumper; use IO::File; my $schema = DBICTest->init_schema(); my $orig_debug = $schema->storage->debug; -plan tests => 45; +plan tests => 44; my $queries = 0; $schema->storage->debugcb(sub { $queries++; }); @@ -20,8 +19,6 @@ $schema->storage->debug(1); my $search = { 'artist.name' => 'Caterwauler McCrae' }; my $attr = { prefetch => [ qw/artist liner_notes/ ], order_by => 'me.cdid' }; -my $search_str = Dumper($search); -my $attr_str = Dumper($attr); my $rs = $schema->resultset("CD")->search($search, $attr); my @cd = $rs->all; @@ -220,29 +217,11 @@ is(eval { $tree_like->children->first->children->first->name }, 'quux', $tree_like = eval { $schema->resultset('TreeLike')->search( { 'children.id' => 3, 'children_2.id' => 6 }, - { join => [qw/children children/] } + { join => [qw/children children children/] } )->search_related('children', { 'children_4.id' => 7 }, { prefetch => 'children' } )->first->children->first; }; is(eval { $tree_like->name }, 'fong', 'Tree with multiple has_many joins ok'); -# test that collapsed joins don't get a _2 appended to the alias - -my $sql = ''; -$schema->storage->debugcb(sub { $sql = $_[1] }); -$schema->storage->debug(1); - -eval { - my $row = $schema->resultset('Artist')->search_related('cds', undef, { - join => 'tracks', - prefetch => 'tracks', - })->search_related('tracks')->first; -}; - -like( $sql, qr/^SELECT tracks_2\.trackid/, "join not collapsed for search_related" ); - -$schema->storage->debug($orig_debug); -$schema->storage->debugobj->callback(undef); - $rs = $schema->resultset('Artist'); $rs->create({ artistid => 4, name => 'Unknown singer-songwriter' }); $rs->create({ artistid => 5, name => 'Emo 4ever' });