5 use File::Path 'remove_tree';
10 use DBIx::Class::DeploymentHandler;
11 my $db = 'dbi:SQLite:db.db';
12 my @connection = ($db, '', '', { ignore_version => 1 });
13 my $sql_dir = 't/sql';
18 use_ok 'DBICVersion_v1';
19 my $s = DBICVersion::Schema->connect(@connection);
20 ok($s, 'DBICVersion::Schema 1.0 instantiates correctly');
21 my $handler = DBIx::Class::DeploymentHandler->new({
22 upgrade_directory => $sql_dir,
24 databases => 'SQLite',
25 sqltargs => { add_drop_table => 0 },
28 ok($handler, 'DBIx::Class::DeploymentHandler w/1.0 instantiates correctly');
30 my $version = $s->schema_version();
31 $handler->prepare_install();
32 #ok(-e 't/sql/DBICVersion-Schema-schema-1.0-SQLite.sql', 'DDL for 1.0 got created successfully');
35 $s->resultset('Foo')->create({
38 } 'schema not deployed';
41 $s->resultset('Foo')->create({
44 } 'schema is deployed';
48 use_ok 'DBICVersion_v2';
49 my $s = DBICVersion::Schema->connect(@connection);
50 ok($s, 'DBICVersion::Schema 2.0 instantiates correctly');
51 my $handler = DBIx::Class::DeploymentHandler->new({
52 upgrade_directory => $sql_dir,
54 databases => 'SQLite',
57 ok($handler, 'DBIx::Class::DeploymentHandler w/2.0 instantiates correctly');
59 $version = $s->schema_version();
60 $handler->prepare_install();
61 $handler->prepare_upgrade('1.0', $version);
62 #ok(-e 't/sql/DBICVersion-Schema-schema-2.0-SQLite.sql', 'DDL for 2.0 got created successfully');
63 #ok(-e 't/sql/DBICVersion-Schema-diff-1.0-2.0-SQLite.sql', 'DDL for migration from 1.0 to 2.0 got created successfully');
65 $s->resultset('Foo')->create({
69 } 'schema not deployed';
70 #$handler->install('1.0');
72 $s->resultset('Foo')->create({
76 } 'schema not uppgrayyed';
79 $s->resultset('Foo')->create({
83 } 'schema is deployed';
87 use_ok 'DBICVersion_v3';
88 my $s = DBICVersion::Schema->connect(@connection);
89 ok($s, 'DBICVersion::Schema 3.0 instantiates correctly');
90 my $handler = DBIx::Class::DeploymentHandler->new({
91 upgrade_directory => $sql_dir,
93 databases => 'SQLite',
96 ok($handler, 'DBIx::Class::DeploymentHandler w/3.0 instantiates correctly');
98 $version = $s->schema_version();
99 $handler->prepare_install;
100 $handler->prepare_upgrade( '1.0', $version );
101 $handler->prepare_upgrade( '2.0', $version );
102 #ok(-e 't/sql/DBICVersion-Schema-schema-3.0-SQLite.sql', 'DDL for 3.0 got created successfully');
103 #ok(-e 't/sql/DBICVersion-Schema-diff-1.0-3.0-SQLite.sql', 'DDL for migration from 1.0 to 3.0 got created successfully');
104 #ok(-e 't/sql/DBICVersion-Schema-diff-2.0-3.0-SQLite.sql', 'DDL for migration from 2.0 to 3.0 got created successfully');
106 $s->resultset('Foo')->create({
111 } 'schema not deployed';
114 $s->resultset('Foo')->create({
119 } 'schema is deployed';
125 vim: ts=2 sw=2 expandtab