X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F40compose_connection.t;h=2732a5e622d01d4a75384ef46700af44e0aa3092;hb=HEAD;hp=6cd62fff00f590b2b27352bdb9ca244022e27362;hpb=65d351219882184861384aedac6f251b6797d0d7;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/40compose_connection.t b/t/40compose_connection.t
index 6cd62ff..2732a5e 100644
--- a/t/40compose_connection.t
+++ b/t/40compose_connection.t
@@ -1,9 +1,11 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 use Test::More;
 use Test::Warn;
 
-use lib qw(t/lib);
+
 use DBICTest;
 
 warnings_exist { DBICTest->init_schema( compose_connection => 1, sqlite_use_file => 1 ) }
@@ -16,15 +18,4 @@ warnings_exist { DBICTest->init_schema( compose_connection => 1, sqlite_use_file
 
 cmp_ok(DBICTest->resultset('Artist')->count, '>', 0, 'count is valid');
 
-# cleanup globals so we do not trigger the leaktest
-for ( map { DBICTest->schema->class($_) } DBICTest->schema->sources ) {
-  $_->class_resolver(undef);
-  $_->resultset_instance(undef);
-  $_->result_source_instance(undef);
-}
-{
-  no warnings qw/redefine once/;
-  *DBICTest::schema = sub {};
-}
-
 done_testing;