X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F90join_torture.t;h=12d2cdf40aa0a6b77dad0f359c32f8fc9f233463;hb=0fc64feeac7aa7f880952140e6201617ca99af80;hp=8d670921469c8d56c00f67fe457b39faec3f8941;hpb=3f6cc7e47e1084bdee20a01d1e05edc0dda4bc0c;p=dbsrgits%2FDBIx-Class.git diff --git a/t/90join_torture.t b/t/90join_torture.t index 8d67092..12d2cdf 100644 --- a/t/90join_torture.t +++ b/t/90join_torture.t @@ -4,7 +4,6 @@ use warnings; use Test::More; use lib qw(t/lib); use DBICTest; -use Data::Dumper; my $schema = DBICTest->init_schema(); plan tests => 20; @@ -41,16 +40,11 @@ my @artists = $rs1->all; cmp_ok(@artists, '==', 2, "Two artists returned"); my $rs2 = $rs1->search({ artistid => '1' }, { join => {'cds' => {'cd_to_producer' => 'producer'} } }); -use Data::Dumper; print "attrs: " . Dumper($rs1->{attrs}) ; -use Data::Dumper; print "attrs: " . Dumper($rs2->{attrs}) ; - my @artists2 = $rs2->search({ 'producer.name' => 'Matt S Trout' }); my @cds = $artists2[0]->cds; cmp_ok(scalar @cds, '==', 1, "condition based on inherited join okay"); my $rs3 = $rs2->search_related('cds'); -use Data::Dumper; print "attrs: " . Dumper($rs2->{attrs}) ; -use Data::Dumper; print "attrs: " . Dumper($rs3->{attrs}) ; cmp_ok(scalar($rs3->all), '==', 45, "All cds for artist returned");