Run this little script:

  use Test::More tests => 10;

  use strict;

  my $pid;
  if ($pid = fork)
  {
      wait;
      ok(1) for 1..10;
  }
  else
  {
      exit;
  }

And note the annoying "# No tests run!" message that gets printed before
the first "ok" message.

I can't think of any really elegant solutions other than adding something
like:

  Test::Builder->reset

and calling that in child processes.


-dave

/*==================
www.urth.org
we await the New Sun
==================*/

Reply via email to