|
gap> d := DirectoryCurrent();;
gap> scriptdir := DirectoriesLibrary( "tst/teststandard/processes/" );;
gap> checkpl := Filename(scriptdir, "check.pl");;
# If IO is loaded, disable its signal handler
gap> if IsBoundGlobal("IO_RestoreSIGCHLDHandler") then
> ValueGlobal("IO_RestoreSIGCHLDHandler")();
> fi;
gap> runChild := function(ms, ignoresignals)
> local signal;
> if ignoresignals then signal := "1"; else signal := "0"; fi;
> return InputOutputLocalProcess(d, checkpl, [ String(time), signal]);
> end;;
gap> reps:=200;;
gap> if ARCH_IS_WINDOWS() then reps:=0; fi; # FIXME: this test is too slow under windows
gap> if IsHPCGAP then reps:=0; fi; # FIXME: this test is broken in HPC-GAP
gap> for i in [1..reps] do
> children := List([1..20], x -> runChild(Random(1,2000), Random([false,true])));;
> if ForAny(children, x -> x=fail) then Print("Failed producing child\n"); fi;
> Perform(children, CloseStream);
> od;
[ Dauer der Verarbeitung: 0.26 Sekunden
(vorverarbeitet)
]
|
