File Coverage

blib/lib/Test/Mock/Cmd/TestUtils.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	8	14	57.1
path			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	46	57	80.7

package Test::Mock::Cmd::TestUtils;

use strict;
use warnings;

sub do_in_fork {
    my ( $code, @args ) = @_;
    my $pid = fork();
    if ( not defined $pid ) {
        die "Could not fork: $!";
    }
    elsif ( $pid == 0 ) {
        $code->(@args);
        exit 1;
    }
    else {
        waitpid( $pid, 0 );    # parent
    }
}

sub test_more_is_like_return_42 {
    my ( $got, $expected, $name ) = @_;
    ref($expected) eq 'Regexp' ? Test::More::like( $got, $expected, $name ) : Test::More::is( $got, $expected, $name );
    return 42;
}

# use Test::Output; # rt 72976
# The Perl::Critic test failures will go away when this temp workaround goes away
sub tmp_stdout_like_rt_72976 {
    my ( $func, $regex, $name ) = @_;
    my $output = '';
    {
        unlink "tmp.$$.tmp";

        no warnings 'once';
        open OLDOUT, '>&STDOUT' or die "Could not dup STDOUT: $!";    ## no critic
        close STDOUT;

        open STDOUT, '>', "tmp.$$.tmp" or die "Could not redirect STDOUT: $!";

        # \$output does not capture system()
        # open STDOUT, '>', \$output or die "Could not redirect STDOUT: $!";

        $func->();
        open STDOUT, '>&OLDOUT' or die "Could not restore STDOUT: $!";    ## no critic

        open my $fh, '<', "tmp.$$.tmp" or die "Could not open temp file: $!";
        while ( my $line = <$fh> ) {
            $output .= $line;
        }
        close $fh;

        unlink "tmp.$$.tmp";
    }

    # use Data::Dumper;diag(Dumper([$output,$regex,$name]));
    Test::More::like( $output, $regex, $name );
}

1;

__END__