Mercurial > hg > nginx-tests
view stream_split_clients.t @ 1477:8b122b35703b
Tests: fixed session reuse tests in ssl_certificate.t with TLSv1.3.
Previously, session data was retrieved too early, before server passed
application data, which usually means NewSessionTicket is not yet sent.
The fix is to ask server for application data, then retrieve a session.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Mon, 20 May 2019 16:00:40 +0300 |
parents | 766bcbb632ee |
children | f3ba4c74de31 |
line wrap: on
line source
#!/usr/bin/perl # (C) Sergey Kandaurov # (C) Nginx, Inc. # Tests for stream split_client module. ############################################################################### use warnings; use strict; use Test::More; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx; use Test::Nginx::Stream qw/ stream /; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->has(qw/stream stream_split_clients stream_return/); $t->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } stream { split_clients $connection $variant { 51.2% "first"; 10% "second"; * "third"; } server { listen 127.0.0.1:8080; return $variant; } } EOF $t->run(); $t->plan(1); ############################################################################### # NB: split_clients distribution is a subject to implementation details like(many('/', 20), qr/first: 12, second: 2, third: 6/, 'split'); ############################################################################### sub many { my ($uri, $count) = @_; my %dist; for (1 .. $count) { if (my $data = stream('127.0.0.1:' . port(8080))->read()) { $dist{$data} = 0 unless defined $data; $dist{$data}++; } } return join ', ', map { $_ . ": " . $dist{$_} } sort keys %dist; } ###############################################################################