X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F40compose_connection.t;h=6cd62fff00f590b2b27352bdb9ca244022e27362;hb=eed5492fecb339252aaad11adb22651e5bd06d7b;hp=051ab9ba37f8ae25006d2fb914a8bb4dfdfd2e17;hpb=e42bbd7fdce08d85476fec5bcf6971ddcc401955;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/40compose_connection.t b/t/40compose_connection.t
index 051ab9b..6cd62ff 100644
--- a/t/40compose_connection.t
+++ b/t/40compose_connection.t
@@ -16,4 +16,15 @@ 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;