forking subprocesses perl section tests stops prove; test::harness exiting
i have perplexing perl utility/module "prove" exam tag section tests. section tests small some-more "system" "unit" i need flare off credentials processes biased test, controlling following...
sub spinupmonitor{
$base_dir = shift;
$config = shift;
$pid = fork();
if($pid){
relapse $pid;
}else{
$cmd = "$base_dir\/..\/bin\/monitor_real.pl -config $config -test";
tie stdout;
exec ($cmd) die "cannot exec exam formula [$cmd]\n";
}
}
sub killmonitor{
$pid = shift;
imitation "killing guard [$pid]\n";
kill(1,$pid);
}
however reason i have .t record spin adult additional processes causes exam tag hang during finish initial .t record after tests have finished, rather going unbroken file, exiting there wholly one.
at initial i wondered competence since i murdering sub-processes withdrawal defunct. i added..
$sig{chld} = \&reaper;
sub reaper {
$pid = wait;
$sig{chld} = \&reaper;
}
to code. nonetheless doesn't help. fact closed hearing turns out perl exam record exited left slight infer coupling book reaped the child. fact i total die() during finish exam book i got...
# looks your exam died only after 7.
so book exited nonetheless reason tag isn't unraveling.
i endorse unequivocally sub-processes upsetting i noxious while tests unsuccessful tag exited properly.
is there anything i am doing wrong proceed i am starting adult processes competence dissapoint tag way?
thanks
peter
Comments
Post a Comment