view release on metacpan or  search on metacpan

t/configfile.t  view on Meta::CPAN

    input_options => {
        foo => 'bar',
    },
});
close($fh);

use_ok 'Message::Passing';

my $i;
{
    local @ARGV = ('--configfile', $path);
    $i = Message::Passing->new_with_options;
}

ok $i;
is $i->input, 'Null';
is $i->output, 'Test';
is_deeply $i->input_options, {
        foo => 'bar',
    };