diff options
| author | Dan Fandrich <dan@coneharvesters.com> | 2007-10-27 01:02:57 +0000 |
|---|---|---|
| committer | Dan Fandrich <dan@coneharvesters.com> | 2007-10-27 01:02:57 +0000 |
| commit | 59dccb34b0a0cf839b9dcf7e07c5cd3ab17c1433 (patch) | |
| tree | 1621299c4e98a68760e5649ac3fa1da3505e1e60 | |
| parent | e8057241c699c19ac4d560886dafe99d3ab13909 (diff) | |
| download | gnurl-59dccb34b0a0cf839b9dcf7e07c5cd3ab17c1433.tar.gz gnurl-59dccb34b0a0cf839b9dcf7e07c5cd3ab17c1433.tar.bz2 gnurl-59dccb34b0a0cf839b9dcf7e07c5cd3ab17c1433.zip | |
Made the magic testnumber > 10000 support actually work
| -rw-r--r-- | tests/ftpserver.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 05d5ca68f..02a048f13 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -180,7 +180,7 @@ sub startsf { } } -# remove the file here so that if startsf() fails, it is very noticable +# remove the file here so that if startsf() fails, it is very noticeable unlink($pidfile); startsf(); @@ -340,7 +340,7 @@ sub MDTM_command { my $testpart = ""; if ($testno > 10000) { $testpart = $testno % 10000; - $testno = $testno / 10000; + $testno = int($testno / 10000); } loadtest("$srcdir/data/test$testno"); @@ -367,7 +367,7 @@ sub SIZE_command { my $testpart = ""; if ($testno > 10000) { $testpart = $testno % 10000; - $testno = $testno / 10000; + $testno = int($testno / 10000); } loadtest("$srcdir/data/test$testno"); @@ -393,7 +393,7 @@ sub SIZE_command { } else { $size=0; - @data = getpart("reply", "data" . $testpart); + @data = getpart("reply", "data$testpart"); for(@data) { $size += length($_); } @@ -429,19 +429,19 @@ sub RETR_command { my $testpart = ""; if ($testno > 10000) { $testpart = $testno % 10000; - $testno = $testno / 10000; + $testno = int($testno / 10000); } loadtest("$srcdir/data/test$testno"); - my @data = getpart("reply", "data" . $testpart); + my @data = getpart("reply", "data$testpart"); my $size=0; for(@data) { $size += length($_); } - my %hash = getpartattr("reply", "data" . $testpart); + my %hash = getpartattr("reply", "data$testpart"); if($size || $hash{'sendzero'}) { @@ -546,7 +546,7 @@ sub PASV_command { kill(9, $prev); } - # We fire up a new sockfilt to do the data tranfer for us. + # We fire up a new sockfilt to do the data transfer for us. $slavepid = open2(\*DREAD, \*DWRITE, "./server/sockfilt --port 0 --logfile log/sockdata$ftpdnum$ext.log --pidfile $pidf $ipv6"); @@ -869,7 +869,7 @@ while(1) { sendcontrol "$text\r\n"; } else { - $check=1; # no repsonse yet + $check=1; # no response yet } if($fake eq "") { |