Commit | Line | Data |
9faec51a |
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 | |
11 | use File::Path qw(remove_tree mkpath); |
12 | use Test::More; |
7b3d00f9 |
13 | use File::Temp 'tempdir'; |
9faec51a |
14 | |
624e3018 |
15 | my $db = 'dbi:SQLite::memory:'; |
16 | my @connection = ($db, '', '', { ignore_version => 1, on_connect_do => sub { die }}); |
7b3d00f9 |
17 | my $sql_dir = tempdir( CLEANUP => 1 ); |
9faec51a |
18 | |
19 | VERSION1: { |
20 | use_ok 'DBICVersion_v1'; |
21 | my $s = DBICVersion::Schema->connect(@connection); |
22 | $DBICVersion::Schema::VERSION = 1; |
23 | ok($s, 'DBICVersion::Schema 1 instantiates correctly'); |
24 | ok !$s->storage->connected, 'creating schema did not connect'; |
25 | my $handler = DH->new({ |
91adde75 |
26 | script_directory => $sql_dir, |
9faec51a |
27 | schema => $s, |
28 | databases => 'SQLite', |
29 | sql_translator_args => { add_drop_table => 0 }, |
30 | }); |
31 | ok !$s->storage->connected, 'creating handler did not connect'; |
32 | ok($handler, 'DBIx::Class::DeploymentHandler w/1 instantiates correctly'); |
33 | |
7b3d00f9 |
34 | mkpath("$sql_dir/SQLite/initialize/1"); |
ff40cb1f |
35 | $handler->initialize({ version => 1, storage_type => 'SQLite' }); |
9faec51a |
36 | ok !$s->storage->connected, 'creating schema did not connect'; |
37 | } |
38 | done_testing; |