9 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated';
11 use File::Spec::Functions;
13 my $dbh = DBICDHTest::dbh();
14 my @connection = (sub { $dbh }, { ignore_version => 1 });
15 my $sql_dir = 't/sql';
20 use_ok 'DBICVersion_v1';
21 my $s = DBICVersion::Schema->connect(@connection);
22 my $dm = Deprecated->new({
24 script_directory => $sql_dir,
25 databases => ['SQLite'],
26 sql_translator_args => { add_drop_table => 0 },
29 ok( $dm, 'DBIC::DH::DM::SQLT::Deprecated gets instantiated correctly' );
34 -f catfile(qw( t sql DBICVersion-Schema-1.0-SQLite.sql )),
35 '1.0 schema gets generated properly'
39 $s->resultset('Foo')->create({
42 } 'schema not deployed';
45 $s->resultset('Foo')->create({
48 } 'schema is deployed';
52 use_ok 'DBICVersion_v2';
53 my $s = DBICVersion::Schema->connect(@connection);
54 my $dm = Deprecated->new({
56 script_directory => $sql_dir,
57 databases => ['SQLite'],
62 'DBIC::DH::DM::SQLT::Deprecated gets instantiated correctly w/ version 2.0'
65 $version = $s->schema_version;
67 $dm->prepare_upgrade({
68 from_version => '1.0',
69 to_version => $version,
70 version_set => ['1.0', $version]
73 $s->resultset('Foo')->create({
77 } 'schema not deployed';
79 $s->resultset('Foo')->create({
83 } 'schema not uppgrayyed';
84 $dm->upgrade_single_step({ version_set => ['1.0', $version] });
86 $s->resultset('Foo')->create({
90 } 'schema is deployed';
93 #vim: ts=2 sw=2 expandtab