remove dep on File::Touch

[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / deploy_methods / sql_translator.t

diff --git a/t/deploy_methods/sql_translator.t b/t/deploy_methods/sql_translator.t
index bedc074..28f9dda 100644 (file)
--- a/t/deploy_methods/sql_translator.t
+++ b/t/deploy_methods/sql_translator.t
@@ -12,7 +12,7 @@ use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator';
 use File::Spec::Functions;
 use File::Path qw(rmtree mkpath);
 
-my $dbh = DBI->connect('dbi:SQLite::memory:');
+my $dbh = DBICDHTest::dbh();
 my @connection = (sub { $dbh }, { ignore_version => 1 });
 my $sql_dir = 't/sql';
 
@@ -52,7 +52,7 @@ VERSION1: {
    mkpath(catfile(qw( t sql SQLite initialize 1.0 )));
    open my $prerun, '>',
       catfile(qw( t sql SQLite initialize 1.0 003-semiautomatic.pl ));
-   print {$prerun} "sub {use File::Touch; touch(q(foobar));}";
+   print {$prerun} "sub { open my \$fh, '>', q(foobar);}";
    close $prerun;
    $dm->initialize({ version => '1.0' });