On Sun, Apr 28, 2002 at 02:23:11PM -0500, Dave Rolsky wrote:
> I can't think of any really elegant solutions other than adding something
> like:
>
> Test::Builder->reset
>
> and calling that in child processes.
Test::Builder->no_ending(1);
use Test::More tests => 10;
my $TB = Test::More->builder;
use strict;
my $pid;
if ($pid = fork)
{
wait;
pass for 1..10;
}
else
{
$TB->no_ending(1);
exit;
}
Not particulary imaginative, but it works. I don't deal much with forking
so my brane isn't wired to think that way.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
"Let's face it," said bearded Rusty Simmons, opening a can after the
race. "This is a good excuse to drink some beer." At 10:30 in the
morning? "Well, it's past noon in Dublin," said teammate Mike
[Joseph] Schwern. "It's our duty."
-- "Sure, and It's a Great Day for Irish Runners"
Newsday, Sunday, March 20, 1988
