X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdeploy_methods%2Fsql_translator.t;h=779867d59f1fb1a6dd68814a552b4d4948d1fc76;hb=7d2a697450860554093a1021d3fe4405bac6328e;hp=5eeb3deb59267160cfbeff7f2810169d0a9ea896;hpb=d50f25217d0b10029e1fb5ea140eb5547df67592;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git diff --git a/t/deploy_methods/sql_translator.t b/t/deploy_methods/sql_translator.t index 5eeb3de..779867d 100644 --- a/t/deploy_methods/sql_translator.t +++ b/t/deploy_methods/sql_translator.t @@ -59,7 +59,7 @@ VERSION1: { { my $warned = 0; local $SIG{__WARN__} = sub{$warned = 1}; - $dm->_deploy; + $dm->deploy; ok( $warned, 'deploy warns on sql errors' ); } @@ -126,7 +126,7 @@ VERSION2: { print {$common} qq; close $common; - $dm->_upgrade_single_step([qw( 1.0 2.0 )]); + $dm->upgrade_single_step([qw( 1.0 2.0 )]); is( $s->resultset('Foo')->search({ bar => 'hello', baz => 'world', @@ -137,14 +137,14 @@ VERSION2: { baz => 'frew', }) } 'schema is deployed'; - $dm->_downgrade_single_step([qw( 2.0 1.0 )]); + $dm->downgrade_single_step([qw( 2.0 1.0 )]); dies_ok { $s->resultset('Foo')->create({ bar => 'frew', baz => 'frew', }) } 'schema is downpgrayyed'; - $dm->_upgrade_single_step([qw( 1.0 2.0 )]); + $dm->upgrade_single_step([qw( 1.0 2.0 )]); } VERSION3: { @@ -198,7 +198,7 @@ VERSION3: { biff => 'frew', }) } 'schema not deployed'; - $dm->_upgrade_single_step([qw( 2.0 3.0 )]); + $dm->upgrade_single_step([qw( 2.0 3.0 )]); lives_ok { $s->resultset('Foo')->create({ bar => 'frew', @@ -209,7 +209,7 @@ VERSION3: { rmtree(catfile(qw( t sql SQLite ))); rmtree(catfile(qw( t sql _generic ))); dies_ok { - $dm->_upgrade_single_step([qw( 2.0 3.0 )]); + $dm->upgrade_single_step([qw( 2.0 3.0 )]); } 'dies when sql dir does not exist'; } done_testing;