X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03-deprecated.t;h=f29244a22bdadbaa6856b851e1b136db6cf771d8;hb=eb701ec6f072186383fcd7d6293a89eca85bfd48;hp=9b83045e581f1f3854b8ed9c62767deb24911020;hpb=be140a5f1f8ab40705bf4cbedb74761c4994a765;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git diff --git a/t/03-deprecated.t b/t/03-deprecated.t index 9b83045..f29244a 100644 --- a/t/03-deprecated.t +++ b/t/03-deprecated.t @@ -13,8 +13,8 @@ use Test::Exception; DBICDHTest::ready; -my $db = 'dbi:SQLite:db.db'; -my @connection = ($db, '', '', { ignore_version => 1 }); +my $dbh = DBICDHTest::dbh(); +my @connection = (sub { $dbh }, { ignore_version => 1 }); my $sql_dir = 't/sql'; VERSION1: { @@ -23,7 +23,7 @@ VERSION1: { is $s->schema_version, '1.0', 'schema version is at 1.0'; ok($s, 'DBICVersion::Schema 1.0 instantiates correctly'); my $handler = Deprecated->new({ - upgrade_directory => $sql_dir, + script_directory => $sql_dir, schema => $s, databases => 'SQLite', sql_translator_args => { add_drop_table => 0 }, @@ -56,7 +56,7 @@ VERSION2: { is $s->schema_version, '2.0', 'schema version is at 2.0'; ok($s, 'DBICVersion::Schema 2.0 instantiates correctly'); my $handler = Deprecated->new({ - upgrade_directory => $sql_dir, + script_directory => $sql_dir, schema => $s, databases => 'SQLite', }); @@ -93,7 +93,7 @@ VERSION3: { is $s->schema_version, '3.0', 'schema version is at 3.0'; ok($s, 'DBICVersion::Schema 3.0 instantiates correctly'); my $handler = Deprecated->new({ - upgrade_directory => $sql_dir, + script_directory => $sql_dir, schema => $s, databases => 'SQLite', });