Fix documentation for in the Cookbook

[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / 04-preconnect.t

#!perl

use strict;
use warnings;

use lib 't/lib';
use DBICDHTest;
use DBIx::Class::DeploymentHandler;
use aliased 'DBIx::Class::DeploymentHandler', 'DH';

use File::Path qw(remove_tree mkpath);
use Test::More;
use Test::Exception;

DBICDHTest::ready;

my $db = 'dbi:SQLite::memory:';
my @connection = ($db, '', '', { ignore_version => 1, on_connect_do => sub { die }});
my $sql_dir = 't/sql';

VERSION1: {
  use_ok 'DBICVersion_v1';
  my $s = DBICVersion::Schema->connect(@connection);
  $DBICVersion::Schema::VERSION = 1;
  ok($s, 'DBICVersion::Schema 1 instantiates correctly');
  ok !$s->storage->connected, 'creating schema did not connect';
  my $handler = DH->new({
    script_directory => $sql_dir,
    schema => $s,
    databases => 'SQLite',
    sql_translator_args => { add_drop_table => 0 },
  });
  ok !$s->storage->connected, 'creating handler did not connect';
  ok($handler, 'DBIx::Class::DeploymentHandler w/1 instantiates correctly');

  mkpath('t/sql/SQLite/initialize/1');
  $handler->initialize({ version => 1, storage_type => 'SQLite' });
  ok !$s->storage->connected, 'creating schema did not connect';
}
done_testing;