view release on metacpan or  search on metacpan

t/01_resolver.t  view on Meta::CPAN

subtest indent => sub {
    my $resolver = App::CpanfileSlipstop::Resolver->new(
        cpanfile => test_cpanfile('indent'),
        snapshot => test_snapshot('indent'),
    );

    $resolver->read_cpanfile_requirements;
    $resolver->merge_snapshot_versions('add_minimum', 0);

    is $resolver->get_version_range('DateTime'), '1.50';
    is $resolver->get_version_range('JSON::XS'), '3.04';
    is $resolver->get_version_range('Data::Printer'), '0.40';
    is $resolver->get_version_range('Test::More'), undef;
};

subtest phases => sub {
    my $resolver = App::CpanfileSlipstop::Resolver->new(
        cpanfile => test_cpanfile('phases'),
        snapshot => test_snapshot('phases'),
    );

    $resolver->read_cpanfile_requirements;
    $resolver->merge_snapshot_versions('add_maximum', 0);

    is $resolver->get_version_range('DateTime'), '<= 1.50';
    is $resolver->get_version_range('JSON::XS'), '<= 3.04';
    is $resolver->get_version_range('Data::Printer'), '<= 0.40';
    is $resolver->get_version_range('Test::More'), undef;
};

subtest types => sub {
    my $resolver = App::CpanfileSlipstop::Resolver->new(
        cpanfile => test_cpanfile('types'),
        snapshot => test_snapshot('types'),
    );

    $resolver->read_cpanfile_requirements;
    $resolver->merge_snapshot_versions('add_minimum', 0);

    is $resolver->get_version_range('DateTime'), '1.50';
    is $resolver->get_version_range('JSON::XS'), undef;
    is $resolver->get_version_range('Data::Printer'), undef;
    is $resolver->get_version_range('Test::More'), '0.99';
};

subtest versioned => sub {
    my $resolver = App::CpanfileSlipstop::Resolver->new(
        cpanfile => test_cpanfile('versioned'),
        snapshot => test_snapshot('versioned'),
    );

    $resolver->read_cpanfile_requirements;
    is $resolver->get_version_range('DateTime'), undef;
    is $resolver->get_version_range('JSON::XS'), 3.00;
    is $resolver->get_version_range('Data::Printer'), '== 0.38';
    is $resolver->get_version_range('Test::More'), '> 0.9, < 1.0, != 0.98';

    $resolver->merge_snapshot_versions('add_minimum', 0);
    is $resolver->get_version_range('DateTime'), '1.50';             # inserted installed version as minimum
    is $resolver->get_version_range('JSON::XS'), '3.04';             # updated installed version as minimum
    is $resolver->get_version_range('Data::Printer'), '== 0.38';     # not changed
    is $resolver->get_version_range('Test::More'), '>= 0.99, < 1.0'; # udpate and merged minimum version
};

done_testing;