1 #!perl -- -*- mode: cperl -*-
6 unless ($exit_message) {
7 if (!$ENV{AUTHOR_TEST}) {
8 $exit_message = "envariable AUTHOR_TEST not set";
13 print "1..0 # SKIP $exit_message\n";
14 eval "require POSIX; 1" and POSIX::_exit(0);
18 use File::Path qw(mkpath);
21 use CPAN::Testers::ParseReport;
22 use Time::HiRes qw(time);
29 my $system = qq{"$^X" "-Ilib" "bin/ctgetreports" "--prefer-local-reports" "--cachedir" "t/var-live" "--solve" "--verbose" "--transport" "http_cpantesters_gzip" "Scriptalicious-1.16" 2>&1};
30 diag "running system='$system'";
32 open my $fh, "-|", $system or die "could not fork: $!";
35 push @reg, $1 if /^Regression '(.+)'/;
37 my $duration = time - $start;
38 @reg = sort @reg; # make it a bit less fragile
40 "conf:archname+osvers fail:t/04-fork.t meta:osname+perl",
41 "found the 'right' top 3 candidates in $duration seconds; (a very fragile test)";
44 unlink "ctgetreports.out";
54 # cperl-indent-level: 4