8 use DBIx::Class::DeploymentHandler;
9 use aliased 'DBIx::Class::DeploymentHandler', 'DH';
11 use File::Path qw(remove_tree mkpath);
13 use File::Temp 'tempdir';
16 my $db = 'dbi:SQLite::memory:';
17 my @connection = ($db, '', '', { ignore_version => 1, on_connect_do => sub { die }});
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 ok !$s->storage->connected, 'creating schema did not connect';
26 my $handler = DH->new({
27 script_directory => $sql_dir,
29 databases => 'SQLite',
30 sql_translator_args => { add_drop_table => 0 },
32 ok !$s->storage->connected, 'creating handler did not connect';
33 ok($handler, 'DBIx::Class::DeploymentHandler w/1 instantiates correctly');
35 mkpath("$sql_dir/SQLite/initialize/1");
36 $handler->initialize({ version => 1, storage_type => 'SQLite' });
37 ok !$s->storage->connected, 'creating schema did not connect';