view release on metacpan or  search on metacpan

t/commons.pl  view on Meta::CPAN

    my $expected = shift;
    return msgcmd (@_) . ($expected ? "\nGot:\n$expected" : '');
}

# -----------------------------------------------------------------
# Call the main subroutine and return its STDOUT and STDERR. Hack:
# ignore STDERR if it has a very specific string (it is done to avoid
# exit(0) in the tested script.
# -----------------------------------------------------------------
sub my_run {
    local @ARGV = @_;
    my ($stdout, $stderr);
    eval {
        capture { App::combinesheets->run() } \$stdout, \$stderr;
    };
    if ($@) {
        return ($stdout, $stderr) if $@ eq "Okay\n";
        $stderr .= $@ if $@;
    }
    return ($stdout, $stderr);
}