6 use lib 't/no-component-lib';
8 use DBIx::Class::DeploymentHandler;
9 use aliased 'DBIx::Class::DeploymentHandler', 'DH';
11 use File::Path 'remove_tree';
13 use File::Temp 'tempdir';
16 my $dbh = DBICDHTest::dbh();
17 my @connection = (sub { $dbh }, { ignore_version => 1 });
18 my $sql_dir = tempdir( CLEANUP => 1 );
21 use_ok 'DBICVersion_v1';
22 my $s = DBICVersion::Schema->connect(@connection);
23 $DBICVersion::Schema::VERSION = 1;
24 ok($s, 'DBICVersion::Schema 1 instantiates correctly');
25 my $handler = DH->new({
26 script_directory => $sql_dir,
28 databases => 'SQLite',
29 sql_translator_args => { add_drop_table => 0 },
32 ok($handler, 'DBIx::Class::DeploymentHandler w/1 instantiates correctly');
34 my $version = $s->schema_version;
35 $handler->prepare_install;
38 $s->resultset('Foo')->create({
41 } 'schema not deployed';
42 $handler->install({ version => 1 });
45 } 'cannot install twice';
47 $s->resultset('Foo')->create({
50 } 'schema is deployed';
54 use_ok 'DBICVersion_v2';
55 my $s = DBICVersion::Schema->connect(@connection);
56 $DBICVersion::Schema::VERSION = 2;
57 subtest 'bug deploying first version' => sub {
58 my $dbh = DBICDHTest::dbh();
59 my @connection = (sub { $dbh }, { ignore_version => 1 });
60 my $s = DBICVersion::Schema->connect(@connection);
62 my $handler = DH->new({
63 script_directory => $sql_dir,
65 databases => 'SQLite',
67 $handler->install({ version => 1 });
68 is($handler->database_version, 1, 'correctly set version to 1');
71 ok($s, 'DBICVersion::Schema 2 instantiates correctly');
72 my $handler = DH->new({
73 script_directory => $sql_dir,
75 databases => 'SQLite',
78 ok($handler, 'DBIx::Class::DeploymentHandler w/2 instantiates correctly');
80 my $version = $s->schema_version();
81 $handler->prepare_install;
82 $handler->prepare_upgrade({ from_version => 1, to_version => $version });
84 $s->resultset('Foo')->create({
88 } 'schema not deployed';
90 $s->resultset('Foo')->create({
94 } 'schema not uppgrayyed';
97 $s->resultset('Foo')->create({
101 } 'schema is deployed';
105 use_ok 'DBICVersion_v3';
106 my $s = DBICVersion::Schema->connect(@connection);
107 $DBICVersion::Schema::VERSION = 3;
108 ok($s, 'DBICVersion::Schema 3 instantiates correctly');
109 my $handler = DH->new({
110 script_directory => $sql_dir,
112 databases => 'SQLite',
115 ok($handler, 'DBIx::Class::DeploymentHandler w/3 instantiates correctly');
117 my $version = $s->schema_version();
118 $handler->prepare_install;
119 $handler->prepare_upgrade({ from_version => 2, to_version => $version });
121 $s->resultset('Foo')->create({
126 } 'schema not deployed';
129 $s->resultset('Foo')->create({
134 } 'schema is deployed';
138 use_ok 'DBICVersion_v4';
139 my $s = DBICVersion::Schema->connect(@connection);
140 $DBICVersion::Schema::VERSION = 2;
141 ok($s, 'DBICVersion::Schema 2 instantiates correctly');
142 my $handler = DH->new({
143 script_directory => $sql_dir,
145 databases => 'SQLite',
148 ok($handler, 'DBIx::Class::DeploymentHandler w/2 instantiates correctly');
150 my $version = $s->schema_version();
151 $handler->prepare_downgrade({ from_version => 3, to_version => $version });
153 $s->resultset('Foo')->create({
158 } 'schema at version 3';
161 $s->resultset('Foo')->create({
166 } 'schema not at version 3';
168 $s->resultset('Foo')->create({
172 } 'schema is at version 2';