tests/core-response.t

   1 #!/usr/bin/env perl
   2 BEGIN {
   3         # add current source dir to the include-path
   4         # we need this for make distcheck
   5         (my $srcdir = $0) =~ s,/[^/]+$,/,;
   6         unshift @INC, $srcdir;
   7 }
   8
   9 use strict;
  10 use IO::Socket;
  11 use Test::More tests => 14;
  12 use LightyTest;
  13
  14 my $tf = LightyTest->new();
  15 my $t;
  16
  17 ok($tf->start_proc == 0, "Starting lighttpd") or die();
  18
  19 ## Low-Level Response-Header Parsing - HTTP/1.1
  20
  21 $t->{REQUEST}  = ( <<EOF
  22 GET / HTTP/1.1
  23 Host: www.example.org
  24 Connection: close
  25 EOF
  26  );
  27 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.1', 'HTTP-Status' => 200, '+Date' => '' } ];
  28 ok($tf->handle_http($t) == 0, 'Date header');
  29
  30 $t->{REQUEST}  = ( <<EOF
  31 GET / HTTP/1.1
  32 EOF
  33  );
  34 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.1', 'HTTP-Status' => 400, 'Connection' => 'close' } ];
  35 ok($tf->handle_http($t) == 0, 'Host missing');
  36
  37 $t->{REQUEST}  = ( <<EOF
  38 GET / HTTP/1.0
  39 EOF
  40  );
  41 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+ETag' => '' } ];
  42 ok($tf->handle_http($t) == 0, 'ETag is set');
  43
  44 $t->{REQUEST}  = ( <<EOF
  45 GET / HTTP/1.0
  46 EOF
  47  );
  48 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'ETag' => '/^".+"$/' } ];
  49 ok($tf->handle_http($t) == 0, 'ETag has quotes');
  50
  51
  52
  53 ## Low-Level Response-Header Parsing - Content-Length
  54
  55
  56 $t->{REQUEST}  = ( <<EOF
  57 GET /12345.html HTTP/1.0
  58 Host: 123.example.org
  59 EOF
  60  );
  61 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Length' => '6' } ];
  62 ok($tf->handle_http($t) == 0, 'Content-Length for text/html');
  63
  64 $t->{REQUEST}  = ( <<EOF
  65 GET /12345.txt HTTP/1.0
  66 Host: 123.example.org
  67 EOF
  68  );
  69 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Length' => '6' } ];
  70 ok($tf->handle_http($t) == 0, 'Content-Length for text/plain');
  71
  72
  73 ## Low-Level Response-Header Parsing - Location
  74
  75 $t->{REQUEST}  = ( <<EOF
  76 GET /dummydir HTTP/1.0
  77 EOF
  78  );
  79 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 301, 'Location' => 'http://'.$tf->{HOSTNAME}.':'.$tf->{PORT}.'/dummydir/' } ];
  80 ok($tf->handle_http($t) == 0, 'internal redirect in directory');
  81
  82 $t->{REQUEST}  = ( <<EOF
  83 GET /dummydir?foo HTTP/1.0
  84 EOF
  85  );
  86 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 301, 'Location' => 'http://'.$tf->{HOSTNAME}.':'.$tf->{PORT}.'/dummydir/?foo' } ];
  87 ok($tf->handle_http($t) == 0, 'internal redirect in directory + querystring');
  88
  89 $t->{REQUEST}  = ( <<EOF
  90 GET /~test%20ä_ HTTP/1.0
  91 EOF
  92  );
  93 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 301, 'Location' => 'http://'.$tf->{HOSTNAME}.':'.$tf->{PORT}.'/~test%20%c3%a4_/' } ];
  94 ok($tf->handle_http($t) == 0, 'internal redirect in directory with special characters');
  95
  96 $t->{REQUEST}  = ( <<EOF
  97 GET /~test%20ä_?foo HTTP/1.0
  98 EOF
  99  );
 100 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 301, 'Location' => 'http://'.$tf->{HOSTNAME}.':'.$tf->{PORT}.'/~test%20%c3%a4_/?foo' } ];
 101 ok($tf->handle_http($t) == 0, 'internal redirect in directory with special characters + querystring');
 102
 103 ## simple-vhost
 104
 105 $t->{REQUEST}  = ( <<EOF
 106 GET /12345.txt HTTP/1.0
 107 Host: no-simple.example.org
 108 EOF
 109  );
 110 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, 'Content-Length' => '6' } ];
 111 ok($tf->handle_http($t) == 0, 'disabling simple-vhost via conditionals');
 112
 113 $t->{REQUEST}  = ( <<EOF
 114 GET /12345.txt HTTP/1.0
 115 Host: simple.example.org
 116 EOF
 117  );
 118 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 404 } ];
 119 ok($tf->handle_http($t) == 0, 'simple-vhost via conditionals');
 120
 121 ok($tf->stop_proc == 0, "Stopping lighttpd");
 122