8 use aliased 'DBIx::Class::DeploymentHandler::Deprecated';
10 use File::Path 'remove_tree';
16 my $db = 'dbi:SQLite:db.db';
17 my @connection = ($db, '', '', { ignore_version => 1 });
18 my $sql_dir = 't/sql';
21 use_ok 'DBICVersion_v1';
22 my $s = DBICVersion::Schema->connect(@connection);
23 is $s->schema_version, '1.0', 'schema version is at 1.0';
24 ok($s, 'DBICVersion::Schema 1.0 instantiates correctly');
25 my $handler = Deprecated->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.0 instantiates correctly');
34 my $version = $s->schema_version();
35 $handler->prepare_deploy();
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 is $s->schema_version, '2.0', 'schema version is at 2.0';
57 ok($s, 'DBICVersion::Schema 2.0 instantiates correctly');
58 my $handler = Deprecated->new({
59 script_directory => $sql_dir,
61 databases => 'SQLite',
64 ok($handler, 'DBIx::Class::DeploymentHandler w/2.0 instantiates correctly');
66 my $version = $s->schema_version();
67 $handler->prepare_deploy();
68 $handler->prepare_upgrade({ from_version => '1.0', 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 is $s->schema_version, '3.0', 'schema version is at 3.0';
94 ok($s, 'DBICVersion::Schema 3.0 instantiates correctly');
95 my $handler = Deprecated->new({
96 script_directory => $sql_dir,
98 databases => 'SQLite',
101 ok($handler, 'DBIx::Class::DeploymentHandler w/3.0 instantiates correctly');
103 my $version = $s->schema_version();
104 $handler->prepare_deploy;
105 $handler->prepare_upgrade({ from_version => '2.0', to_version => $version });
107 $s->resultset('Foo')->create({
112 } 'schema not deployed';
115 $s->resultset('Foo')->create({
120 } 'schema is deployed';