More tests

This commit is contained in:
Sergey Lyubka 2012-07-27 06:24:11 +01:00
parent 0b4676b711
commit da75a62a32
3 changed files with 17 additions and 5 deletions

View File

@ -21,8 +21,6 @@ foreach my $key (sort keys %in) {
print "\n";
#sleep 10;
print 'CURRENT_DIR=' . getcwd() . "\n";
print "</pre>\n";
@ -43,8 +41,6 @@ my $stuff = <<EOP ;
</form>
EOP
system('some shit');
#print STDERR "fuck!!!\n\n";
#system('some shit');
print $stuff;

View File

@ -339,6 +339,11 @@ unless (scalar(@ARGV) > 0 and $ARGV[0] eq "basic_tests") {
o("GET /hello.txt HTTP/1.0\nAuthorization: $auth_header\n\n", 'HTTP/1.1 200 OK', 'GET regular file with auth');
unlink "$root/.htpasswd";
my $x = 'x=' . 'A' x (200 * 1024);
my $len = length($x);
o("POST /env.cgi HTTP/1.0\r\nContent-Length: $len\r\n\r\n$x",
'^HTTP/1.1 200 OK', 'Long POST');
o("GET /env.cgi HTTP/1.0\n\r\n", 'HTTP/1.1 200 OK', 'GET CGI file');
o("GET /bad2.cgi HTTP/1.0\n\n", "HTTP/1.1 123 Please pass me to the client\r",
'CGI Status code text');

View File

@ -11,6 +11,7 @@ static void test_parse_http_request() {
char req1[] = "GET / HTTP/1.1\r\n\r\n";
char req2[] = "BLAH / HTTP/1.1\r\n\r\n";
char req3[] = "GET / HTTP/1.1\r\nBah\r\n";
char req4[] = "GET / HTTP/1.1\r\nA: foo bar\r\nB: bar\r\nbaz\r\n\r\n";
ASSERT(parse_http_request(req1, &ri) == 1);
ASSERT(strcmp(ri.http_version, "1.1") == 0);
@ -23,6 +24,16 @@ static void test_parse_http_request() {
ASSERT(ri.num_headers == 1);
ASSERT(strcmp(ri.http_headers[0].name, "Bah\r\n") == 0);
// TODO(lsm): Fix this. Header value may span multiple lines.
ASSERT(parse_http_request(req4, &ri) == 1);
ASSERT(ri.num_headers == 3);
ASSERT(strcmp(ri.http_headers[0].name, "A") == 0);
ASSERT(strcmp(ri.http_headers[0].value, "foo bar") == 0);
ASSERT(strcmp(ri.http_headers[1].name, "B") == 0);
ASSERT(strcmp(ri.http_headers[1].value, "bar") == 0);
ASSERT(strcmp(ri.http_headers[2].name, "baz\r\n\r\n") == 0);
ASSERT(strcmp(ri.http_headers[2].value, "") == 0);
// TODO(lsm): add more tests.
}