8 'DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions';
10 my $versions = [map "$_.0", 0..100];
13 my $vh = ExplicitVersions->new({
14 ordered_versions => $versions,
16 schema_version => '1.0',
17 database_version => '1.0',
20 ok $vh, 'VersionHandler gets instantiated';
23 !$vh->next_version_set,
24 'next version set returns undef if we are at the version requested'
29 my $vh = ExplicitVersions->new({
30 ordered_versions => $versions,
32 schema_version => '1.0',
33 database_version => '1.0',
36 ok $vh, 'VersionHandler gets instantiated';
38 eq_array($vh->next_version_set, [qw( 1.0 2.0 )]),
39 'first version pair works'
42 eq_array($vh->next_version_set, [qw( 2.0 3.0 )]),
43 'second version pair works'
46 eq_array($vh->next_version_set, [qw( 3.0 4.0 )]),
47 'third version pair works'
50 eq_array($vh->next_version_set, [qw( 4.0 5.0 )]),
51 'fourth version pair works'
53 ok( !$vh->next_version_set, 'no more versions after final pair' );
54 ok( !$vh->next_version_set, 'still no more versions after final pair' );
58 my $vh = ExplicitVersions->new({
59 ordered_versions => $versions,
61 schema_version => '1.0',
62 database_version => '1.0',
64 } 'cannot request a version before the current version';
67 #vim: ts=2 sw=2 expandtab