view release on metacpan or  search on metacpan

t/Util.pm  view on Meta::CPAN

use File::Temp qw/ tempfile /;
use File::Basename qw/ dirname /;
use File::Spec::Functions qw/ catdir updir /;
use DBI;
use POSIX;

our @EXPORT = qw/run_test exit_status_is/;

my $PACKAGE_ROOT_DIR = catdir(dirname(__FILE__), updir());

# thanks to http://cpansearch.perl.org/src/TOKUHIROM/Test-Pretty-0.24/t/Util.pm
sub run_test {
    my ($options) = @_;
    my $preparer = $options->{ preparer };
    my $tests    = $options->{ tests };
    my $includes = $options->{ includes };

    my ($tmp, $filename) = tempfile();
    close $tmp;

    my $pid = fork;