#!perl
+use strict;
+use warnings;
+
use lib 't/lib';
use DBICDHTest;
use aliased 'DBIx::Class::DeploymentHandler::Deprecated';
my @connection = ($db, '', '', { ignore_version => 1 });
my $sql_dir = 't/sql';
-ready;
-
VERSION1: {
use_ok 'DBICVersion_v1';
my $s = DBICVersion::Schema->connect(@connection);
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',
- sqltargs => { add_drop_table => 0 },
+ sql_translator_args => { add_drop_table => 0 },
});
ok($handler, 'DBIx::Class::DeploymentHandler w/1.0 instantiates correctly');
my $version = $s->schema_version();
- $handler->prepare_install();
+ $handler->prepare_deploy();
dies_ok {
$s->resultset('Foo')->create({
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',
});
ok($handler, 'DBIx::Class::DeploymentHandler w/2.0 instantiates correctly');
my $version = $s->schema_version();
- $handler->prepare_install();
- $handler->prepare_upgrade('1.0', $version);
+ $handler->prepare_deploy();
+ $handler->prepare_upgrade({ from_version => '1.0', to_version => $version });
dies_ok {
$s->resultset('Foo')->create({
bar => 'frew',
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',
});
ok($handler, 'DBIx::Class::DeploymentHandler w/3.0 instantiates correctly');
my $version = $s->schema_version();
- $handler->prepare_install;
- $handler->prepare_upgrade( '2.0', $version );
+ $handler->prepare_deploy;
+ $handler->prepare_upgrade({ from_version => '2.0', to_version => $version });
dies_ok {
$s->resultset('Foo')->create({
bar => 'frew',