X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=blobdiff_plain;f=t%2Fdeploy_methods%2Fsql_translator.t;h=614c6c0d21fd045d940c354c0801e0884f8aa3b9;hp=62094d941cb051c7aebacd5c4d7779f7b99ba5fb;hb=refs%2Fheads%2Fmigration_schema;hpb=cdb45dee99a52a37f6e61bfbec2e4af8f3a59f51 diff --git a/t/deploy_methods/sql_translator.t b/t/deploy_methods/sql_translator.t index 62094d9..614c6c0 100644 --- a/t/deploy_methods/sql_translator.t +++ b/t/deploy_methods/sql_translator.t @@ -37,7 +37,7 @@ for (qw(initialize upgrade downgrade deploy)) { 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, @@ -82,7 +82,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, @@ -189,7 +189,7 @@ VERSION2: { VERSION3: { use_ok 'DBICVersion_v3'; - my $s = DBICVersion::Schema->connect(@connection); + my $s = DBICVersion::Schema3->connect(@connection); my $dm = Translator->new({ schema => $s, script_directory => $sql_dir, @@ -256,9 +256,12 @@ VERSION3: { biff => 'frew', }) } 'schema is deployed'; - dies_ok { - $dm->upgrade_single_step({ version_set => [qw( 2.0 3.0 )] }); - } 'dies when sql dir does not exist'; + ## This doesn't die now with the SQLT fixes + #dies_ok { + # $dm->upgrade_single_step({ version_set => [qw( 2.0 3.0 )] }); + #} 'dies when sql dir does not exist'; + # + $dm->upgrade_single_step({ version_set => [qw( 2.0 3.0 )] }); } my $stuff_that_ran = do { local( @ARGV, $/ ) = 'stuffthatran'; <> };