view release on metacpan or  search on metacpan

t/retropan.t  view on Meta::CPAN

    ($author, $dist, $url) = App::RetroPAN::find_module_on_date("Class::C3", "2011-01-01T00:00:00");
    is($dist, "Class-C3-0.23");
    is($author, "FLORA");

    ($author, $dist, $url) = App::RetroPAN::find_module_on_date("DBI", "2015-01-01T00:00:00");
    is($dist, "DBI-1.632");
    is($author, "TIMB");

    my @deps = App::RetroPAN::find_module_dependencies("DROLSKY", "Moose-1.21");
    is_deeply(\@deps, [qw/ Test::Requires Test::Fatal Params::Util Data::OptList Sub::Name Class::MOP Task::Weaken Try::Tiny Package::DeprecationManager List::MoreUtils Sub::Exporter /]);

    my ($dists_required, $dist_to_url) = App::RetroPAN::find_deps_on_date("2011-01-01T00:00:00", "Moose");
    isa_ok($dist_to_url, 'HASH');

    {
        local $TODO = "B::Debug was removed from core" if ($^V ge v5.30.0);
        is_deeply($dists_required, [qw|
            CHOCOLATE/Scope-Guard-0.20
            FLORA/Devel-GlobalDestruction-0.03
            DOY/Package-Stash-0.13