Mercurial > hg > nginx-tests
changeset 348:08bb2b3785a2
Tests: added basic test for split_clients module.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Thu, 10 Oct 2013 13:35:55 +0400 |
parents | f6d195aa0303 |
children | 918dc7aa50f1 |
files | lib/Test/Nginx.pm split_clients.t |
diffstat | 2 files changed, 87 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/Test/Nginx.pm Thu Oct 03 20:05:57 2013 +0400 +++ b/lib/Test/Nginx.pm Thu Oct 10 13:35:55 2013 +0400 @@ -119,6 +119,8 @@ imap => '(?s)^(?!.*--without-mail_imap_module)', smtp => '(?s)^(?!.*--without-mail_smtp_module)', pcre => '(?s)^(?!.*--without-pcre)', + split_clients + => '(?s)^(?!.*--without-http_split_clients_module)', ); my $re = $regex{$feature};
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/split_clients.t Thu Oct 10 13:35:55 2013 +0400 @@ -0,0 +1,85 @@ +#!/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; +} + +###############################################################################