[Bast-commits] r3573 - trunk/DBIx-Class/t

[captainL at dev.catalyst.perl.org]

Author: captainL
Date: 2007-07-09 19:18:41 +0100 (Mon, 09 Jul 2007)
New Revision: 3573

Modified:
   trunk/DBIx-Class/t/90join_torture.t
   trunk/DBIx-Class/t/91merge_attr.t
Log:
removed various Dumper calls

Modified: trunk/DBIx-Class/t/90join_torture.t
===================================================================
--- trunk/DBIx-Class/t/90join_torture.t	2007-07-09 10:40:46 UTC (rev 3572)
+++ trunk/DBIx-Class/t/90join_torture.t	2007-07-09 18:18:41 UTC (rev 3573)
@@ -4,7 +4,6 @@
 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 @@
 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");
 
 

Modified: trunk/DBIx-Class/t/91merge_attr.t
===================================================================
--- trunk/DBIx-Class/t/91merge_attr.t	2007-07-09 10:40:46 UTC (rev 3572)
+++ trunk/DBIx-Class/t/91merge_attr.t	2007-07-09 18:18:41 UTC (rev 3573)
@@ -5,7 +5,6 @@
 use lib qw(t/lib);
 use DBICTest;
 use Test::More;
-use Data::Dumper;
 
 plan tests => 14;