Mercurial > hg > nginx-tests
view split_clients.t @ 1328:a682c219af45
Tests: updated ssl_engine_keys.t test.
After merge with libp11, pkcs11 engine shared object was renamed
from "engine_pkcs11.so" to "pkcs11.so". Changed configuration
accordingly.
Additionally, changed "init" to "1" in the engine configuration. This
keeps pkcs11 engine loaded and prevents segmentation faults observed
during nginx shutdown.
While here, restored correct order of ssl_certificate and ssl_certificate_key.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Tue, 22 May 2018 17:46:59 +0300 |
parents | 882267679006 |
children |
line wrap: on
line source
#!/usr/bin/perl # (C) Sergey Kandaurov # (C) Nginx, Inc. # Tests for split_client module. ############################################################################### use warnings; use strict; use Test::More; 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 split_clients/)->plan(1); $t->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } http { %%TEST_GLOBALS_HTTP%% split_clients $connection $variant { 51.2% ".one"; 10% ".two"; * ".three"; } server { listen 127.0.0.1:8080; server_name localhost; location / { index index${variant}.html; } } } EOF $t->write_file('index.one.html', 'first'); $t->write_file('index.two.html', 'second'); $t->write_file('index.three.html', 'third'); $t->run(); ############################################################################### # 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 (http_get($uri) =~ /(first|second|third)/) { $dist{$1} = 0 unless defined $dist{$1}; $dist{$1}++; } } return join ', ', map { $_ . ": " . $dist{$_} } sort keys %dist; } ###############################################################################