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 threads::shared conflicts with Storable.
Tokuhiro Matsuno
yappo
kazuhooku
konbuizm
Test::TCP, Test::Fork, Test::MultiFork
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.