view release on metacpan or  search on metacpan

t/01-cli.t  view on Meta::CPAN

#        releases => \&releases,
#    );
}


use CPAN::Digger::CLI;


subtest recent_in_memory => sub {
    my ($out, $err, $exit) = capture {
        local @ARGV = ('--recent', '2', '--report', '--log', 'OFF');
        CPAN::Digger::CLI::run();
    };

    is $err, '', 'STDERR';
    my $expected_out = path('t/files/recent_in_memory.out')->slurp;
    $out =~ s/^\S+\s+//mg; # remove the dates from each row.
    is $out, $expected_out, 'STDOUT';
    if ($ENV{SAVE}) {
        path('t/files/recent_in_memory.out')->spew($out);
    }