romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-04-15 04:21:42 +03:00
Code Issues Projects Releases Packages Wiki Activity

improved functionality for new timeout tests

Browse source
This commit is contained in:
Daniel Stenberg 2001-11-02 23:09:25 +00:00
parent f34573c8e2
commit 3bfa06c9a2
3 changed files with 38 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
tests/httpserver.pl
View file

@ -50,6 +50,16 @@ sub REAPER {
logmsg "reaped $waitedpid" . ($? ? " with exit $?" : '');
}
sub performcmd {
my @cmd = @_;
for(@cmd) {
if($_ =~ /^ *wait *(\d*)/) {
# instructed to sleep!
sleep($1);
}
}
}
$SIG{CHLD} = \&REAPER;
for ( $waitedpid = 0;
@ -164,6 +174,14 @@ for ( $waitedpid = 0;
}
loadtest("data/test$testnum");
my @cmd = getpart("reply", "cmd");
performcmd(@cmd);
# flush data:
$| = 1;
# send a custom reply to the client
my @data = getpart("reply", "data$part");
for(@data) {
@ -172,6 +190,8 @@ for ( $waitedpid = 0;
print STDERR "OUT: $_";
}
}
my @postcmd = getpart("reply", "postcmd");
performcmd(@postcmd);
}
}
# print "Hello there, $name, it's now ", scalar localtime, "\r\n";