view release on metacpan or  search on metacpan

test/check.pl  view on Meta::CPAN

    die "Cannot run $_[0]: $!\n" if $status == -1;
    exit($status & 127 ? 128 + ($status & 127) : $status >> 8) if $status;
}

chdir $root or die "Cannot enter $root: $!";
run($^X, '-MAnyEvent', '-MPadWalker', '-MPackage::Stash', '-MJSON::PP',
    '-e', 'printf "Perl %s; backend %s\n", $^V, AnyEvent::detect();');
run($^X, '-c', "$root/perl-live.pl");
run($^X, '-c', "$root/perl-live-mcp.pl");
run($^X, '-Ilib', '-c', "$root/lib/AnyEvent/App/PerlLive.pm");
run($^X, '-MTest::Harness=runtests', '-e', 'runtests(@ARGV);', glob 'test/*.t');
run($emacs, '--batch', '-Q', '-l', "$root/test/perl-live-tests.el",
    '-f', 'ert-run-tests-batch-and-exit');
my $encoder = JSON::PP->new->allow_nonref;
my $source = $encoder->encode('perl-live.el');
my $compiled = $encoder->encode("$temporary/perl-live.elc");
run($emacs, '--batch', '-Q', '--eval',
    '(progn (require (quote bytecomp))'
    .' (let ((byte-compile-error-on-warn t)'
    .'       (byte-compile-dest-file-function (lambda (_) '.$compiled.')))'
    .'   (unless (byte-compile-file '.$source.') (kill-emacs 1))))');