#!perl
+use strict;
+use warnings;
+
use Test::More;
use Test::Exception;
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' );
database_version => '1.0',
});
$vh->next_version_set;
-} 'cannot request a version before the current version';
+} 'cannot request an upgrade before the current version';
+
+dies_ok {
+ my $vh = ExplicitVersions->new({
+ ordered_versions => $versions,
+ to_version => '2.0',
+ schema_version => '1.0',
+ database_version => '1.0',
+ });
+ $vh->previous_version_set;
+} 'cannot request a downgrade after the current version';
done_testing;
#vim: ts=2 sw=2 expandtab