view release on metacpan or  search on metacpan

xt/inject-spiffy-from-cpan.t  view on Meta::CPAN

use OrePAN2::CLI::Inject;

no warnings 'redefine';
*OrePAN2::CLI::Inject::pod2usage = sub { die };

# test case for https://github.com/tokuhirom/OrePAN2/issues/6#issuecomment-21912528
{
    my $url
        = 'http://search.cpan.org/CPAN/authors/id/M/MI/MIYAGAWA/Devel-StackTrace-AsHTML-0.14.tar.gz';
    my $tmpdir = tempdir( CLEANUP => 1 );
    local @ARGV = ( '--text', $url, $tmpdir );
    OrePAN2::CLI::Inject->new->run();
    ok( -f "$tmpdir/authors/id/D/DU/DUMMY/Devel-StackTrace-AsHTML-0.14.tar.gz"
    );
    ok( -f "$tmpdir/modules/02packages.details.txt" );
    my $details = slurp("$tmpdir/modules/02packages.details.txt");
    note $details;
    like $details,
        qr(Devel::StackTrace::AsHTML 0.14                   D/DU/DUMMY/Devel-StackTrace-AsHTML-0.14.tar.gz);
    unlike $details, qr(Module::Install);
}