From: Peter Rabbitson Date: Tue, 21 Apr 2009 10:53:25 +0000 (+0000) Subject: Back out my bogus test from r4902 - this warning was never supposed to be here in... X-Git-Tag: v0.08101~12^2~2 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e1f06f1c72b03d2a3c40b007eeb83ef55026925e;p=dbsrgits%2FDBIx-Class.git Back out my bogus test from r4902 - this warning was never supposed to be here in the first place - we are essentially dynamically subclassing Artist (although in a very sloppy way) --- diff --git a/t/63register_class.t b/t/63register_class.t index 513c6d3..e9053a3 100644 --- a/t/63register_class.t +++ b/t/63register_class.t @@ -1,19 +1,14 @@ use strict; use warnings; -use Test::More tests => 3; +use Test::More tests => 2; use lib qw(t/lib); use DBICTest; use DBICTest::Schema; use DBICTest::Schema::Artist; DBICTest::Schema::Artist->source_name('MyArtist'); -{ - my $w; - local $SIG{__WARN__} = sub { $w = shift }; - DBICTest::Schema->register_class('FooA', 'DBICTest::Schema::Artist'); - like ($w, qr/use register_extra_source/, 'Complain about using register_class on an already-registered class'); -} +DBICTest::Schema->register_class('FooA', 'DBICTest::Schema::Artist'); my $schema = DBICTest->init_schema();