11 use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator';
12 use File::Spec::Functions;
13 use File::Path qw(rmtree mkpath);
14 use File::Temp 'tempfile';
16 my $dbh = DBICDHTest::dbh();
17 my @connection = (sub { $dbh }, { ignore_version => 1 });
18 my $sql_dir = 't/sql';
23 use_ok 'DBICVersion_v1';
24 my $s = DBICVersion::Schema->connect(@connection);
25 my $dm = Translator->new({
27 script_directory => $sql_dir,
28 databases => ['SQLite'],
29 sql_translator_args => { add_drop_table => 0 },
37 use_ok 'DBICVersion_v2';
38 my $s = DBICVersion::Schema->connect(@connection);
39 my $dm = Translator->new({
41 script_directory => $sql_dir,
42 databases => ['SQLite'],
43 sql_translator_args => { add_drop_table => 0 },
48 mkpath(catfile(qw( t sql _preprocess_schema upgrade 1.0-2.0 )));
50 catfile(qw( t sql _preprocess_schema upgrade 1.0-2.0 003-semiautomatic.pl ));
51 my (undef, $fn) = tempfile(OPEN => 0);
54 open my \$fh, ">", '$fn'
55 if \$_[0]->isa("SQL::Translator::Schema")
56 && \$_[1]->isa("SQL::Translator::Schema");
59 $dm->prepare_upgrade({
60 from_version => '1.0',
62 version_set => [qw(1.0 2.0)]
64 ok -e $fn, 'intermediate script ran with the right args';
65 $dm->upgrade_single_step({ version_set => [qw( 1.0 2.0 )] });
68 #vim: ts=2 sw=2 expandtab