mirror of https://github.com/moparisthebest/curl
initial checkin
This commit is contained in:
Daniel Stenberg
parent
172f0ba12d
commit
3c0194bb72
|
|
@ -0,0 +1,7 @@
|
|||
|
||||
test:
|
||||
./runtests.sh
|
||||
|
||||
clean:
|
||||
rm -rf log
|
||||
find . -name "*~" | xargs rm -f
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
|
||||
Describe the test stuff
|
||||
|
||||
Requires:
|
||||
perl, sh
|
||||
|
||||
Run:
|
||||
(should be) 'make test'
|
||||
|
||||
Logs:
|
||||
All logs are generated in the logs/ subdirctory (it is emtpied first
|
||||
in the runtests.sh script)
|
||||
|
||||
Data:
|
||||
All test-data are put in the data/ subdirctory. Further descriptions on
|
||||
the data format must be added here.
|
||||
|
|
@ -0,0 +1,177 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# runserv.pl - run a dumb tcp server on a port for the curl test suite
|
||||
# derived from 'ftproxy' by Björn Stenberg/Linus Nielsen that was
|
||||
# derived from "fwdport.pl" by Tom Christiansen
|
||||
|
||||
use FileHandle;
|
||||
use Net::hostent; # Example 17-8 # by-name interface for host info
|
||||
use IO::Socket; # for creating server and client sockets
|
||||
use POSIX ":sys_wait_h"; # for reaping our dead children
|
||||
|
||||
my $localip = $ARGV[0];
|
||||
my $localport = $ARGV[1];
|
||||
|
||||
if(($localip eq "") ||
|
||||
($localport eq "")) {
|
||||
print "Usage: runserv.pl <ip> <port>\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
my (
|
||||
%Children, # hash of outstanding child processes
|
||||
$proxy_server, # the socket we accept() from
|
||||
$ME, # basename of this program
|
||||
);
|
||||
|
||||
($ME = $0) =~ s,.*/,,; # retain just basename of script name
|
||||
|
||||
start_server(); # launch our own server
|
||||
service_clients(); # wait for incoming
|
||||
print "[TCP server exited]\n";
|
||||
exit;
|
||||
|
||||
# begin our server
|
||||
sub start_server {
|
||||
$proxy_server = IO::Socket::INET->new(Listen => 5,
|
||||
LocalAddr => $localip,
|
||||
LocalPort => $localport,
|
||||
Proto => 'tcp',
|
||||
Reuse => 1)
|
||||
or die "can't open socket";
|
||||
|
||||
# print "[TCP server initialized";
|
||||
# print " on " . $proxy_server->sockhost() . ":" .
|
||||
# $proxy_server->sockport() . "]\n";
|
||||
}
|
||||
|
||||
sub service_clients {
|
||||
my (
|
||||
$local_client, # someone internal wanting out
|
||||
$lc_info, # local client's name/port information
|
||||
@rs_config, # temp array for remote socket options
|
||||
$rs_info, # remote server's name/port information
|
||||
$kidpid, # spawned child for each connection
|
||||
$file,
|
||||
$request,
|
||||
@headers
|
||||
);
|
||||
|
||||
$SIG{CHLD} = \&REAPER; # harvest the moribund
|
||||
|
||||
# print "Listening...\n";
|
||||
|
||||
while ($local_client = $proxy_server->accept()) {
|
||||
$lc_info = peerinfo($local_client);
|
||||
printf "[Connect from $lc_info]\n";
|
||||
|
||||
$kidpid = fork();
|
||||
die "Cannot fork" unless defined $kidpid;
|
||||
if ($kidpid) {
|
||||
$Children{$kidpid} = time(); # remember his start time
|
||||
close $local_client; # likewise
|
||||
next; # go get another client
|
||||
}
|
||||
|
||||
# now, read the data from the client
|
||||
# and pass back what we want it to have
|
||||
|
||||
undef $request;
|
||||
undef $path;
|
||||
undef $ver;
|
||||
undef @headers;
|
||||
$cl=0;
|
||||
$left=0;
|
||||
while(<$local_client>) {
|
||||
if($_ =~ /(GET|POST|HEAD) (.*) HTTP\/1.(\d)/) {
|
||||
$request=$1;
|
||||
$path=$2;
|
||||
$ver=$3;
|
||||
}
|
||||
elsif($_ =~ /^Content-Length: (\d*)/) {
|
||||
$cl=$1;
|
||||
}
|
||||
# print "RCV: $_";
|
||||
|
||||
push @headers, $_;
|
||||
|
||||
if($left > 0) {
|
||||
$left -= length($_);
|
||||
}
|
||||
|
||||
if(($_ eq "\r\n") or ($_ eq "")) {
|
||||
if($request eq "POST") {
|
||||
$left=$cl;
|
||||
}
|
||||
else {
|
||||
$left = -1; # force abort
|
||||
}
|
||||
}
|
||||
if($left < 0) {
|
||||
last;
|
||||
}
|
||||
}
|
||||
# print "Request: $request\n",
|
||||
# "Path: $path\n",
|
||||
# "Version: $ver\n";
|
||||
|
||||
#
|
||||
# we always start the path with a number, this is the
|
||||
# test number that this server will use to know what
|
||||
# contents to pass back to the client
|
||||
#
|
||||
if($path =~ /^\/(\d*)/) {
|
||||
$testnum=$1;
|
||||
}
|
||||
else {
|
||||
print "UKNOWN TEST CASE\n";
|
||||
exit;
|
||||
}
|
||||
open(INPUT, ">log/server.input");
|
||||
for(@headers) {
|
||||
print INPUT $_;
|
||||
}
|
||||
close(INPUT);
|
||||
|
||||
|
||||
# send a reply to the client
|
||||
open(DATA, "<data/reply$testnum.txt");
|
||||
while(<DATA>) {
|
||||
print $local_client $_;
|
||||
}
|
||||
close(DATA);
|
||||
|
||||
exit; # whoever's still alive bites it
|
||||
}
|
||||
}
|
||||
|
||||
# helper function to produce a nice string in the form HOST:PORT
|
||||
sub peerinfo {
|
||||
my $sock = shift;
|
||||
my $hostinfo = gethostbyaddr($sock->peeraddr);
|
||||
return sprintf("%s:%s",
|
||||
$hostinfo->name || $sock->peerhost,
|
||||
$sock->peerport);
|
||||
}
|
||||
|
||||
# somebody just died. keep harvesting the dead until
|
||||
# we run out of them. check how long they ran.
|
||||
sub REAPER {
|
||||
my $child;
|
||||
my $start;
|
||||
while (($child = waitpid(-1,WNOHANG)) > 0) {
|
||||
if ($start = $Children{$child}) {
|
||||
my $runtime = time() - $start;
|
||||
# printf "Child $child ran %dm%ss\n",
|
||||
# $runtime / 60, $runtime % 60;
|
||||
delete $Children{$child};
|
||||
} else {
|
||||
# print "Unknown child process $child exited $?\n";
|
||||
}
|
||||
}
|
||||
# If I had to choose between System V and 4.2, I'd resign. --Peter Honeyman
|
||||
$SIG{CHLD} = \&REAPER;
|
||||
};
|
||||
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,156 @@
|
|||
#!/bin/sh
|
||||
#
|
||||
# Main curl test script
|
||||
#
|
||||
#######################################################################
|
||||
# These should be the only variables that might be needed to get edited:
|
||||
|
||||
HOSTIP=127.0.0.1
|
||||
HOSTPORT=8999
|
||||
CURL=../src/curl
|
||||
LOGDIR=log
|
||||
SERVERIN=$LOGDIR/server.input
|
||||
CURLOUT=$LOGDIR/curl.out
|
||||
NC=nc
|
||||
|
||||
# Normally, all test cases should be run, but at times it is handy to
|
||||
# simply run a particular one:
|
||||
TESTCASES=" 1 2 3 4"
|
||||
|
||||
|
||||
compare () {
|
||||
# filter off the $4 pattern before compare!
|
||||
|
||||
first="$1"
|
||||
sec="$2"
|
||||
text="$3"
|
||||
strip="$4"
|
||||
|
||||
if test -n "$strip"; then
|
||||
egrep -v "$strip" < $first > $LOGDIR/generated.tmp
|
||||
egrep -v "$strip" < $sec > $LOGDIR/stored.tmp
|
||||
|
||||
first="$LOGDIR/generated.tmp"
|
||||
sec="$LOGDIR/stored.tmp"
|
||||
fi
|
||||
|
||||
cmp $first $sec
|
||||
if [ $? != "0" ]; then
|
||||
echo " $text FAILED"
|
||||
return 1
|
||||
else
|
||||
echo " $text OK"
|
||||
return 0
|
||||
fi
|
||||
}
|
||||
|
||||
singletest ()
|
||||
{
|
||||
NUMBER="$1"
|
||||
|
||||
REPLY=data/reply$NUMBER.txt
|
||||
CURLCMD=data/command$NUMBER.txt
|
||||
HTTP=data/http$NUMBER.txt
|
||||
DESC=`cat data/name$NUMBER.txt | tr -d '\012'`
|
||||
|
||||
echo "test $NUMBER... [$DESC]"
|
||||
|
||||
./runserv.pl $HOSTIP $HOSTPORT &
|
||||
|
||||
sleep 1
|
||||
|
||||
# get the command line options to use
|
||||
cmd=`sed -e "s/%HOSTIP/$HOSTIP/g" -e "s/%HOSTPORT/$HOSTPORT/g" <$CURLCMD `
|
||||
|
||||
# run curl
|
||||
CMDLINE="$CURL -o $CURLOUT -i --silent $cmd"
|
||||
|
||||
# we do it the eval way to deal with quotes and similar stuff
|
||||
eval $CMDLINE
|
||||
|
||||
if test -n "$verbose"; then
|
||||
echo "$CMDLINE"
|
||||
fi
|
||||
|
||||
if [ $? != "0" ]; then
|
||||
echo "Failed to invoke curl for test $NUMBER"
|
||||
else
|
||||
# when curl is done, the server has closed down as well
|
||||
|
||||
# verify the received data
|
||||
compare $CURLOUT $REPLY " fetch"
|
||||
|
||||
if [ $? != "0" ]; then
|
||||
exit;
|
||||
fi
|
||||
|
||||
# verify the sent request
|
||||
compare $SERVERIN $HTTP " command" "User-Agent:"
|
||||
|
||||
if [ $? != "0" ]; then
|
||||
exit;
|
||||
fi
|
||||
fi
|
||||
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
#######################################################################
|
||||
# Check options to this test program
|
||||
#
|
||||
|
||||
if test "$1" = "-v"; then
|
||||
verbose="1"
|
||||
fi
|
||||
|
||||
if test -n "$NEWSETUP"; then
|
||||
|
||||
#######################################################################
|
||||
# Make sure the Host: lines are correct for this setup
|
||||
#
|
||||
|
||||
HOST="$HOSTIP:$HOSTPORT"
|
||||
for test in data/http*.txt; do
|
||||
sed -e "s/Host: \([0-9.:]*\)/Host: $HOST/g" < $test > $test.tmp
|
||||
mv $test.tmp $test
|
||||
done
|
||||
fi
|
||||
|
||||
#######################################################################
|
||||
# Output curl version being tested
|
||||
#
|
||||
VERSION=`$CURL -V`
|
||||
|
||||
echo "Running tests on:"
|
||||
echo $VERSION
|
||||
echo ""
|
||||
|
||||
#######################################################################
|
||||
# remove and recreate logging directory:
|
||||
#
|
||||
rm -rf $LOGDIR
|
||||
mkdir $LOGDIR
|
||||
|
||||
#######################################################################
|
||||
# First, start the TCP server
|
||||
#
|
||||
#./runserv.pl $HOSTIP $HOSTPORT &
|
||||
|
||||
#if [ $? != "0" ]; then
|
||||
# echo "failed starting the TCP server"
|
||||
# exit
|
||||
#fi
|
||||
|
||||
#sleep 1 # give it a second to start
|
||||
|
||||
#######################################################################
|
||||
# The main test-loop
|
||||
#
|
||||
|
||||
for NUMBER in $TESTCASES; do
|
||||
|
||||
singletest $NUMBER
|
||||
|
||||
# loop for next test
|
||||
done
|
||||
Loading…
Reference in New Issue