[BACK]Return to cachable.t CVS log [TXT] [DIR] Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests

Diff for /embedaddon/lighttpd/tests/cachable.t between versions 1.1.1.1 and 1.1.1.2

version 1.1.1.1, 2013/10/14 10:32:47 version 1.1.1.2, 2016/11/02 10:35:00
Line 8  BEGIN { Line 8  BEGIN {
   
 use strict;  use strict;
 use IO::Socket;  use IO::Socket;
use Test::More tests => 13;use Test::More tests => 25;
 use LightyTest;  use LightyTest;
   
 my $tf = LightyTest->new();  my $tf = LightyTest->new();
Line 116  EOF Line 116  EOF
  );   );
 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];  $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
 ok($tf->handle_http($t) == 0, 'Conditional GET - ETag + disabled etags on server side');  ok($tf->handle_http($t) == 0, 'Conditional GET - ETag + disabled etags on server side');
   
   ###############
   
   ok($etag =~ /^\"(.*)\"$/, "The server must quote ETags");
   
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: $1
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
   ok($tf->handle_http($t) == 0, 'The client must send a quoted ETag');
   
   $etag =~ /^(\".*)\"$/;
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: $1
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
   ok($tf->handle_http($t) == 0, 'The ETag must be surrounded by quotes');
   
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: *
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ];
   ok($tf->handle_http($t) == 0, 'An unquoted star matches any ETag');
   
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: "*"
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
   ok($tf->handle_http($t) == 0, 'A quoted star is just a regular ETag');
   
   TODO: {
           local $TODO = "weak etags not allowed yet";
           $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: W/$etag
   EOF
            );
           $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ];
           ok($tf->handle_http($t) == 0, 'A weak etag matches like a regular ETag for HEAD and GET');
   }
   
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: W/$etag
   Range: bytes=0-0
   EOF
   );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 206, 'HTTP-Content' => '<' } ];
   ok($tf->handle_http($t) == 0, 'A weak etag does not match for ranged requests');
   
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: W/"12345"
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
   ok($tf->handle_http($t) == 0, 'However, a weak ETag is not *');
   
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: "12345", $etag
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ];
   ok($tf->handle_http($t) == 0, 'Client sent a list of ETags, the second matches');
   
   TODO: {
           local $TODO = "weak etags not allowed yet";
           $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: "12345", W/$etag
   EOF
            );
           $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ];
           ok($tf->handle_http($t) == 0, 'The second provided ETag matches weakly');
   }
   
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: "12345",, ,,  ,  $etag
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ];
   ok($tf->handle_http($t) == 0, 'Broken client did get around to sending good data');
   
   $t->{REQUEST}  = ( <<EOF
   GET / HTTP/1.0
   If-None-Match: "1234", $etag, "brokentrailing
   EOF
    );
   $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 304 } ];
   ok($tf->handle_http($t) == 0, 'Bad syntax *after* a matching ETag doesn\'t matter');
   
 ok($tf->stop_proc == 0, "Stopping lighttpd");  ok($tf->stop_proc == 0, "Stopping lighttpd");
   
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>