8 use DBIx::Class::DeploymentHandler;
9 use aliased 'DBIx::Class::DeploymentHandler', 'DH';
11 use File::Path 'remove_tree';
13 use File::Temp 'tempdir';
14 use Test::Fatal qw(lives_ok dies_ok);
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';
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 ok($s, 'DBICVersion::Schema 2 instantiates correctly');
58 my $handler = DH->new({
59 script_directory => $sql_dir,
61 databases => 'SQLite',
64 ok($handler, 'DBIx::Class::DeploymentHandler w/2 instantiates correctly');
66 my $version = $s->schema_version();
67 $handler->prepare_install;
68 $handler->prepare_upgrade({ from_version => 1, to_version => $version} );
70 $s->resultset('Foo')->create({
74 } 'schema not deployed';
76 $s->resultset('Foo')->create({
80 } 'schema not uppgrayyed';
83 $s->resultset('Foo')->create({
87 } 'schema is deployed';
91 use_ok 'DBICVersion_v3';
92 my $s = DBICVersion::Schema->connect(@connection);
93 $DBICVersion::Schema::VERSION = 3;
94 ok($s, 'DBICVersion::Schema 3 instantiates correctly');
95 my $handler = DH->new({
96 script_directory => $sql_dir,
98 databases => 'SQLite',
101 ok($handler, 'DBIx::Class::DeploymentHandler w/3 instantiates correctly');
103 my $version = $s->schema_version();
104 $handler->prepare_install;
105 $handler->prepare_upgrade({ from_version => 2, to_version => $version });
107 $s->resultset('Foo')->create({
112 } 'schema not deployed';
115 $s->resultset('Foo')->create({
120 } 'schema is deployed';
124 use_ok 'DBICVersion_v4';
125 my $s = DBICVersion::Schema->connect(@connection);
126 $DBICVersion::Schema::VERSION = 2;
127 ok($s, 'DBICVersion::Schema 2 instantiates correctly');
128 my $handler = DH->new({
129 script_directory => $sql_dir,
131 databases => 'SQLite',
134 ok($handler, 'DBIx::Class::DeploymentHandler w/2 instantiates correctly');
136 my $version = $s->schema_version();
137 $handler->prepare_downgrade({ from_version => 3, to_version => $version });
139 $s->resultset('Foo')->create({
144 } 'schema at version 3';
147 $s->resultset('Foo')->create({
152 } 'schema not at version 3';
154 $s->resultset('Foo')->create({
158 } 'schema is at version 2';