super basic test for dm::sqlt

[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / deploy_methods / sql_translator.t

diff --git a/t/deploy_methods/sql_translator.t b/t/deploy_methods/sql_translator.t
index 2978776..4729a41 100644 (file)
--- a/t/deploy_methods/sql_translator.t
+++ b/t/deploy_methods/sql_translator.t
@@ -5,7 +5,24 @@ use Test::Exception;
 
 use lib 't/lib';
 use DBICDHTest;
-use DBICTest;
-use_ok 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator';
+use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator';
+
+my $db = 'dbi:SQLite:db.db';
+my @connection = ($db, '', '', { ignore_version => 1 });
+my $sql_dir = 't/sql';
+
+DBICDHTest::ready;
+
+VERSION1: {
+   use_ok 'DBICVersion_v1';
+   my $s = DBICVersion::Schema->connect(@connection);
+   my $dm = Translator->new({
+      schema => $s,
+      upgrade_directory => $sql_dir,
+      databases => ['SQLite'],
+   });
+
+   ok( $dm, 'DBIC::DH::DM::SQL::Translator gets instantiated correctly' );
+}
 
 done_testing;