From: Peter Rabbitson Date: Fri, 1 Mar 2013 08:46:54 +0000 (+0100) Subject: This infrastructure was removed ages ago by 263e41be X-Git-Tag: v0.08210~39 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d48427a7041c2e3b744e4113816e1633c7f978cc;hp=590885aa6934c4eda2a19c08d69394e892ee41a0;p=dbsrgits%2FDBIx-Class.git This infrastructure was removed ages ago by 263e41be --- diff --git a/t/relationship/core.t b/t/relationship/core.t index b754f94..af63a59 100644 --- a/t/relationship/core.t +++ b/t/relationship/core.t @@ -12,34 +12,23 @@ my $sdebug = $schema->storage->debug; # has_a test my $cd = $schema->resultset("CD")->find(4); -my ($artist) = ($INC{'DBICTest/HelperRels'} - ? $cd->artist - : $cd->search_related('artist')); +my ($artist) = $cd->search_related('artist'); is($artist->name, 'Random Boy Band', 'has_a search_related ok'); # has_many test with an order_by clause defined $artist = $schema->resultset("Artist")->find(1); -my @cds = ($INC{'DBICTest/HelperRels'} - ? $artist->cds - : $artist->search_related('cds')); +my @cds = $artist->search_related('cds'); is( $cds[1]->title, 'Spoonful of bees', 'has_many search_related with order_by ok' ); # search_related with additional abstract query -@cds = ($INC{'DBICTest/HelperRels'} - ? $artist->cds({ title => { like => '%of%' } }) - : $artist->search_related('cds', { title => { like => '%of%' } } ) - ); +@cds = $artist->search_related('cds', { title => { like => '%of%' } } ); is( $cds[1]->title, 'Forkful of bees', 'search_related with abstract query ok' ); # creating a related object -if ($INC{'DBICTest/HelperRels.pm'}) { - $artist->add_to_cds({ title => 'Big Flop', year => 2005 }); -} else { - my $big_flop = $artist->create_related( 'cds', { - title => 'Big Flop', - year => 2005, - } ); -} +$artist->create_related( 'cds', { + title => 'Big Flop', + year => 2005, +} ); my $big_flop_cd = ($artist->search_related('cds'))[3]; is( $big_flop_cd->title, 'Big Flop', 'create_related ok' );