X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdeploy_methods%2Fsql_translator_protoschema_transform.t;h=a37aab5db4b2d1cb2d1a5a33ddb17ac404113f04;hb=refs%2Fheads%2Fmigration_schema;hp=5527132aefbc1de0b2005b5c34af9ab6b4d67e22;hpb=624e3018cef977b18efce156c40440aa50d26e09;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

diff --git a/t/deploy_methods/sql_translator_protoschema_transform.t b/t/deploy_methods/sql_translator_protoschema_transform.t
index 5527132..a37aab5 100644
--- a/t/deploy_methods/sql_translator_protoschema_transform.t
+++ b/t/deploy_methods/sql_translator_protoschema_transform.t
@@ -1,5 +1,8 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
 use Test::Exception;
 
@@ -9,7 +12,7 @@ use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator';
 use File::Spec::Functions;
 use File::Path qw(rmtree mkpath);
 
-my $dbh = DBI->connect('dbi:SQLite::memory:');
+my $dbh = DBICDHTest::dbh();
 my @connection = (sub { $dbh }, { ignore_version => 1 });
 my $sql_dir = 't/sql';
 
@@ -17,7 +20,7 @@ DBICDHTest::ready;
 
 VERSION1: {
    use_ok 'DBICVersion_v1';
-   my $s = DBICVersion::Schema->connect(@connection);
+   my $s = DBICVersion::Schema1->connect(@connection);
    my $dm = Translator->new({
       schema            => $s,
       script_directory => $sql_dir,
@@ -31,7 +34,7 @@ VERSION1: {
 
 VERSION2: {
    use_ok 'DBICVersion_v2';
-   my $s = DBICVersion::Schema->connect(@connection);
+   my $s = DBICVersion::Schema2->connect(@connection);
    my $dm = Translator->new({
       schema            => $s,
       script_directory => $sql_dir,
@@ -40,7 +43,6 @@ VERSION2: {
       txn_wrap          => 1,
    });
 
-   $version = $s->schema_version();
    $dm->prepare_deploy;
    mkpath(catfile(qw( t sql _preprocess_schema upgrade 1.0-2.0 )));
    open my $prerun, '>',