[Bast-commits] r7557 - in DBIx-Class/0.08/trunk/t: . count inflate
prefetch resultset search storage
ribasushi at dev.catalyst.perl.org
ribasushi at dev.catalyst.perl.org
Fri Sep 4 17:17:33 GMT 2009
Author: ribasushi
Date: 2009-09-04 17:17:32 +0000 (Fri, 04 Sep 2009)
New Revision: 7557
Modified:
DBIx-Class/0.08/trunk/t/103many_to_many_warning.t
DBIx-Class/0.08/trunk/t/46where_attribute.t
DBIx-Class/0.08/trunk/t/76joins.t
DBIx-Class/0.08/trunk/t/83cache.t
DBIx-Class/0.08/trunk/t/count/grouped_pager.t
DBIx-Class/0.08/trunk/t/count/in_subquery.t
DBIx-Class/0.08/trunk/t/inflate/serialize.t
DBIx-Class/0.08/trunk/t/prefetch/attrs_untouched.t
DBIx-Class/0.08/trunk/t/prefetch/standard.t
DBIx-Class/0.08/trunk/t/resultset/as_query.t
DBIx-Class/0.08/trunk/t/search/preserve_original_rs.t
DBIx-Class/0.08/trunk/t/search/subquery.t
DBIx-Class/0.08/trunk/t/storage/ping_count.t
Log:
Dumper follies
Modified: DBIx-Class/0.08/trunk/t/103many_to_many_warning.t
===================================================================
--- DBIx-Class/0.08/trunk/t/103many_to_many_warning.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/103many_to_many_warning.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -3,7 +3,6 @@
use Test::More;
use lib qw(t/lib);
-use Data::Dumper;
plan tests => 4;
my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/;
Modified: DBIx-Class/0.08/trunk/t/46where_attribute.t
===================================================================
--- DBIx-Class/0.08/trunk/t/46where_attribute.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/46where_attribute.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -2,7 +2,6 @@
use warnings;
use Test::More;
-use Data::Dumper;
use lib qw(t/lib);
use DBICTest;
my $schema = DBICTest->init_schema();
Modified: DBIx-Class/0.08/trunk/t/76joins.t
===================================================================
--- DBIx-Class/0.08/trunk/t/76joins.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/76joins.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -4,7 +4,6 @@
use Test::More;
use lib qw(t/lib);
use DBICTest;
-use Data::Dumper;
use DBIC::SqlMakerTest;
my $schema = DBICTest->init_schema();
Modified: DBIx-Class/0.08/trunk/t/83cache.t
===================================================================
--- DBIx-Class/0.08/trunk/t/83cache.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/83cache.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -74,8 +74,6 @@
}
);
-use Data::Dumper; $Data::Dumper::Deparse = 1;
-
# start test for prefetch SELECT count
$queries = 0;
$schema->storage->debug(1);
Modified: DBIx-Class/0.08/trunk/t/count/grouped_pager.t
===================================================================
--- DBIx-Class/0.08/trunk/t/count/grouped_pager.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/count/grouped_pager.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -11,8 +11,6 @@
my $schema = DBICTest->init_schema();
-use Data::Dumper;
-
# add 2 extra artists
$schema->populate ('Artist', [
[qw/name/],
Modified: DBIx-Class/0.08/trunk/t/count/in_subquery.t
===================================================================
--- DBIx-Class/0.08/trunk/t/count/in_subquery.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/count/in_subquery.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -3,8 +3,6 @@
use strict;
use warnings;
-use Data::Dumper;
-
use Test::More;
plan ( tests => 1 );
Modified: DBIx-Class/0.08/trunk/t/inflate/serialize.t
===================================================================
--- DBIx-Class/0.08/trunk/t/inflate/serialize.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/inflate/serialize.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -7,8 +7,6 @@
my $schema = DBICTest->init_schema();
-use Data::Dumper;
-
my @serializers = (
{ module => 'YAML.pm',
inflater => sub { YAML::Load (shift) },
Modified: DBIx-Class/0.08/trunk/t/prefetch/attrs_untouched.t
===================================================================
--- DBIx-Class/0.08/trunk/t/prefetch/attrs_untouched.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/prefetch/attrs_untouched.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -4,7 +4,9 @@
use Test::Exception;
use lib qw(t/lib);
use DBICTest;
+
use Data::Dumper;
+$Data::Dumper::Sortkeys = 1;
my $schema = DBICTest->init_schema();
Modified: DBIx-Class/0.08/trunk/t/prefetch/standard.t
===================================================================
--- DBIx-Class/0.08/trunk/t/prefetch/standard.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/prefetch/standard.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -5,7 +5,6 @@
use Test::Exception;
use lib qw(t/lib);
use DBICTest;
-use Data::Dumper;
use IO::File;
my $schema = DBICTest->init_schema();
@@ -20,8 +19,6 @@
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;
Modified: DBIx-Class/0.08/trunk/t/resultset/as_query.t
===================================================================
--- DBIx-Class/0.08/trunk/t/resultset/as_query.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/resultset/as_query.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -3,8 +3,6 @@
use strict;
use warnings FATAL => 'all';
-use Data::Dumper;
-
use Test::More;
plan ( tests => 5 );
Modified: DBIx-Class/0.08/trunk/t/search/preserve_original_rs.t
===================================================================
--- DBIx-Class/0.08/trunk/t/search/preserve_original_rs.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/search/preserve_original_rs.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -8,7 +8,10 @@
use DBIC::SqlMakerTest;
use DBIC::DebugObj;
use DBICTest;
+
+# use Data::Dumper comparisons to avoid mesing with coderefs
use Data::Dumper;
+$Data::Dumper::Sortkeys = 1;
my $schema = DBICTest->init_schema();
Modified: DBIx-Class/0.08/trunk/t/search/subquery.t
===================================================================
--- DBIx-Class/0.08/trunk/t/search/subquery.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/search/subquery.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -3,11 +3,8 @@
use strict;
use warnings;
-use Data::Dumper;
-
use Test::More;
-
use lib qw(t/lib);
use DBICTest;
use DBIC::SqlMakerTest;
Modified: DBIx-Class/0.08/trunk/t/storage/ping_count.t
===================================================================
--- DBIx-Class/0.08/trunk/t/storage/ping_count.t 2009-09-04 15:19:05 UTC (rev 7556)
+++ DBIx-Class/0.08/trunk/t/storage/ping_count.t 2009-09-04 17:17:32 UTC (rev 7557)
@@ -4,7 +4,6 @@
use Test::More;
use lib qw(t/lib);
use DBICTest;
-use Data::Dumper;
use DBIC::SqlMakerTest;
my $ping_count = 0;
More information about the Bast-commits
mailing list