moparisthebest
/
curl
mirror of https://github.com/moparisthebest/curl
1
0
Fork 0
Code Issues Releases Wiki Activity

test case 126 added, this uses RETRWEIRDO that makes the FTP server send two 

responses at once, to excerise the part of curl to make sure it can cache
(parts of) responses properly.
This commit is contained in:
Daniel Stenberg 2001-12-03 13:46:56 +00:00
parent 7493db2338
commit 265bb99382
3 changed files with 60 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/data/Makefile.am
View File

@ -14,4 +14,4 @@ test103 test112 test121 test17 test22 test300 test401 test8 \
test104 test113 test122 test18 test23 test301 test402 test9 \
test105 test114 test123 test19 test24 test302 test43 \
test106 test115 test124 test190 test25 test303 test44 \
test107 test116 test125 test2 test26 test33 test45
test107 test116 test125 test2 test26 test33 test45 test126

33
tests/data/test126 Normal file
View File

@ -0,0 +1,33 @@
# Server-side
<reply>
<data>
this is file contents
</data>
</reply>
# Client-side
<client>
<name>
FTP download with multiple replies at once in RETR
</name>
<command>
ftp://%HOSTIP:%FTPPORT/blalbla/lululul/126
</command>
<file name="log/ftpserver.cmd">
RETRWEIRDO
</file>
</test>
# Verify data after the test has been "shot"
<verify>
<protocol>
USER anonymous
PASS curl_by_daniel@haxx.se
PWD
CWD blalbla/lululul
EPSV
TYPE I
SIZE 126
RETR 126
</protocol>
</verify>

33
tests/ftpserver.pl
View File

@ -26,6 +26,7 @@ sub logmsg { print FTPLOG "$$: "; print FTPLOG @_; }
sub ftpmsg { print INPUT @_; }
my $verbose=0; # set to 1 for debugging
my $retrweirdo=0;
my $port = 8921; # just a default
do {
@ -226,16 +227,30 @@ sub RETR_command {
logmsg "REST $rest was removed from size, makes $size left\n";
$rest = 0; # reset REST offset again
}
print "150 Binary data connection for $testno () ($size bytes).\r\n";
logmsg "150 Binary data connection for $testno ($size bytes).\n";
if($retrweirdo) {
print "150 Binary data connection for $testno () ($size bytes).\r\n",
"226 File transfer complete\r\n";
logmsg "150+226 in one shot!\n";
for(@data) {
my $send = $_;
print SOCK $send;
for(@data) {
my $send = $_;
print SOCK $send;
}
close(SOCK);
$retrweirdo=0; # switch off the weirdo again!
}
close(SOCK);
else {
print "150 Binary data connection for $testno () ($size bytes).\r\n";
logmsg "150 Binary data connection for $testno ($size bytes).\n";
print "226 File transfer complete\r\n";
for(@data) {
my $send = $_;
print SOCK $send;
}
close(SOCK);
print "226 File transfer complete\r\n";
}
}
else {
print "550 $testno: No such file or directory.\r\n";
@ -367,6 +382,10 @@ sub customize {
elsif($_ =~ /DELAY ([A-Z]+) (\d*)/) {
$delayreply{$1}=$2;
}
elsif($_ =~ /RETRWEIRDO/) {
print "instructed to use RETRWEIRDO\n";
$retrweirdo=1;
}
}
close(CUSTOM);
}