view release on metacpan or  search on metacpan

t/12-mirror-tree.t  view on Meta::CPAN

use Test2AndUtils;
use File::Temp;
use Git::Raw;
use CPAN::InGit;
use v5.36;

skip_all 'Avoiding queries to public CPAN unless you set TEST_CPAN_INGIT_FETCH_MODULE'
   unless $ENV{TEST_CPAN_INGIT_FETCH_MODULE};

# TEST_CPAN_INGIT_DIR=repo1 prove -lv t/10-init-mirror-of-cpan.t
# TEST_CPAN_INGIT_DIR=repo1 TEST_CPAN_INGIT_FETCH_MODULE=Crypt::DES prove -lv t/11-fetch-dist.t

my $mod= $ENV{TEST_CPAN_INGIT_FETCH_MODULE};
my $repodir= $ENV{TEST_CPAN_INGIT_GIT_DIR}
   // File::Temp->newdir(CLEANUP => $ENV{TEST_CPAN_INGIT_CLEANUP} // 1);
my $git_repo= Git::Raw::Repository->init($repodir, 1); # new bare repo in tmpdir
note "repo at $repodir";

subtest autofetch => sub {
   my $cpan_repo= CPAN::InGit->new(repo => $git_repo);
   my $mirror= $cpan_repo->create_archive_tree('www_cpan_org',