X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=blobdiff_plain;f=t%2Fdeploy_methods%2Fsql_translator_deprecated.t;fp=t%2Fdeploy_methods%2Fsql_translator_deprecated.t;h=cd2612ccfcb5a21b9c1f1f151e5f4c719cee036d;hp=709fcd02345920502a3ab158e788f74fb937252f;hb=7b3d00f984e43c319a637332579e950376637a3d;hpb=562030878a850a01073774f27769748077c79176 diff --git a/t/deploy_methods/sql_translator_deprecated.t b/t/deploy_methods/sql_translator_deprecated.t index 709fcd0..cd2612c 100644 --- a/t/deploy_methods/sql_translator_deprecated.t +++ b/t/deploy_methods/sql_translator_deprecated.t @@ -8,11 +8,12 @@ use DBICDHTest; use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated'; -use File::Spec::Functions; +use File::Spec::Functions qw(catfile splitdir); +use File::Temp 'tempdir'; my $dbh = DBICDHTest::dbh(); my @connection = (sub { $dbh }, { ignore_version => 1 }); -my $sql_dir = 't/sql'; +my $sql_dir = tempdir( CLEANUP => 1 ); DBICDHTest::ready; @@ -31,7 +32,7 @@ VERSION1: { $dm->prepare_deploy; ok( - -f catfile(qw( t sql DBICVersion-Schema-1.0-SQLite.sql )), + -f catfile(splitdir($sql_dir), qw(DBICVersion-Schema-1.0-SQLite.sql )), '1.0 schema gets generated properly' );