view release on metacpan or  search on metacpan

t/001-opts.t  view on Meta::CPAN

ok($fmake, "Perl 5 \%Config identified '$fmake' for 'make'");
$args{verbose} = undef;

my @cl_opts = (
    "--verbose",
    "--last_before" => '12345ab',
    "--gitdir" => $ptg,
    "--last" => '67890ab',
);
{
    local @ARGV = (@cl_opts);
    ($stdout, @result) = capture_stdout {process_options(%args);};
    like($stdout, qr/Command-line arguments:/s,
        "Got expected verbose output with 'verbose' on command-line");
}

done_testing();