X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02-instantiation-no-ddl.t;h=521446fdba99001afdd7728a575c1f571d943806;hb=b6bd39e5d75c994c09f3d0ae0661c572e1c71f05;hp=b892f2c1666b105ba61f396345ce7cfdb7dfb63d;hpb=f3b5161e466df2a94f2704177f0173e7d940c4d5;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git diff --git a/t/02-instantiation-no-ddl.t b/t/02-instantiation-no-ddl.t index b892f2c..521446f 100644 --- a/t/02-instantiation-no-ddl.t +++ b/t/02-instantiation-no-ddl.t @@ -8,16 +8,14 @@ use DBICDHTest; use DBIx::Class::DeploymentHandler; use aliased 'DBIx::Class::DeploymentHandler', 'DH'; -use File::Path 'remove_tree'; use Test::More; -use Test::Exception; +use File::Temp 'tempdir'; +use Test::Fatal qw(lives_ok dies_ok); use DBI; -DBICDHTest::ready; - my $dbh = DBICDHTest::dbh(); my @connection = (sub { $dbh }, { ignore_version => 1 }); -my $sql_dir = 't/sql'; +my $sql_dir = tempdir( CLEANUP => 1 ); VERSION1: { use_ok 'DBICVersion_v1'; @@ -160,7 +158,7 @@ DOWN2: { }) } 'schema is at version 2'; - is $handler->version_storage->database_version => 2, + is $handler->version_storage->database_version => 2, 'database version is down to 2'; }