[Bast-commits] r7593 - in DBIx-Class/0.08/branches/prefetch/t: . prefetch

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-07 07:25:04 +0000 (Mon, 07 Sep 2009)
New Revision: 7593

Modified:
   DBIx-Class/0.08/branches/prefetch/t/76select.t
   DBIx-Class/0.08/branches/prefetch/t/prefetch/diamond.t
   DBIx-Class/0.08/branches/prefetch/t/prefetch/multiple_hasmany.t
   DBIx-Class/0.08/branches/prefetch/t/prefetch/with_limit.t
Log:
Switch tests

Modified: DBIx-Class/0.08/branches/prefetch/t/76select.t
===================================================================
--- DBIx-Class/0.08/branches/prefetch/t/76select.t	2009-09-07 07:20:44 UTC (rev 7592)
+++ DBIx-Class/0.08/branches/prefetch/t/76select.t	2009-09-07 07:25:04 UTC (rev 7593)
@@ -9,8 +9,6 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 23;
-
 my $rs = $schema->resultset('CD')->search({},
     {
         '+select'   => \ 'COUNT(*)',
@@ -180,4 +178,4 @@
     'columns/select/as fold properly on sub-searches',
 );
 
-
+done_testing;

Modified: DBIx-Class/0.08/branches/prefetch/t/prefetch/diamond.t
===================================================================
--- DBIx-Class/0.08/branches/prefetch/t/prefetch/diamond.t	2009-09-07 07:20:44 UTC (rev 7592)
+++ DBIx-Class/0.08/branches/prefetch/t/prefetch/diamond.t	2009-09-07 07:25:04 UTC (rev 7593)
@@ -96,8 +96,6 @@
   }
 }
 
-plan tests => (scalar (keys %tests) * 3);
-
 foreach my $name (keys %tests) {
   foreach my $artwork ($tests{$name}->all()) {
     is($artwork->id, 1, $name . ', correct artwork');
@@ -105,3 +103,5 @@
     is($artwork->artwork_to_artist->first->artist->artistid, 2, $name . ', correct artist_id over A2A');
   }
 }
+
+done_testing;

Modified: DBIx-Class/0.08/branches/prefetch/t/prefetch/multiple_hasmany.t
===================================================================
--- DBIx-Class/0.08/branches/prefetch/t/prefetch/multiple_hasmany.t	2009-09-07 07:20:44 UTC (rev 7592)
+++ DBIx-Class/0.08/branches/prefetch/t/prefetch/multiple_hasmany.t	2009-09-07 07:25:04 UTC (rev 7593)
@@ -340,4 +340,3 @@
 );
 
 done_testing;
-

Modified: DBIx-Class/0.08/branches/prefetch/t/prefetch/with_limit.t
===================================================================
--- DBIx-Class/0.08/branches/prefetch/t/prefetch/with_limit.t	2009-09-07 07:20:44 UTC (rev 7592)
+++ DBIx-Class/0.08/branches/prefetch/t/prefetch/with_limit.t	2009-09-07 07:25:04 UTC (rev 7593)
@@ -8,8 +8,6 @@
 use lib qw(t/lib);
 use DBICTest;
 
-plan tests => 9;
-
 my $schema = DBICTest->init_schema();
 
 
@@ -89,3 +87,5 @@
 # try with double limit
 my $artist2 = $use_prefetch->search({'cds.title' => { '!=' => $artist_many_cds->cds->first->title } })->slice (0,0)->next;
 is($artist2->cds->count, 2, "count on search limiting prefetched has_many");
+
+done_testing;