mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-21 01:16:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

ftpserver.pl: Introduced common method for getting a test's reply data

Browse Source
This commit is contained in:
Steve Holme 2014-03-29 10:29:03 +00:00
parent fe260b75e7
commit 3a29ee41ef
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/ftpserver.pl
View File

@ -436,6 +436,25 @@ sub startsf {
}
}
#**********************************************************************
# Returns the given test's reply data
#
sub getreplydata {
my ($testno) = @_;
my $testpart = "";
$testno =~ s/^([^0-9]*)//
if($testno > 10000) {
$testpart = $testno % 10000;
$testno = int($testno / 10000);
}
loadtest("$srcdir/data/test$testno");
my @data = getpart("reply", "data$testpart");
return @data;
}
sub sockfilt {
my $l;
@ -445,7 +464,6 @@ sub sockfilt {
}
}
sub sockfiltsecondary {
my $l;
foreach $l (@_) {
@ -454,10 +472,10 @@ sub sockfiltsecondary {
}
}
#**********************************************************************
# Send data to the client on the control stream, which happens to be plain
# stdout.
#
sub sendcontrol {
if(!$ctrldelay) {
# spit it all out at once