switch to Path::Class for fewer mistakes

[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / 04-preconnect.t

diff --git a/t/04-preconnect.t b/t/04-preconnect.t
index 962b89f..d265dc2 100644 (file)
--- a/t/04-preconnect.t
+++ b/t/04-preconnect.t
@@ -8,10 +8,9 @@ use DBICDHTest;
 use DBIx::Class::DeploymentHandler;
 use aliased 'DBIx::Class::DeploymentHandler', 'DH';
 
-use File::Path qw(remove_tree mkpath);
+use Path::Class 'dir';
 use Test::More;
 use File::Temp 'tempdir';
-use Test::Exception;
 
 my $db = 'dbi:SQLite::memory:';
 my @connection = ($db, '', '', { ignore_version => 1, on_connect_do => sub { die }});
@@ -32,7 +31,7 @@ VERSION1: {
   ok !$s->storage->connected, 'creating handler did not connect';
   ok($handler, 'DBIx::Class::DeploymentHandler w/1 instantiates correctly');
 
-  mkpath("$sql_dir/SQLite/initialize/1");
+  dir($sql_dir, qw(SQLite initialize 1))->mkpath;
   $handler->initialize({ version => 1, storage_type => 'SQLite' });
   ok !$s->storage->connected, 'creating schema did not connect';
 }