|
gap> START_TEST("timeout.tst");
gap> spinFor := function(ms, arg...) local t;
> t := NanosecondsSinceEpoch() / 1000;
> while NanosecondsSinceEpoch() / 1000 < t + ms do od;
> if Length(arg) >= 1
> then return arg[1]; else return; fi; end;
function( ms, arg... ) ... end
gap> spinFor(10);
gap> spinFor(10,0);
0
gap> IO_CallWithTimeout(50000,spinFor,1);
[ true ]
gap> IO_CallWithTimeout(5000,spinFor,50000);
[ false ]
gap> IO_CallWithTimeout(50000,spinFor,1,1);
[ true, 1 ]
gap> IO_CallWithTimeoutList(50000,spinFor,[1,1]);
[ true, 1 ]
gap> IO_CallWithTimeoutList(5000,spinFor,[50000,1]);
[ false ]
gap> IO_CallWithTimeoutList(50000,spinFor,[1]);
[ true ]
gap> STOP_TEST( "timeout.tst", 640000);
[ Dauer der Verarbeitung: 0.29 Sekunden
(vorverarbeitet)
]
|
