X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdeploy_methods%2Fsql_translator_deprecated.t;h=5a938216dcc53e05c6fb91b2cdd4cd5823182fa5;hb=91adde755e5808a1ec12bcf00e683e3754964cc9;hp=bd9b14de2ff93cdcf31c530029406b64e091ce11;hpb=7d2a697450860554093a1021d3fe4405bac6328e;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git diff --git a/t/deploy_methods/sql_translator_deprecated.t b/t/deploy_methods/sql_translator_deprecated.t index bd9b14d..5a93821 100644 --- a/t/deploy_methods/sql_translator_deprecated.t +++ b/t/deploy_methods/sql_translator_deprecated.t @@ -6,7 +6,7 @@ use Test::Exception; use lib 't/lib'; use DBICDHTest; use aliased - 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated'; + 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated'; use File::Spec::Functions; @@ -21,14 +21,14 @@ VERSION1: { my $s = DBICVersion::Schema->connect(@connection); my $dm = Deprecated->new({ schema => $s, - upgrade_directory => $sql_dir, + script_directory => $sql_dir, databases => ['SQLite'], - sqltargs => { add_drop_table => 0 }, + sql_translator_args => { add_drop_table => 0 }, }); ok( $dm, 'DBIC::DH::DM::SQLT::Deprecated gets instantiated correctly' ); - $dm->prepare_install(); + $dm->prepare_deploy; ok( -f catfile(qw( t sql DBICVersion-Schema-1.0-SQLite.sql )), @@ -49,41 +49,45 @@ VERSION1: { } VERSION2: { - use_ok 'DBICVersion_v2'; - my $s = DBICVersion::Schema->connect(@connection); + use_ok 'DBICVersion_v2'; + my $s = DBICVersion::Schema->connect(@connection); my $dm = Deprecated->new({ schema => $s, - upgrade_directory => $sql_dir, + script_directory => $sql_dir, databases => ['SQLite'], }); ok( - $dm, - 'DBIC::DH::DM::SQLT::Deprecated gets instantiated correctly w/ version 2.0' - ); + $dm, + 'DBIC::DH::DM::SQLT::Deprecated gets instantiated correctly w/ version 2.0' + ); - $version = $s->schema_version(); - $dm->prepare_install(); - $dm->prepare_upgrade('1.0', $version); - dies_ok { - $s->resultset('Foo')->create({ - bar => 'frew', - baz => 'frew', - }) - } 'schema not deployed'; - dies_ok { - $s->resultset('Foo')->create({ - bar => 'frew', - baz => 'frew', - }) - } 'schema not uppgrayyed'; - $dm->upgrade_single_step(['1.0', $version]); - lives_ok { - $s->resultset('Foo')->create({ - bar => 'frew', - baz => 'frew', - }) - } 'schema is deployed'; + $version = $s->schema_version; + $dm->prepare_deploy; + $dm->prepare_upgrade({ + from_version => '1.0', + to_version => $version, + version_set => ['1.0', $version] + }); + dies_ok { + $s->resultset('Foo')->create({ + bar => 'frew', + baz => 'frew', + }) + } 'schema not deployed'; + dies_ok { + $s->resultset('Foo')->create({ + bar => 'frew', + baz => 'frew', + }) + } 'schema not uppgrayyed'; + $dm->upgrade_single_step({ version_set => ['1.0', $version] }); + lives_ok { + $s->resultset('Foo')->create({ + bar => 'frew', + baz => 'frew', + }) + } 'schema is deployed'; } done_testing; #vim: ts=2 sw=2 expandtab