From: Luke Saunders <luke.saunders@gmail.com>
Date: Mon, 9 Jul 2007 18:18:41 +0000 (+0000)
Subject: removed various Dumper calls
X-Git-Tag: v0.08010~127
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0fc64feeac7aa7f880952140e6201617ca99af80;hp=3f6cc7e47e1084bdee20a01d1e05edc0dda4bc0c;p=dbsrgits%2FDBIx-Class.git

removed various Dumper calls
---

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");
 
 
diff --git a/t/91merge_attr.t b/t/91merge_attr.t
index 9a6f38c..28101a9 100644
--- a/t/91merge_attr.t
+++ b/t/91merge_attr.t
@@ -5,7 +5,6 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 use Test::More;
-use Data::Dumper;
 
 plan tests => 14;