romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-07-30 18:28:08 +03:00
Code Issues Projects Releases Packages Wiki Activity

runtests: turn singletest() into a state machine

Browse source 
This allows it to run in a non-blocking manner.

Ref: #10818
This commit is contained in:
Dan Fandrich 2023-04-28 20:49:28 -07:00
parent a98277fcc7
commit d4a1b5b60c
2 changed files with 208 additions and 138 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tests/runner.pm
View file

@ -1146,12 +1146,13 @@ sub runnerar {
###################################################################
# Returns nonzero if a response from an async call is ready
# argument is 0 for nonblocking, undef for blocking, anything else for timeout
# Called by controller
sub runnerar_ready {
my ($blocking) = @_;
my $rin = "";
vec($rin, fileno($controllerr), 1) = 1;
return select(my $rout=$rin, undef, my $eout=$rin, $blocking ? undef : 0);
return select(my $rout=$rin, undef, my $eout=$rin, $blocking);
}
###################################################################
@ -1184,7 +1185,7 @@ sub ipcrecv {
elsif($funcname eq "runner_shutdown") {
runner_shutdown(@$argsarrayref);
# Special case: no response
return;
return 1;
}
elsif($funcname eq "runner_stopservers") {
@res = runner_stopservers(@$argsarrayref);
@ -1203,6 +1204,8 @@ sub ipcrecv {
$buf = freeze \@res;
syswrite($runnerw, (pack "L", length($buf)) . $buf);
return 0;
}
###################################################################