t/deploy_methods/sql_translator.t

   1 #!perl
   2
   3 use Test::More;
   4 use Test::Exception;
   5
   6 use lib 't/lib';
   7 use DBICDHTest;
   8 use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator';
   9
  10 my $db = 'dbi:SQLite:db.db';
  11 my @connection = ($db, '', '', { ignore_version => 1 });
  12 my $sql_dir = 't/sql';
  13
  14 DBICDHTest::ready;
  15
  16 VERSION1: {
  17    use_ok 'DBICVersion_v1';
  18    my $s = DBICVersion::Schema->connect(@connection);
  19    my $dm = Translator->new({
  20       schema => $s,
  21       upgrade_directory => $sql_dir,
  22       databases => ['SQLite'],
  23    });
  24
  25    ok( $dm, 'DBIC::DH::DM::SQL::Translator gets instantiated correctly' );
  26 }
  27
  28 done_testing;