[Bast-commits] r6279 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-05-16 07:30:05 +0000 (Sat, 16 May 2009)
New Revision: 6279

Modified:
   DBIx-Class/0.08/trunk/t/82cascade_copy.t
Log:
Not sure what this part of the test is for, but it breaks custom resultsets, and the test passes without it. Removing as a possible remnant of an ancient civilization

Modified: DBIx-Class/0.08/trunk/t/82cascade_copy.t
===================================================================
--- DBIx-Class/0.08/trunk/t/82cascade_copy.t	2009-05-16 06:36:45 UTC (rev 6278)
+++ DBIx-Class/0.08/trunk/t/82cascade_copy.t	2009-05-16 07:30:05 UTC (rev 6279)
@@ -11,15 +11,8 @@
 my $artist = $schema->resultset('Artist')->find(1);
 my $artist_cds = $artist->search_related('cds');
 
-my $cover_band;
+my $cover_band = $artist->copy;
 
-{
-  no warnings qw(redefine once);
-  local *DBICTest::Artist::result_source_instance = \&DBICTest::Schema::Artist::result_source_instance;
-
-  $cover_band = $artist->copy;
-}
-
 my $cover_cds = $cover_band->search_related('cds');
 cmp_ok($cover_band->id, '!=', $artist->id, 'ok got new column id...');
 is($cover_cds->count, $artist_cds->count, 'duplicated rows count ok');