Test::SharedFork - fork test
use Test::More tests => 200;
use Test::SharedFork;
my $pid = fork();
if ($pid == 0) {
# child
ok 1, "child $_" for 1..100;
} elsif ($pid) {
# parent
ok 1, "parent $_" for 1..100;
waitpid($pid, 0);
} else {
die $!;
}
Test::SharedFork is utility module for Test::Builder.
This module makes fork(2) safety in your test case.
This module merges test count with parent process & child process.
This version of the Test::SharedFork does not support ithreads, because the threads::shared manpage conflicts with Storable.
Tokuhiro Matsuno <tokuhirom slkjfd gmail.com>
yappo
kazuhooku
konbuizm
the Test::TCP manpage, the Test::Fork manpage, the Test::MultiFork manpage
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
|