schema => $s,
upgrade_directory => $sql_dir,
databases => ['SQLite'],
- sqltargs => { add_drop_table => 0 },
+ sql_translator_args => { add_drop_table => 0 },
});
ok( $dm, 'DBIC::DH::DM::SQL::Translator gets instantiated correctly' );
- $dm->prepare_install;
+ $dm->prepare_deploy;
{
my $warned = 0;
local $SIG{__WARN__} = sub{$warned = 1};
- $dm->prepare_install;
- ok( $warned, 'prepare_install warns if you run it twice' );
+ $dm->prepare_deploy;
+ ok( $warned, 'prepare_deploy warns if you run it twice' );
}
mkpath(catfile(qw( t sql _common schema 1.0 )));
open my $common, '>',
} 'schema not deployed';
mkpath catfile(qw( t sql _common schema 1.0 ));
- open my $common, '>',
+ open $common, '>',
catfile(qw( t sql _common schema 1.0 001-auto.sql ));
print {$common} qq<This will never get run>;
close $common;
schema => $s,
upgrade_directory => $sql_dir,
databases => ['SQLite'],
- sqltargs => { add_drop_table => 0 },
+ sql_translator_args => { add_drop_table => 0 },
+ txn_wrap => 1,
});
ok( $dm, 'DBIC::DH::SQL::Translator w/2.0 instantiates correctly');
$version = $s->schema_version();
- $dm->prepare_install;
+ $dm->prepare_deploy;
ok(
-f catfile(qw( t sql SQLite schema 2.0 001-auto.sql )),
'2.0 schema gets generated properly'
print {$common} qq<INSERT INTO Foo (bar, baz) VALUES ("hello", "world");\n\n>;
close $common;
+ open my $common_pl, '>',
+ catfile(qw( t sql _common up 1.0-2.0 003-semiautomatic.pl ));
+ print {$common_pl} q|
+ sub run {
+ my $schema = shift;
+ $schema->resultset('Foo')->create({
+ bar => 'goodbye',
+ baz => 'blue skies',
+ })
+ }
+ |;
+ close $common_pl;
+
$dm->upgrade_single_step([qw( 1.0 2.0 )]);
is( $s->resultset('Foo')->search({
bar => 'hello',
baz => 'world',
})->count, 1, '_common migration got run');
+ is( $s->resultset('Foo')->search({
+ bar => 'goodbye',
+ #baz => 'blue skies',
+ })->count, 1, '_common perl migration got run');
lives_ok {
$s->resultset('Foo')->create({
bar => 'frew',
schema => $s,
upgrade_directory => $sql_dir,
databases => ['SQLite'],
- sqltargs => { add_drop_table => 0 },
+ sql_translator_args => { add_drop_table => 0 },
txn_wrap => 0,
});
ok( $dm, 'DBIC::DH::SQL::Translator w/3.0 instantiates correctly');
$version = $s->schema_version();
- $dm->prepare_install;
+ $dm->prepare_deploy;
ok(
-f catfile(qw( t sql SQLite schema 3.0 001-auto.sql )),
'2.0 schema gets generated properly'