From: Peter Rabbitson Date: Sat, 16 May 2009 07:30:05 +0000 (+0000) Subject: Not sure what this part of the test is for, but it breaks custom resultsets, and... X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=149f24a3e0f97b6b8e1749c123a22cf6b3cc0f7f;p=dbsrgits%2FDBIx-Class-Historic.git 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 --- diff --git a/t/82cascade_copy.t b/t/82cascade_copy.t index 26b8425..5f8a542 100644 --- a/t/82cascade_copy.t +++ b/t/82cascade_copy.t @@ -11,14 +11,7 @@ plan tests => 4; my $artist = $schema->resultset('Artist')->find(1); my $artist_cds = $artist->search_related('cds'); -my $cover_band; - -{ - no warnings qw(redefine once); - local *DBICTest::Artist::result_source_instance = \&DBICTest::Schema::Artist::result_source_instance; - - $cover_band = $artist->copy; -} +my $cover_band = $artist->copy; my $cover_cds = $cover_band->search_related('cds'); cmp_ok($cover_band->id, '!=', $artist->id, 'ok got new column id...');