Ensure that sqltargs are passed to deploy when ignore_ddl is set

[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / version_handlers / explict_versions.t

diff --git a/t/version_handlers/explict_versions.t b/t/version_handlers/explict_versions.t
index c432faf..caa2d94 100644 (file)
--- a/t/version_handlers/explict_versions.t
+++ b/t/version_handlers/explict_versions.t
@@ -1,7 +1,10 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
-use Test::Exception;
+use Test::Fatal qw(lives_ok dies_ok);
 
 use lib 't/lib';
 use aliased
@@ -83,19 +86,19 @@ my $versions = [map "$_.0", 0..100];
 
   ok $vh, 'VersionHandler gets instantiated';
   ok(
-    eq_array($vh->previous_version_set, [qw( 4.0 5.0 )]),
+    eq_array($vh->previous_version_set, [qw( 5.0 4.0 )]),
     'first version pair works'
   );
   ok(
-    eq_array($vh->previous_version_set, [qw( 3.0 4.0 )]),
+    eq_array($vh->previous_version_set, [qw( 4.0 3.0 )]),
     'second version pair works'
   );
   ok(
-    eq_array($vh->previous_version_set, [qw( 2.0 3.0 )]),
+    eq_array($vh->previous_version_set, [qw( 3.0 2.0 )]),
     'third version pair works'
   );
   ok(
-    eq_array($vh->previous_version_set, [qw( 1.0 2.0 )]),
+    eq_array($vh->previous_version_set, [qw( 2.0 1.0 )]),
     'fourth version pair works'
   );
   ok( !$vh->previous_version_set, 'no more versions after final pair' );