view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

use Cwd;
use File'Slurp 'read_file';
use File'Spec'Functions 'catfile';
use File'Temp"tempdir";
use Probe'Perl;
use URI'file;

$perl = find_perl_interpreter Probe'Perl;

# Helper functions
sub ls($) {
 opendir my $dir, $_[0] or die "Can’t opendir $_[0]: $!";
 my @list = grep !/^\./, readdir $dir;
 closedir $dir or die "Can’t closedir $_[0]: $!";
 @list;
}

sub run {
 open FH, '-|', $perl, '-s', @_ or die "Can’t run $perl @_: $!";
 ()=<FH>;
 close FH or die "Can’t close $perl @_: $!";