view release on metacpan or  search on metacpan

utils/create_gold  view on Meta::CPAN

sub run_test_in_child ($test) {
  my $e    = "t/e2e";
  my $file = (grep -e, "$e/$test", "$e/a$test.t")[0] // $test;
  say "creating golden results for $test: ";
  my $pid = fork // die "Can't fork";
  if ($pid) {
    waitpid $pid, 0;
  } else {
    no warnings "redefine";
    local *Devel::Cover::Test::run_test = sub { };
    my $t = require "./$file" or die "Can't require $file: $!";
    $t->create_gold and say "";
    exit;
  }
}

sub main {
  if ($Config{useithreads}) {
    say "useithreads true, exiting";
    return;
  }