Commit | Line | Data |
ba99ba44 |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use lib 't/lib'; |
7 | use DBICDHTest; |
8 | use DBIx::Class::DeploymentHandler; |
9 | use aliased 'DBIx::Class::DeploymentHandler', 'DH'; |
10 | |
ba99ba44 |
11 | use Test::More; |
7b3d00f9 |
12 | use File::Temp 'tempdir'; |
2482377b |
13 | use Test::Fatal qw(lives_ok dies_ok); |
ba99ba44 |
14 | |
f3b5161e |
15 | my $dbh = DBICDHTest::dbh(); |
ba99ba44 |
16 | my @connection = (sub { $dbh }, { ignore_version => 1 }); |
7b3d00f9 |
17 | my $sql_dir = tempdir( CLEANUP => 1 ); |
ba99ba44 |
18 | |
19 | use_ok 'DBICVersion_v1'; |
20 | my $s = DBICVersion::Schema->connect(@connection); |
21 | $DBICVersion::Schema::VERSION = 1; |
22 | ok($s, 'DBICVersion::Schema 1 instantiates correctly'); |
23 | |
24 | my $dh = DH->new({ |
25 | script_directory => $sql_dir, |
26 | schema => $s, |
27 | databases => 'SQLite', |
28 | sql_translator_args => { add_drop_table => 0 }, |
29 | }); |
30 | |
31 | ok($dh, 'DBIx::Class::DeploymentHandler w/1 instantiates correctly'); |
32 | $dh->prepare_version_storage_install; |
33 | |
34 | |
35 | dies_ok { $s->resultset('__VERSION')->first->version } 'version_storage not installed'; |
36 | $dh->install_version_storage; |
37 | |
38 | $dh->add_database_version( { version => $s->schema_version } ); |
39 | |
40 | lives_ok { $s->resultset('__VERSION')->first->version } 'version_storage installed'; |
41 | |
42 | done_testing; |