super basic test for dm::sqlt
Arthur Axel 'fREW' Schmidt [Sun, 21 Mar 2010 05:10:11 +0000 (00:10 -0500)]
take out useless use

t/02-instantiation.t
t/deploy_methods/sql_translator.t
t/deploy_methods/sql_translator_deprecated.t
t/version_handlers/db_schema_versions.t
t/version_storages/standard.t
t/version_storages/tiny.t

index 9699644..156bb24 100644 (file)
@@ -6,7 +6,6 @@ use File::Path 'remove_tree';
 
 use lib 't/lib';
 use DBICDHTest;
-use DBICTest;
 use DBIx::Class::DeploymentHandler;
 my $db = 'dbi:SQLite:db.db';
 my @connection = ($db, '', '', { ignore_version => 1 });
index 2978776..4729a41 100644 (file)
@@ -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;
index ee05f89..0e5eab2 100644 (file)
@@ -6,7 +6,6 @@ use Test::Exception;
 
 use lib 't/lib';
 use DBICDHTest;
-use DBICTest;
 use_ok 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::Deprecated';
 
 done_testing;
index 7a5e62a..60ca584 100644 (file)
@@ -4,8 +4,6 @@ use Test::More;
 use Test::Exception;
 
 use lib 't/lib';
-use DBICDHTest;
-use DBICTest;
 use aliased
   'DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions';
 
index dcd4c2f..f25a9cb 100644 (file)
@@ -6,7 +6,6 @@ use Test::Exception;
 
 use lib 't/lib';
 use DBICDHTest;
-use DBICTest;
 use aliased 'DBIx::Class::DeploymentHandler::VersionStorage::Standard';
 
 use DBICVersion_v1;
index b2476d8..602d517 100644 (file)
@@ -5,7 +5,6 @@ use Test::Exception;
 
 use lib 't/lib';
 use DBICDHTest;
-use DBICTest;
 use_ok 'DBIx::Class::DeploymentHandler::VersionStorage::Standard';
 
 done_testing;