X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F40compose_connection.t;h=2732a5e622d01d4a75384ef46700af44e0aa3092;hb=67f5d3f20045f28bf551e1fd9fd315dd2041d596;hp=a68a2c26c5d6458fa67c1ef591f5fb136953d910;hpb=8d73fcd44e0441f0252744be32bada6816c5ff6b;p=dbsrgits%2FDBIx-Class.git diff --git a/t/40compose_connection.t b/t/40compose_connection.t index a68a2c2..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,7 +18,4 @@ warnings_exist { DBICTest->init_schema( compose_connection => 1, sqlite_use_file cmp_ok(DBICTest->resultset('Artist')->count, '>', 0, 'count is valid'); -# cleanup globaly cached handle so we do not trigger the leaktest -DBICTest->schema->storage->disconnect; - done_testing;