X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=blobdiff_plain;f=t%2Fdeploy_methods%2Fcoderef-leakage.t;h=3eb32c29cc17cf75bda8071b7f0d9090205567c0;hp=7254ca7b6b4895dde9777e5d5675283b59d59355;hb=7b3d00f984e43c319a637332579e950376637a3d;hpb=562030878a850a01073774f27769748077c79176 diff --git a/t/deploy_methods/coderef-leakage.t b/t/deploy_methods/coderef-leakage.t index 7254ca7..3eb32c2 100644 --- a/t/deploy_methods/coderef-leakage.t +++ b/t/deploy_methods/coderef-leakage.t @@ -6,20 +6,22 @@ use warnings; use Test::More; use Test::Exception; use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator'; -use File::Temp; +use File::Temp 'tempdir'; use lib 't/lib'; use DBICDHTest; my $dbh = DBICDHTest::dbh(); +my $sql_dir = tempdir( CLEANUP => 1 ); my @connection = (sub { $dbh }, { ignore_version => 1 }); -DBICDHTest::ready; - use_ok 'DBICVersion_v1'; my $s = DBICVersion::Schema->connect(@connection); -my $dm = Translator->new({ schema => $s }); +my $dm = Translator->new({ + schema => $s, + script_directory => $sql_dir, +}); my ($fname1, $fname2) = @_;