X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02-instantiation-no-ddl.t;h=521446fdba99001afdd7728a575c1f571d943806;hb=297e662fab9ba5a6798db95abbdbca2181373c92;hp=66fcc4429b7418f70d2e3434ed4e0524b3501d54;hpb=5761fe02e68a534a47a6a5ff905c73ec991703cd;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git diff --git a/t/02-instantiation-no-ddl.t b/t/02-instantiation-no-ddl.t index 66fcc44..521446f 100644 --- a/t/02-instantiation-no-ddl.t +++ b/t/02-instantiation-no-ddl.t @@ -8,15 +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 $db = 'dbi:SQLite:db.db'; -my @connection = ($db, '', '', { ignore_version => 1 }); -my $sql_dir = 't/sql'; +my $dbh = DBICDHTest::dbh(); +my @connection = (sub { $dbh }, { ignore_version => 1 }); +my $sql_dir = tempdir( CLEANUP => 1 ); VERSION1: { use_ok 'DBICVersion_v1'; @@ -158,6 +157,10 @@ DOWN2: { baz => 'frew', }) } 'schema is at version 2'; + + is $handler->version_storage->database_version => 2, + 'database version is down to 2'; + } done_testing;