view release on metacpan or  search on metacpan

t/010_core/setup_options.t  view on Meta::CPAN

use Module::Setup::Test::Utils;
use Test::Base;

plan tests => 2 * blocks;

filters { input => [qw/lines chomp/], argv => [qw/lines chomp array/], options => 'yaml' };

run {
    my $block = shift;

    local @ARGV = $block->input;
    my $self = Module::Setup->new->setup_options;
    my $options = {
        target             => undef,
        plugins            => undef,
        direct             => undef,
        module_setup_dir   => undef,
        flavor_class       => undef,
        pack               => undef,
        flavor             => undef,
        init               => undef,

t/010_core/setup_options_code.t  view on Meta::CPAN

    *CORE::GLOBAL::exit = sub {};
}
use Module::Setup::Test::Utils;
use Test::More tests => 5;
use IO::Scalar;

sub run_setup (@) {
    my $out_re = shift;
    my $err_re = shift;

    local @ARGV = @_;
    my $out;
    my $err;
    tie *STDOUT, 'IO::Scalar', \$out;
    tie *STDERR, 'IO::Scalar', \$err;
    Module::Setup->new->setup_options;
    untie *STDOUT;
    untie *STDERR;

    like $out, $out_re if $out_re;
    like $err, $err_re if $err_re;