view release on metacpan or  search on metacpan

t/ctgr-live.t  view on Meta::CPAN

    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};
    diag "running system='$system'";
    my $start = time;
    open my $fh, "-|", $system or die "could not fork: $!";
    my @reg;
    while (<$fh>) {
        warn sprintf "    # %s", $_;
        push @reg, $1 if /^Regression '(.+)'/;
    }
    my $duration = time - $start;
    @reg = sort @reg; # make it a bit less fragile
    is "@reg",
        "conf:archname+osvers fail:t/04-fork.t meta:osname+perl",
        "found the 'right' top 3 candidates in $duration seconds; (a very fragile test)";
}

unlink "ctgetreports.out";

BEGIN {
      plan tests => $plan;
}

__END__