X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F63register_class.t;h=0229713f01a8f04600ae3b0ba8589b4be77960d9;hb=c0329273268971824784f239f32c7246e68da9c5;hp=513c6d3bb9083c98cecf68a801021aa109c22021;hpb=fccc2e8704d69a05df1711b4dd8c235c9a9cc27b;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/63register_class.t b/t/63register_class.t
index 513c6d3..0229713 100644
--- a/t/63register_class.t
+++ b/t/63register_class.t
@@ -1,19 +1,16 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
-use warnings;  
+use warnings;
+
+use Test::More tests => 2;
 
-use Test::More tests => 3;
-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();