#!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);
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({
ok($handler, 'DBIx::Class::DeploymentHandler w/2.0 instantiates correctly');
my $version = $s->schema_version();
- $handler->prepare_install();
+ $handler->prepare_deploy();
$handler->prepare_upgrade('1.0', $version);
dies_ok {
$s->resultset('Foo')->create({
ok($handler, 'DBIx::Class::DeploymentHandler w/3.0 instantiates correctly');
my $version = $s->schema_version();
- $handler->prepare_install;
+ $handler->prepare_deploy;
$handler->prepare_upgrade( '2.0', $version );
dies_ok {
$s->resultset('Foo')->create({