X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fsavepoints.t;h=613eb14beeddcaa7ca60ac49c2def36dd83437fa;hb=2c2bc4e5;hp=0c56afc90094e5c1478c073f47a27cccfbd41e59;hpb=c8dc7d3337cdd47a721739473b61c8d4477d9129;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/storage/savepoints.t b/t/storage/savepoints.t
index 0c56afc..613eb14 100644
--- a/t/storage/savepoints.t
+++ b/t/storage/savepoints.t
@@ -42,7 +42,7 @@ for ('', keys %$env2optdep) { SKIP: {
     skip ("Testing with ${prefix}_DSN needs " . DBIx::Class::Optional::Dependencies->req_missing_for( $env2optdep->{$prefix} ), 1)
       unless  DBIx::Class::Optional::Dependencies->req_ok_for($env2optdep->{$prefix});
 
-    $schema = DBICTest::Schema->connect ($dsn,$user,$pass,{ auto_savepoint => 1 });
+    $schema = DBICTest->connect_schema ($dsn,$user,$pass,{ auto_savepoint => 1 });
 
     my $create_sql;
     $schema->storage->ensure_connected;
@@ -234,6 +234,8 @@ for ('', keys %$env2optdep) { SKIP: {
 
 done_testing;
 
+# XXX: The leak tests fail if this is END compiled before (and thus
+# executed after) the one in DBICTest::BaseSchema
 END {
   eval { $schema->storage->dbh->do ("DROP TABLE artist") } if defined $schema;
   undef $schema;