view sub_filter_buffering.t @ 1021:ebdf239722b9

Tests: relaxed proxy_cache_lock.t nolock tests to fix on Solaris. Assumed that the order of responses being arrived in nolock case may be ignored. An important part of such case is that the only last response should be cached.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 02 Sep 2016 12:17:35 +0300
parents e17ffab3febc
children efccab043dd3
line wrap: on
line source

#!/usr/bin/perl

# (C) Andrey Zelenkov
# (C) Nginx, Inc.

# Tests for sub_filter buffering.

###############################################################################

use warnings;
use strict;

use Test::More;

use Socket qw/ CRLF /;

BEGIN { use FindBin; chdir($FindBin::Bin); }

use lib 'lib';
use Test::Nginx;

###############################################################################

select STDERR; $| = 1;
select STDOUT; $| = 1;

my $t = Test::Nginx->new()->has(qw/http sub/)->plan(2)
	->write_file_expand('nginx.conf', <<'EOF');

%%TEST_GLOBALS%%

daemon off;

events {
}

http {
    %%TEST_GLOBALS_HTTP%%

    server {
        listen       127.0.0.1:8080;
        server_name  localhost;

        proxy_buffering off;
        proxy_http_version 1.1;

        sub_filter_types *;

        location /partial {
            proxy_pass http://127.0.0.1:8081;
            sub_filter za ZA;
        }

        location /negative {
            proxy_pass http://127.0.0.1:8081;
            sub_filter ab AB;
        }
    }
}

EOF

$t->run_daemon(\&http_daemon);
$t->run()->waitforsocket('127.0.0.1:' . port(8081));

###############################################################################

# partial match: the last byte matching pattern is buffered

like(http_get('/partial'), qr/xy$/, 'partial match');

# no partial match: an entire buffer is sent as is without buffering

TODO: {
local $TODO = 'not yet' unless $t->has_version('1.11.2');

like(http_get('/negative'), qr/xyz/, 'negative match');

}

###############################################################################

sub http_daemon {
	my $server = IO::Socket::INET->new(
		Proto => 'tcp',
		LocalHost => '127.0.0.1:' . port(8081),
		Listen => 5,
		Reuse => 1
	)
		or die "Can't create listening socket: $!\n";

	local $SIG{PIPE} = 'IGNORE';

	while (my $client = $server->accept()) {
		$client->autoflush(1);

		while (<$client>) {
			last if /^\x0d?\x0a?$/;
		}

		print $client
			"HTTP/1.1 200 OK" . CRLF .
			"Content-Length: 10" . CRLF . CRLF .
			"xyz";
	}
}