nginx-tests: lib/Test/Nginx.pm annotate

annotate lib/Test/Nginx.pm @ 1851:0351dee227a8

Tests: unbreak tests with dynamic certificates on stable. In 74cffa9d4c43, ticket based session reuse is enabled in addition to using a shared SSL session cache. This changed how a session can be resumed in a different server: - for a session ID based resumption, it is resumed in the same context - when using session tickets, a key name is also checked for matching - with a ticket callback, this is skipped in favor of callback's logic This makes 'session id context match' tests fail with session tickets on stable since ticket key names are unique in distinct SSL contexts. On the other hand, tests pass on 1.23.2+ due to automatic ticket keys rotation that installs ticket callback, and using a common shared SSL session cache.

author	Sergey Kandaurov <pluknet@nginx.com>
date	Tue, 28 Mar 2023 01:36:32 +0400
parents	ba625d5a02e4
children	cdcd75657e52

rev	line source
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	1 package Test::Nginx;
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	2
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	3 # (C) Maxim Dounin
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	4
155 33f6ec774efa Tests: fix typo. Maxim Dounin <mdounin@mdounin.ru> parents: 144 diff changeset	5 # Generic module for nginx tests.
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	6
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	7 ###############################################################################
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	8
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	9 use warnings;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	10 use strict;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	11
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	12 use base qw/ Exporter /;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	13
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	14 our @EXPORT = qw/ log_in log_out http http_get http_head port /;
1612 8659123d2d37 Tests: made http_content() exportable. Maxim Dounin <mdounin@mdounin.ru> parents: 1609 diff changeset	15 our @EXPORT_OK = qw/
8659123d2d37 Tests: made http_content() exportable. Maxim Dounin <mdounin@mdounin.ru> parents: 1609 diff changeset	16 http_gzip_request http_gzip_like http_start http_end http_content
8659123d2d37 Tests: made http_content() exportable. Maxim Dounin <mdounin@mdounin.ru> parents: 1609 diff changeset	17 /;
93 5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	18 our %EXPORT_TAGS = (
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	19 gzip => [ qw/ http_gzip_request http_gzip_like / ]
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	20 );
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	21
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	22 ###############################################################################
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	23
290 f781b087b7aa Tests: fixed possible test suite hang on exit. Vladimir Homutov <vl@nginx.com> parents: 289 diff changeset	24 use File::Path qw/ rmtree /;
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	25 use File::Spec qw//;
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	26 use File::Temp qw/ tempdir /;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	27 use IO::Socket;
289 cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	28 use POSIX qw/ waitpid WNOHANG /;
7 9eb509695651 Tests: drop our own CRLF constant, use Socket's one instead. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	29 use Socket qw/ CRLF /;
27 fb94a224fef2 Tests: add has() functions for feature testing. Maxim Dounin <mdounin@mdounin.ru> parents: 24 diff changeset	30 use Test::More qw//;
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	31
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	32 ###############################################################################
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	33
48 acfafb52d393 Tests: use TEST_NGINX_BINARY to find nginx binary. Maxim Dounin <mdounin@mdounin.ru> parents: 46 diff changeset	34 our $NGINX = defined $ENV{TEST_NGINX_BINARY} ? $ENV{TEST_NGINX_BINARY}
acfafb52d393 Tests: use TEST_NGINX_BINARY to find nginx binary. Maxim Dounin <mdounin@mdounin.ru> parents: 46 diff changeset	35 : '../nginx/objs/nginx';
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	36 our %ports = ();
27 fb94a224fef2 Tests: add has() functions for feature testing. Maxim Dounin <mdounin@mdounin.ru> parents: 24 diff changeset	37
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	38 sub new {
d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	39 my $self = {};
d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	40 bless $self;
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	41
296 a113f4d55b12 Tests: fix hang on exit after errors in child processes. Maxim Dounin <mdounin@mdounin.ru> parents: 290 diff changeset	42 $self->{_pid} = $$;
592 355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	43 $self->{_alerts} = 1;
296 a113f4d55b12 Tests: fix hang on exit after errors in child processes. Maxim Dounin <mdounin@mdounin.ru> parents: 290 diff changeset	44
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	45 $self->{_testdir} = tempdir(
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	46 'nginx-test-XXXXXXXXXX',
290 f781b087b7aa Tests: fixed possible test suite hang on exit. Vladimir Homutov <vl@nginx.com> parents: 289 diff changeset	47 TMPDIR => 1
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	48 )
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	49 or die "Can't create temp directory: $!\n";
219 ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	50 $self->{_testdir} =~ s!\\!/!g if $^O eq 'MSWin32';
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	51
460 0342957cca37 Tests: check for nginx binary presence. Sergey Kandaurov <pluknet@nginx.com> parents: 438 diff changeset	52 Test::More::BAIL_OUT("no $NGINX binary found")
0342957cca37 Tests: check for nginx binary presence. Sergey Kandaurov <pluknet@nginx.com> parents: 438 diff changeset	53 unless -x $NGINX;
0342957cca37 Tests: check for nginx binary presence. Sergey Kandaurov <pluknet@nginx.com> parents: 438 diff changeset	54
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	55 return $self;
d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	56 }
d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	57
d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	58 sub DESTROY {
d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	59 my ($self) = @_;
415 020c4e47ecac Tests: revert 068d020a8f85 and localize $? instead. Maxim Dounin <mdounin@mdounin.ru> parents: 411 diff changeset	60 local $?;
020c4e47ecac Tests: revert 068d020a8f85 and localize $? instead. Maxim Dounin <mdounin@mdounin.ru> parents: 411 diff changeset	61
296 a113f4d55b12 Tests: fix hang on exit after errors in child processes. Maxim Dounin <mdounin@mdounin.ru> parents: 290 diff changeset	62 return if $self->{_pid} != $$;
415 020c4e47ecac Tests: revert 068d020a8f85 and localize $? instead. Maxim Dounin <mdounin@mdounin.ru> parents: 411 diff changeset	63
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	64 $self->stop();
144 6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	65 $self->stop_daemons();
415 020c4e47ecac Tests: revert 068d020a8f85 and localize $? instead. Maxim Dounin <mdounin@mdounin.ru> parents: 411 diff changeset	66
592 355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	67 if (Test::More->builder->expected_tests) {
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	68 local $Test::Nginx::TODO = 'alerts' unless $self->{_alerts};
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	69
891 f4189a38c3a4 Tests: mark 'phantom event' alerts on Solaris as TODO (iff any). Sergey Kandaurov <pluknet@nginx.com> parents: 865 diff changeset	70 my @alerts = $self->read_file('error.log') =~ /.+\[alert\].+/gm;
f4189a38c3a4 Tests: mark 'phantom event' alerts on Solaris as TODO (iff any). Sergey Kandaurov <pluknet@nginx.com> parents: 865 diff changeset	71
f4189a38c3a4 Tests: mark 'phantom event' alerts on Solaris as TODO (iff any). Sergey Kandaurov <pluknet@nginx.com> parents: 865 diff changeset	72 if ($^O eq 'solaris') {
f4189a38c3a4 Tests: mark 'phantom event' alerts on Solaris as TODO (iff any). Sergey Kandaurov <pluknet@nginx.com> parents: 865 diff changeset	73 $Test::Nginx::TODO = 'alerts' if @alerts
f4189a38c3a4 Tests: mark 'phantom event' alerts on Solaris as TODO (iff any). Sergey Kandaurov <pluknet@nginx.com> parents: 865 diff changeset	74 && ! grep { $_ !~ /phantom event/ } @alerts;
f4189a38c3a4 Tests: mark 'phantom event' alerts on Solaris as TODO (iff any). Sergey Kandaurov <pluknet@nginx.com> parents: 865 diff changeset	75 }
918 8d489e743fcb Tests: TODO certain alerts on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 910 diff changeset	76 if ($^O eq 'MSWin32') {
8d489e743fcb Tests: TODO certain alerts on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 910 diff changeset	77 my $re = qr/CloseHandle\|TerminateProcess/;
8d489e743fcb Tests: TODO certain alerts on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 910 diff changeset	78 $Test::Nginx::TODO = 'alerts' if @alerts
8d489e743fcb Tests: TODO certain alerts on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 910 diff changeset	79 && ! grep { $_ !~ $re } @alerts;
8d489e743fcb Tests: TODO certain alerts on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 910 diff changeset	80 }
891 f4189a38c3a4 Tests: mark 'phantom event' alerts on Solaris as TODO (iff any). Sergey Kandaurov <pluknet@nginx.com> parents: 865 diff changeset	81
f4189a38c3a4 Tests: mark 'phantom event' alerts on Solaris as TODO (iff any). Sergey Kandaurov <pluknet@nginx.com> parents: 865 diff changeset	82 Test::More::is(join("\n", @alerts), '', 'no alerts');
592 355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	83 }
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	84
861 6868e610eacc Tests: detect Sanitizer errors. Sergey Kandaurov <pluknet@nginx.com> parents: 856 diff changeset	85 if (Test::More->builder->expected_tests) {
910 49579dd88e3f Tests: localize $Test::Nginx::TODO for sanitizer errors. Sergey Kandaurov <pluknet@nginx.com> parents: 891 diff changeset	86 local $Test::Nginx::TODO;
861 6868e610eacc Tests: detect Sanitizer errors. Sergey Kandaurov <pluknet@nginx.com> parents: 856 diff changeset	87 my $errors = $self->read_file('error.log');
6868e610eacc Tests: detect Sanitizer errors. Sergey Kandaurov <pluknet@nginx.com> parents: 856 diff changeset	88 $errors = join "\n", $errors =~ /.+Sanitizer.+/gm;
6868e610eacc Tests: detect Sanitizer errors. Sergey Kandaurov <pluknet@nginx.com> parents: 856 diff changeset	89 Test::More::is($errors, '', 'no sanitizer errors');
6868e610eacc Tests: detect Sanitizer errors. Sergey Kandaurov <pluknet@nginx.com> parents: 856 diff changeset	90 }
6868e610eacc Tests: detect Sanitizer errors. Sergey Kandaurov <pluknet@nginx.com> parents: 856 diff changeset	91
51 d59ae7bab0a6 Tests: cat error log to stdout if TEST_NGINX_CATLOG set. Maxim Dounin <mdounin@mdounin.ru> parents: 50 diff changeset	92 if ($ENV{TEST_NGINX_CATLOG}) {
d59ae7bab0a6 Tests: cat error log to stdout if TEST_NGINX_CATLOG set. Maxim Dounin <mdounin@mdounin.ru> parents: 50 diff changeset	93 system("cat $self->{_testdir}/error.log");
d59ae7bab0a6 Tests: cat error log to stdout if TEST_NGINX_CATLOG set. Maxim Dounin <mdounin@mdounin.ru> parents: 50 diff changeset	94 }
290 f781b087b7aa Tests: fixed possible test suite hang on exit. Vladimir Homutov <vl@nginx.com> parents: 289 diff changeset	95 if (not $ENV{TEST_NGINX_LEAVE}) {
f781b087b7aa Tests: fixed possible test suite hang on exit. Vladimir Homutov <vl@nginx.com> parents: 289 diff changeset	96 eval { rmtree($self->{_testdir}); };
f781b087b7aa Tests: fixed possible test suite hang on exit. Vladimir Homutov <vl@nginx.com> parents: 289 diff changeset	97 }
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	98 }
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	99
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	100 sub has($;) {
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	101 my ($self, @features) = @_;
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	102
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	103 foreach my $feature (@features) {
574 2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	104 Test::More::plan(skip_all => "no $feature available")
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	105 unless $self->has_module($feature)
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	106 or $self->has_feature($feature);
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	107 }
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	108
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	109 return $self;
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	110 }
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	111
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	112 sub has_module($) {
28 8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	113 my ($self, $feature) = @_;
8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	114
8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	115 my %regex = (
237 90af19544dd2 Tests: https sni tests. Valentin Bartenev <ne@vbart.ru> parents: 232 diff changeset	116 sni => 'TLS SNI support enabled',
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	117 mail => '--with-mail((?!\S)\|=dynamic)',
33 4f57d57543e1 Tests: range filter tests. Maxim Dounin <mdounin@mdounin.ru> parents: 29 diff changeset	118 flv => '--with-http_flv_module',
118 4bf7a819358c Tests: add some embedded perl tests. Maxim Dounin <mdounin@mdounin.ru> parents: 107 diff changeset	119 perl => '--with-http_perl_module',
323 d48de852157c Tests: auth_request assorted fixes. Sergey Kandaurov <pluknet@nginx.com> parents: 312 diff changeset	120 auth_request
d48de852157c Tests: auth_request assorted fixes. Sergey Kandaurov <pluknet@nginx.com> parents: 312 diff changeset	121 => '--with-http_auth_request_module',
1035 c0accd6fab6c Tests: distinguished realip and stream_ssl prerequisites. Sergey Kandaurov <pluknet@nginx.com> parents: 1027 diff changeset	122 realip => '--with-http_realip_module',
1133 9edf2f99c58f Tests: fixed has() check for sub filter tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1081 diff changeset	123 sub => '--with-http_sub_module',
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	124 charset => '(?s)^(?!.*--without-http_charset_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	125 gzip => '(?s)^(?!.*--without-http_gzip_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	126 ssi => '(?s)^(?!.*--without-http_ssi_module)',
1208 a6453cf5786a Tests: http mirror module tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1206 diff changeset	127 mirror => '(?s)^(?!.*--without-http_mirror_module)',
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	128 userid => '(?s)^(?!.*--without-http_userid_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	129 access => '(?s)^(?!.*--without-http_access_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	130 auth_basic
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	131 => '(?s)^(?!.*--without-http_auth_basic_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	132 autoindex
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	133 => '(?s)^(?!.*--without-http_autoindex_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	134 geo => '(?s)^(?!.*--without-http_geo_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	135 map => '(?s)^(?!.*--without-http_map_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	136 referer => '(?s)^(?!.*--without-http_referer_module)',
28 8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	137 rewrite => '(?s)^(?!.*--without-http_rewrite_module)',
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	138 proxy => '(?s)^(?!.*--without-http_proxy_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	139 fastcgi => '(?s)^(?!.*--without-http_fastcgi_module)',
139 8b62dd9b8615 Tests: set temp paths for uwsgi and scgi modules. Maxim Dounin <mdounin@mdounin.ru> parents: 133 diff changeset	140 uwsgi => '(?s)^(?!.*--without-http_uwsgi_module)',
8b62dd9b8615 Tests: set temp paths for uwsgi and scgi modules. Maxim Dounin <mdounin@mdounin.ru> parents: 133 diff changeset	141 scgi => '(?s)^(?!.*--without-http_scgi_module)',
1302 beed8146d045 Tests: grpc module prerequisite. Sergey Kandaurov <pluknet@nginx.com> parents: 1263 diff changeset	142 grpc => '(?s)^(?!.*--without-http_grpc_module)',
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	143 memcached
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	144 => '(?s)^(?!.*--without-http_memcached_module)',
312 b639e76ba923 Tests: limit_zone regex updated to follow the module renaming. Sergey Kandaurov <pluknet@nginx.com> parents: 296 diff changeset	145 limit_conn
b639e76ba923 Tests: limit_zone regex updated to follow the module renaming. Sergey Kandaurov <pluknet@nginx.com> parents: 296 diff changeset	146 => '(?s)^(?!.*--without-http_limit_conn_module)',
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	147 limit_req
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	148 => '(?s)^(?!.*--without-http_limit_req_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	149 empty_gif
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	150 => '(?s)^(?!.*--without-http_empty_gif_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	151 browser => '(?s)^(?!.*--without-http_browser_module)',
411 17c5a1cc8757 Tests: upstream hash tests. Sergey Kandaurov <pluknet@nginx.com> parents: 395 diff changeset	152 upstream_hash
17c5a1cc8757 Tests: upstream hash tests. Sergey Kandaurov <pluknet@nginx.com> parents: 395 diff changeset	153 => '(?s)^(?!.*--without-http_upstream_hash_module)',
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	154 upstream_ip_hash
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	155 => '(?s)^(?!.*--without-http_upstream_ip_hash_module)',
275 6cbcfb4ef7ee Tests: correct has() checks for upstream keepalive tests. Maxim Dounin <mdounin@mdounin.ru> parents: 271 diff changeset	156 upstream_least_conn
6cbcfb4ef7ee Tests: correct has() checks for upstream keepalive tests. Maxim Dounin <mdounin@mdounin.ru> parents: 271 diff changeset	157 => '(?s)^(?!.*--without-http_upstream_least_conn_mod)',
1350 fda743e92b31 Tests: upstream random tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1308 diff changeset	158 upstream_random
fda743e92b31 Tests: upstream random tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1308 diff changeset	159 => '(?s)^(?!.*--without-http_upstream_random_module)',
275 6cbcfb4ef7ee Tests: correct has() checks for upstream keepalive tests. Maxim Dounin <mdounin@mdounin.ru> parents: 271 diff changeset	160 upstream_keepalive
6cbcfb4ef7ee Tests: correct has() checks for upstream keepalive tests. Maxim Dounin <mdounin@mdounin.ru> parents: 271 diff changeset	161 => '(?s)^(?!.*--without-http_upstream_keepalive_modu)',
560 f3434de79a7f Tests: upstream zone tests with ssl backend. Sergey Kandaurov <pluknet@nginx.com> parents: 557 diff changeset	162 upstream_zone
f3434de79a7f Tests: upstream zone tests with ssl backend. Sergey Kandaurov <pluknet@nginx.com> parents: 557 diff changeset	163 => '(?s)^(?!.*--without-http_upstream_zone_module)',
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	164 http => '(?s)^(?!.*--without-http(?!\S))',
106 7a712d3909ba Tests: add cache availability checks. Maxim Dounin <mdounin@mdounin.ru> parents: 104 diff changeset	165 cache => '(?s)^(?!.*--without-http-cache)',
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	166 pop3 => '(?s)^(?!.*--without-mail_pop3_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	167 imap => '(?s)^(?!.*--without-mail_imap_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	168 smtp => '(?s)^(?!.*--without-mail_smtp_module)',
8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 118 diff changeset	169 pcre => '(?s)^(?!.*--without-pcre)',
348 08bb2b3785a2 Tests: added basic test for split_clients module. Sergey Kandaurov <pluknet@nginx.com> parents: 339 diff changeset	170 split_clients
08bb2b3785a2 Tests: added basic test for split_clients module. Sergey Kandaurov <pluknet@nginx.com> parents: 339 diff changeset	171 => '(?s)^(?!.*--without-http_split_clients_module)',
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	172 stream => '--with-stream((?!\S)\|=dynamic)',
977 6abe7be6d2c1 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 973 diff changeset	173 stream_access
6abe7be6d2c1 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 973 diff changeset	174 => '(?s)^(?!.*--without-stream_access_module)',
978 04cb1849005a Tests: basic tests for stream geo module. Sergey Kandaurov <pluknet@nginx.com> parents: 977 diff changeset	175 stream_geo
04cb1849005a Tests: basic tests for stream geo module. Sergey Kandaurov <pluknet@nginx.com> parents: 977 diff changeset	176 => '(?s)^(?!.*--without-stream_geo_module)',
620 7497adad1a50 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 619 diff changeset	177 stream_limit_conn
7497adad1a50 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 619 diff changeset	178 => '(?s)^(?!.*--without-stream_limit_conn_module)',
963 c26b0eaed67a Tests: stream return and map modules prerequisites. Sergey Kandaurov <pluknet@nginx.com> parents: 957 diff changeset	179 stream_map
c26b0eaed67a Tests: stream return and map modules prerequisites. Sergey Kandaurov <pluknet@nginx.com> parents: 957 diff changeset	180 => '(?s)^(?!.*--without-stream_map_module)',
c26b0eaed67a Tests: stream return and map modules prerequisites. Sergey Kandaurov <pluknet@nginx.com> parents: 957 diff changeset	181 stream_return
c26b0eaed67a Tests: stream return and map modules prerequisites. Sergey Kandaurov <pluknet@nginx.com> parents: 957 diff changeset	182 => '(?s)^(?!.*--without-stream_return_module)',
1593 a328109be893 Tests: stream set tests. Vladimir Kokshenev <v.kokshenev@f5.com> parents: 1350 diff changeset	183 stream_set
a328109be893 Tests: stream set tests. Vladimir Kokshenev <v.kokshenev@f5.com> parents: 1350 diff changeset	184 => '(?s)^(?!.*--without-stream_set_module)',
979 ef6be3201851 Tests: basic tests for stream split_clients module. Sergey Kandaurov <pluknet@nginx.com> parents: 978 diff changeset	185 stream_split_clients
ef6be3201851 Tests: basic tests for stream split_clients module. Sergey Kandaurov <pluknet@nginx.com> parents: 978 diff changeset	186 => '(?s)^(?!.*--without-stream_split_clients_module)',
1035 c0accd6fab6c Tests: distinguished realip and stream_ssl prerequisites. Sergey Kandaurov <pluknet@nginx.com> parents: 1027 diff changeset	187 stream_ssl
c0accd6fab6c Tests: distinguished realip and stream_ssl prerequisites. Sergey Kandaurov <pluknet@nginx.com> parents: 1027 diff changeset	188 => '--with-stream_ssl_module',
571 5c3946ebd867 Tests: basic stream tests for upstream hash. Sergey Kandaurov <pluknet@nginx.com> parents: 560 diff changeset	189 stream_upstream_hash
5c3946ebd867 Tests: basic stream tests for upstream hash. Sergey Kandaurov <pluknet@nginx.com> parents: 560 diff changeset	190 => '(?s)^(?!.*--without-stream_upstream_hash_module)',
557 05cbe9e2def8 Tests: basic stream tests for upstream least_conn. Sergey Kandaurov <pluknet@nginx.com> parents: 552 diff changeset	191 stream_upstream_least_conn
05cbe9e2def8 Tests: basic stream tests for upstream least_conn. Sergey Kandaurov <pluknet@nginx.com> parents: 552 diff changeset	192 => '(?s)^(?!.*--without-stream_upstream_least_conn_m)',
1350 fda743e92b31 Tests: upstream random tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1308 diff changeset	193 stream_upstream_random
fda743e92b31 Tests: upstream random tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1308 diff changeset	194 => '(?s)^(?!.*--without-stream_upstream_random_modul)',
560 f3434de79a7f Tests: upstream zone tests with ssl backend. Sergey Kandaurov <pluknet@nginx.com> parents: 557 diff changeset	195 stream_upstream_zone
f3434de79a7f Tests: upstream zone tests with ssl backend. Sergey Kandaurov <pluknet@nginx.com> parents: 557 diff changeset	196 => '(?s)^(?!.*--without-stream_upstream_zone_module)',
28 8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	197 );
8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	198
100 9ddc18214854 Tests: arbitrary regexp support in has(). Maxim Dounin <mdounin@mdounin.ru> parents: 96 diff changeset	199 my $re = $regex{$feature};
9ddc18214854 Tests: arbitrary regexp support in has(). Maxim Dounin <mdounin@mdounin.ru> parents: 96 diff changeset	200 $re = $feature if !defined $re;
9ddc18214854 Tests: arbitrary regexp support in has(). Maxim Dounin <mdounin@mdounin.ru> parents: 96 diff changeset	201
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	202 $self->{_configure_args} = `$NGINX -V 2>&1`
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	203 if !defined $self->{_configure_args};
28 8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	204
1042 9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	205 return 1 if $self->{_configure_args} =~ $re;
9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	206
9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	207 my %modules = (
1063 d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	208 http_geoip
d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	209 => 'ngx_http_geoip_module',
1042 9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	210 image_filter
1053 fbf731526f49 Tests: relaxed check for known dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1045 diff changeset	211 => 'ngx_http_image_filter_module',
fbf731526f49 Tests: relaxed check for known dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1045 diff changeset	212 perl => 'ngx_http_perl_module',
fbf731526f49 Tests: relaxed check for known dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1045 diff changeset	213 xslt => 'ngx_http_xslt_filter_module',
fbf731526f49 Tests: relaxed check for known dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1045 diff changeset	214 mail => 'ngx_mail_module',
fbf731526f49 Tests: relaxed check for known dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1045 diff changeset	215 stream => 'ngx_stream_module',
1063 d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	216 stream_geoip
d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	217 => 'ngx_stream_geoip_module',
1042 9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	218 );
9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	219
9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	220 my $module = $modules{$feature};
9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	221 if (defined $module && defined $ENV{TEST_NGINX_GLOBALS}) {
1053 fbf731526f49 Tests: relaxed check for known dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1045 diff changeset	222 $re = qr/load_module\s+[^;]\Q$module\E[-\w]\.so\s*;/;
1042 9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	223 return 1 if $ENV{TEST_NGINX_GLOBALS} =~ $re;
9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	224 }
9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	225
9339673bb454 Tests: check for known dynamic modules via TEST_NGINX_GLOBALS. Andrei Belov <defan@nginx.com> parents: 1035 diff changeset	226 return 0;
28 8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	227 }
8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	228
574 2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	229 sub has_feature($) {
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	230 my ($self, $feature) = @_;
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	231
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	232 if ($feature eq 'symlink') {
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	233 return $^O ne 'MSWin32';
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	234 }
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	235
800 51d3243a762f Tests: skip tests with unix domain sockets on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 778 diff changeset	236 if ($feature eq 'unix') {
51d3243a762f Tests: skip tests with unix domain sockets on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 778 diff changeset	237 return $^O ne 'MSWin32';
51d3243a762f Tests: skip tests with unix domain sockets on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 778 diff changeset	238 }
51d3243a762f Tests: skip tests with unix domain sockets on win32. Sergey Kandaurov <pluknet@nginx.com> parents: 778 diff changeset	239
947 b9e42c554ba7 Tests: skip UDP tests on win32, udp feature introduced. Sergey Kandaurov <pluknet@nginx.com> parents: 918 diff changeset	240 if ($feature eq 'udp') {
b9e42c554ba7 Tests: skip UDP tests on win32, udp feature introduced. Sergey Kandaurov <pluknet@nginx.com> parents: 918 diff changeset	241 return $^O ne 'MSWin32';
b9e42c554ba7 Tests: skip UDP tests on win32, udp feature introduced. Sergey Kandaurov <pluknet@nginx.com> parents: 918 diff changeset	242 }
b9e42c554ba7 Tests: skip UDP tests on win32, udp feature introduced. Sergey Kandaurov <pluknet@nginx.com> parents: 918 diff changeset	243
574 2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	244 return 0;
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	245 }
2cd00179f4b2 Tests: has_feature() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 571 diff changeset	246
242 8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	247 sub has_version($) {
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	248 my ($self, $need) = @_;
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	249
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	250 $self->{_configure_args} = `$NGINX -V 2>&1`
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	251 if !defined $self->{_configure_args};
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	252
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	253 $self->{_configure_args} =~ m!nginx version: nginx/([0-9.]+)!;
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	254
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	255 my @v = split(/\./, $1);
284 8fcc46212e5e Tests: fix has_version() to handle previous branch checks. Maxim Dounin <mdounin@mdounin.ru> parents: 281 diff changeset	256 my ($n, $v);
242 8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	257
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	258 for $n (split(/\./, $need)) {
284 8fcc46212e5e Tests: fix has_version() to handle previous branch checks. Maxim Dounin <mdounin@mdounin.ru> parents: 281 diff changeset	259 $v = shift @v \|\| 0;
8fcc46212e5e Tests: fix has_version() to handle previous branch checks. Maxim Dounin <mdounin@mdounin.ru> parents: 281 diff changeset	260 return 0 if $n > $v;
8fcc46212e5e Tests: fix has_version() to handle previous branch checks. Maxim Dounin <mdounin@mdounin.ru> parents: 281 diff changeset	261 return 1 if $v > $n;
242 8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	262 }
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	263
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	264 return 1;
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	265 }
8f280348d76f Tests: add has_version() method and use it as appropriate. Maxim Dounin <mdounin@mdounin.ru> parents: 237 diff changeset	266
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	267 sub has_daemon($) {
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	268 my ($self, $daemon) = @_;
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	269
220 f6f60780f758 Tests: fail has_daemon() on win32. Maxim Dounin <mdounin@mdounin.ru> parents: 219 diff changeset	270 if ($^O eq 'MSWin32') {
1221 852856f8e7dc Tests: added has_daemon() support for win32. Sergey Kandaurov <pluknet@nginx.com> parents: 1208 diff changeset	271 `for %i in ($daemon.exe) do \@echo \| set /p x=%~\$PATH:i`
852856f8e7dc Tests: added has_daemon() support for win32. Sergey Kandaurov <pluknet@nginx.com> parents: 1208 diff changeset	272 or Test::More::plan(skip_all => "$daemon not found");
220 f6f60780f758 Tests: fail has_daemon() on win32. Maxim Dounin <mdounin@mdounin.ru> parents: 219 diff changeset	273 return $self;
f6f60780f758 Tests: fail has_daemon() on win32. Maxim Dounin <mdounin@mdounin.ru> parents: 219 diff changeset	274 }
f6f60780f758 Tests: fail has_daemon() on win32. Maxim Dounin <mdounin@mdounin.ru> parents: 219 diff changeset	275
232 4c43b3a0117c Tests: revert 5db96b64cead, use "which" instead of "command -v". Maxim Dounin <mdounin@mdounin.ru> parents: 222 diff changeset	276 if ($^O eq 'solaris') {
4c43b3a0117c Tests: revert 5db96b64cead, use "which" instead of "command -v". Maxim Dounin <mdounin@mdounin.ru> parents: 222 diff changeset	277 Test::More::plan(skip_all => "$daemon not found")
4c43b3a0117c Tests: revert 5db96b64cead, use "which" instead of "command -v". Maxim Dounin <mdounin@mdounin.ru> parents: 222 diff changeset	278 unless `command -v $daemon`;
4c43b3a0117c Tests: revert 5db96b64cead, use "which" instead of "command -v". Maxim Dounin <mdounin@mdounin.ru> parents: 222 diff changeset	279 return $self;
4c43b3a0117c Tests: revert 5db96b64cead, use "which" instead of "command -v". Maxim Dounin <mdounin@mdounin.ru> parents: 222 diff changeset	280 }
4c43b3a0117c Tests: revert 5db96b64cead, use "which" instead of "command -v". Maxim Dounin <mdounin@mdounin.ru> parents: 222 diff changeset	281
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	282 Test::More::plan(skip_all => "$daemon not found")
232 4c43b3a0117c Tests: revert 5db96b64cead, use "which" instead of "command -v". Maxim Dounin <mdounin@mdounin.ru> parents: 222 diff changeset	283 unless `which $daemon`;
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	284
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	285 return $self;
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	286 }
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	287
392 c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	288 sub try_run($$) {
c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	289 my ($self, $message) = @_;
c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	290
c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	291 eval {
1790 ba625d5a02e4 Tests: updated try_run() to rely on nginx "-e". Sergey Kandaurov <pluknet@nginx.com> parents: 1752 diff changeset	292 open OLDERR, ">&", \*STDERR; close STDERR;
392 c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	293 $self->run();
c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	294 open STDERR, ">&", \*OLDERR;
c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	295 };
c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	296
1238 e35cc79ed4a1 Tests: show try_run() errors in verbose mode. Sergey Kandaurov <pluknet@nginx.com> parents: 1236 diff changeset	297 return $self unless $@;
e35cc79ed4a1 Tests: show try_run() errors in verbose mode. Sergey Kandaurov <pluknet@nginx.com> parents: 1236 diff changeset	298
e35cc79ed4a1 Tests: show try_run() errors in verbose mode. Sergey Kandaurov <pluknet@nginx.com> parents: 1236 diff changeset	299 if ($ENV{TEST_NGINX_VERBOSE}) {
1790 ba625d5a02e4 Tests: updated try_run() to rely on nginx "-e". Sergey Kandaurov <pluknet@nginx.com> parents: 1752 diff changeset	300 open F, '<', $self->{_testdir} . '/error.log'
ba625d5a02e4 Tests: updated try_run() to rely on nginx "-e". Sergey Kandaurov <pluknet@nginx.com> parents: 1752 diff changeset	301 or die "Can't open error.log: $!";
1238 e35cc79ed4a1 Tests: show try_run() errors in verbose mode. Sergey Kandaurov <pluknet@nginx.com> parents: 1236 diff changeset	302 log_core($_) while (<F>);
e35cc79ed4a1 Tests: show try_run() errors in verbose mode. Sergey Kandaurov <pluknet@nginx.com> parents: 1236 diff changeset	303 close F;
e35cc79ed4a1 Tests: show try_run() errors in verbose mode. Sergey Kandaurov <pluknet@nginx.com> parents: 1236 diff changeset	304 }
e35cc79ed4a1 Tests: show try_run() errors in verbose mode. Sergey Kandaurov <pluknet@nginx.com> parents: 1236 diff changeset	305
e35cc79ed4a1 Tests: show try_run() errors in verbose mode. Sergey Kandaurov <pluknet@nginx.com> parents: 1236 diff changeset	306 Test::More::plan(skip_all => $message);
392 c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	307 return $self;
c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	308 }
c28ecaef065f Tests: try_run() introduced. Maxim Dounin <mdounin@mdounin.ru> parents: 375 diff changeset	309
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	310 sub plan($) {
28 8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	311 my ($self, $plan) = @_;
8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	312
861 6868e610eacc Tests: detect Sanitizer errors. Sergey Kandaurov <pluknet@nginx.com> parents: 856 diff changeset	313 Test::More::plan(tests => $plan + 2);
592 355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	314
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	315 return $self;
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	316 }
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	317
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	318 sub todo_alerts() {
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	319 my ($self) = @_;
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	320
355f2d5ff60f Tests: catch nginx alerts on exit. Sergey Kandaurov <pluknet@nginx.com> parents: 574 diff changeset	321 $self->{_alerts} = 0;
28 8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	322
8f1519472ece Tests: unbreak and extend has() functionality. Maxim Dounin <mdounin@mdounin.ru> parents: 27 diff changeset	323 return $self;
27 fb94a224fef2 Tests: add has() functions for feature testing. Maxim Dounin <mdounin@mdounin.ru> parents: 24 diff changeset	324 }
fb94a224fef2 Tests: add has() functions for feature testing. Maxim Dounin <mdounin@mdounin.ru> parents: 24 diff changeset	325
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	326 sub run(;$) {
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	327 my ($self, $conf) = @_;
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	328
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	329 my $testdir = $self->{_testdir};
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	330
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	331 if (defined $conf) {
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	332 my $c = `cat $conf`;
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	333 $self->write_file_expand('nginx.conf', $c);
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	334 }
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	335
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	336 my $pid = fork();
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	337 die "Unable to fork(): $!\n" unless defined $pid;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	338
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	339 if ($pid == 0) {
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	340 my @globals = $self->{_test_globals} ?
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	341 () : ('-g', "pid $testdir/nginx.pid; "
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	342 . "error_log $testdir/error.log debug;");
1630 6f573329e862 Tests: "-e" command line option support. Maxim Dounin <mdounin@mdounin.ru> parents: 1629 diff changeset	343 exec($NGINX, '-p', "$testdir/", '-c', 'nginx.conf',
1790 ba625d5a02e4 Tests: updated try_run() to rely on nginx "-e". Sergey Kandaurov <pluknet@nginx.com> parents: 1752 diff changeset	344 '-e', 'error.log', @globals)
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	345 or die "Unable to exec(): $!\n";
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	346 }
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	347
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	348 # wait for nginx to start
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	349
289 cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	350 $self->waitforfile("$testdir/nginx.pid", $pid)
50 b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	351 or die "Can't start nginx";
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	352
1263 ea3c7659b6c1 Tests: handled early pidfile write on win32 in the run() routine. Sergey Kandaurov <pluknet@nginx.com> parents: 1238 diff changeset	353 for (1 .. 50) {
ea3c7659b6c1 Tests: handled early pidfile write on win32 in the run() routine. Sergey Kandaurov <pluknet@nginx.com> parents: 1238 diff changeset	354 last if $^O ne 'MSWin32';
ea3c7659b6c1 Tests: handled early pidfile write on win32 in the run() routine. Sergey Kandaurov <pluknet@nginx.com> parents: 1238 diff changeset	355 last if $self->read_file('error.log') =~ /create thread/;
ea3c7659b6c1 Tests: handled early pidfile write on win32 in the run() routine. Sergey Kandaurov <pluknet@nginx.com> parents: 1238 diff changeset	356 select undef, undef, undef, 0.1;
ea3c7659b6c1 Tests: handled early pidfile write on win32 in the run() routine. Sergey Kandaurov <pluknet@nginx.com> parents: 1238 diff changeset	357 }
ea3c7659b6c1 Tests: handled early pidfile write on win32 in the run() routine. Sergey Kandaurov <pluknet@nginx.com> parents: 1238 diff changeset	358
20 c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	359 $self->{_started} = 1;
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	360 return $self;
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	361 }
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	362
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	363 sub port {
9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	364 my ($num, %opts) = @_;
1236 93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	365 my ($sock, $lock, $port);
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	366
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	367 goto done if defined $ports{$num};
1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	368
1236 93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	369 my $socket = sub {
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	370 IO::Socket::INET->new(
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	371 Proto => 'tcp',
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	372 LocalAddr => '127.0.0.1:' . shift,
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	373 Listen => 1,
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	374 Reuse => ($^O ne 'MSWin32'),
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	375 );
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	376 };
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	377
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	378 my $socketl = sub {
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	379 IO::Socket::INET->new(
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	380 Proto => 'udp',
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	381 LocalAddr => '127.0.0.1:' . shift,
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	382 );
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	383 };
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	384
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	385 ($socket, $socketl) = ($socketl, $socket) if $opts{udp};
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	386
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	387 $port = $num;
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	388
9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	389 for (1 .. 10) {
1236 93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	390 $port = int($port / 500) * 500 + int(rand(500)) unless $_ == 1;
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	391
1236 93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	392 $lock = $socketl->($port) or next;
93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	393 $sock = $socket->($port) and last;
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	394 }
9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	395
1236 93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	396 die "Port limit exceeded" unless defined $lock and defined $sock;
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	397
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	398 $ports{$num} = {
1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	399 port => $port,
1236 93f749c1d5c5 Tests: fixed parallel tests execution with UDP. Andrey Zelenkov <zelenkov@nginx.com> parents: 1221 diff changeset	400 socket => $lock
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	401 };
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	402
9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	403 done:
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	404 return $ports{$num}{socket} if $opts{socket};
1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	405 return $ports{$num}{port};
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	406 }
9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	407
621 884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	408 sub dump_config() {
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	409 my ($self) = @_;
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	410
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	411 my $testdir = $self->{_testdir};
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	412
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	413 my @globals = $self->{_test_globals} ?
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	414 () : ('-g', "pid $testdir/nginx.pid; "
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	415 . "error_log $testdir/error.log debug;");
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	416 my $command = "$NGINX -T -p $testdir/ -c nginx.conf "
1790 ba625d5a02e4 Tests: updated try_run() to rely on nginx "-e". Sergey Kandaurov <pluknet@nginx.com> parents: 1752 diff changeset	417 . "-e error.log " . join(' ', @globals);
621 884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	418
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	419 return qx/$command 2>&1/;
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	420 }
884b2f0c173f Tests: tests for dumped nginx configuration ("nginx -T"). Sergey Kandaurov <pluknet@nginx.com> parents: 620 diff changeset	421
289 cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	422 sub waitforfile($;$) {
cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	423 my ($self, $file, $pid) = @_;
cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	424 my $exited;
50 b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	425
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	426 # wait for file to appear
289 cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	427 # or specified process to exit
50 b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	428
628 0940773278c7 Tests: backed out previous change, adjusted general timeouts. Sergey Kandaurov <pluknet@nginx.com> parents: 621 diff changeset	429 for (1 .. 50) {
50 b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	430 return 1 if -e $file;
289 cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	431 return 0 if $exited;
cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	432 $exited = waitpid($pid, WNOHANG) != 0 if $pid;
50 b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	433 select undef, undef, undef, 0.1;
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	434 }
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	435
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	436 return undef;
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	437 }
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	438
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	439 sub waitforsocket($) {
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	440 my ($self, $peer) = @_;
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	441
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	442 # wait for socket to accept connections
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	443
628 0940773278c7 Tests: backed out previous change, adjusted general timeouts. Sergey Kandaurov <pluknet@nginx.com> parents: 621 diff changeset	444 for (1 .. 50) {
50 b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	445 my $s = IO::Socket::INET->new(
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	446 Proto => 'tcp',
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	447 PeerAddr => $peer
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	448 );
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	449
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	450 return 1 if defined $s;
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	451
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	452 select undef, undef, undef, 0.1;
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	453 }
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	454
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	455 return undef;
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	456 }
b494fe5b12d1 Tests: add waitforfile() and waitforsocket() functions. Maxim Dounin <mdounin@mdounin.ru> parents: 49 diff changeset	457
1206 c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	458 sub reload() {
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	459 my ($self) = @_;
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	460
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	461 return $self unless $self->{_started};
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	462
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	463 my $pid = $self->read_file('nginx.pid');
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	464
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	465 if ($^O eq 'MSWin32') {
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	466 my $testdir = $self->{_testdir};
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	467 my @globals = $self->{_test_globals} ?
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	468 () : ('-g', "pid $testdir/nginx.pid; "
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	469 . "error_log $testdir/error.log debug;");
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	470 system($NGINX, '-p', $testdir, '-c', "nginx.conf",
1790 ba625d5a02e4 Tests: updated try_run() to rely on nginx "-e". Sergey Kandaurov <pluknet@nginx.com> parents: 1752 diff changeset	471 '-s', 'reload', '-e', 'error.log', @globals) == 0
1206 c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	472 or die "system() failed: $?\n";
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	473
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	474 } else {
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	475 kill 'HUP', $pid;
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	476 }
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	477
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	478 return $self;
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	479 }
c99c1f43cb15 Tests: reload() introduced in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 1205 diff changeset	480
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	481 sub stop() {
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	482 my ($self) = @_;
d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	483
144 6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	484 return $self unless $self->{_started};
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	485
1205 c0fa3f818103 Tests: use read_file() in Test::Nginx::stop(). Sergey Kandaurov <pluknet@nginx.com> parents: 1170 diff changeset	486 my $pid = $self->read_file('nginx.pid');
289 cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	487
219 ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	488 if ($^O eq 'MSWin32') {
ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	489 my $testdir = $self->{_testdir};
ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	490 my @globals = $self->{_test_globals} ?
ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	491 () : ('-g', "pid $testdir/nginx.pid; "
ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	492 . "error_log $testdir/error.log debug;");
395 d7d9b4367bab Tests: start nginx prefixed to a temporary directory. Sergey Kandaurov <pluknet@nginx.com> parents: 392 diff changeset	493 system($NGINX, '-p', $testdir, '-c', "nginx.conf",
1790 ba625d5a02e4 Tests: updated try_run() to rely on nginx "-e". Sergey Kandaurov <pluknet@nginx.com> parents: 1752 diff changeset	494 '-s', 'quit', '-e', 'error.log', @globals) == 0
222 5b7883daaf82 Tests: use kill(9, $pid) on win32. Maxim Dounin <mdounin@mdounin.ru> parents: 220 diff changeset	495 or die "system() failed: $?\n";
219 ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	496
ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	497 } else {
289 cbd4f6eca676 Tests: check if started process is alive while starting nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 284 diff changeset	498 kill 'QUIT', $pid;
219 ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	499 }
ce2e23daa1da Tests: minimal win32 support. Maxim Dounin <mdounin@mdounin.ru> parents: 209 diff changeset	500
1677 f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	501 my $exited;
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	502
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	503 for (1 .. 900) {
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	504 $exited = waitpid($pid, WNOHANG) != 0;
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	505 last if $exited;
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	506 select undef, undef, undef, 0.1;
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	507 }
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	508
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	509 if (!$exited) {
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	510 if ($^O eq 'MSWin32') {
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	511 my $testdir = $self->{_testdir};
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	512 my @globals = $self->{_test_globals} ?
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	513 () : ('-g', "pid $testdir/nginx.pid; "
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	514 . "error_log $testdir/error.log debug;");
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	515 system($NGINX, '-p', $testdir, '-c', "nginx.conf",
1790 ba625d5a02e4 Tests: updated try_run() to rely on nginx "-e". Sergey Kandaurov <pluknet@nginx.com> parents: 1752 diff changeset	516 '-s', 'stop', '-e', 'error.log', @globals) == 0
1677 f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	517 or die "system() failed: $?\n";
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	518
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	519 } else {
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	520 kill 'TERM', $pid;
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	521 }
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	522
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	523 waitpid($pid, 0);
f13ead27f89c Tests: improved stop() to send TERM after QUIT. Maxim Dounin <mdounin@mdounin.ru> parents: 1634 diff changeset	524 }
144 6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	525
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	526 $self->{_started} = 0;
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	527
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	528 return $self;
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	529 }
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	530
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	531 sub stop_daemons() {
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	532 my ($self) = @_;
6e11354cae8a Tests: rework stopping to make "open socket left" alerts visible. Maxim Dounin <mdounin@mdounin.ru> parents: 139 diff changeset	533
20 c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	534 while ($self->{_daemons} && scalar @{$self->{_daemons}}) {
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	535 my $p = shift @{$self->{_daemons}};
222 5b7883daaf82 Tests: use kill(9, $pid) on win32. Maxim Dounin <mdounin@mdounin.ru> parents: 220 diff changeset	536 kill $^O eq 'MSWin32' ? 9 : 'TERM', $p;
1752 ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	537
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	538 my $exited;
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	539
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	540 for (1 .. 50) {
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	541 $exited = waitpid($p, WNOHANG) != 0;
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	542 last if $exited;
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	543 select undef, undef, undef, 0.1;
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	544 }
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	545
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	546 if (!$exited) {
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	547 kill $^O eq 'MSWin32' ? 9 : 'TERM', $p;
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	548 waitpid($p, 0);
ba6e24e38f03 Tests: improved stop_daemons() to send signal again. Sergey Kandaurov <pluknet@nginx.com> parents: 1677 diff changeset	549 }
20 c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	550 }
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	551
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	552 return $self;
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	553 }
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	554
467 43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	555 sub read_file($) {
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	556 my ($self, $name) = @_;
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	557 local $/;
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	558
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	559 open F, '<', $self->{_testdir} . '/' . $name
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	560 or die "Can't open $name: $!";
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	561 my $content = <F>;
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	562 close F;
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	563
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	564 return $content;
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	565 }
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 460 diff changeset	566
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	567 sub write_file($$) {
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	568 my ($self, $name, $content) = @_;
12 d19146b30334 Tests: move write_file() into _common.pm. Maxim Dounin <mdounin@mdounin.ru> parents: 8 diff changeset	569
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	570 open F, '>' . $self->{_testdir} . '/' . $name
12 d19146b30334 Tests: move write_file() into _common.pm. Maxim Dounin <mdounin@mdounin.ru> parents: 8 diff changeset	571 or die "Can't create $name: $!";
778 9e00ab661e87 Tests: use binmode in write_file(). Sergey Kandaurov <pluknet@nginx.com> parents: 777 diff changeset	572 binmode F;
12 d19146b30334 Tests: move write_file() into _common.pm. Maxim Dounin <mdounin@mdounin.ru> parents: 8 diff changeset	573 print F $content;
d19146b30334 Tests: move write_file() into _common.pm. Maxim Dounin <mdounin@mdounin.ru> parents: 8 diff changeset	574 close F;
14 d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	575
d4b74207a627 Tests: refactor common functions. Maxim Dounin <mdounin@mdounin.ru> parents: 12 diff changeset	576 return $self;
12 d19146b30334 Tests: move write_file() into _common.pm. Maxim Dounin <mdounin@mdounin.ru> parents: 8 diff changeset	577 }
d19146b30334 Tests: move write_file() into _common.pm. Maxim Dounin <mdounin@mdounin.ru> parents: 8 diff changeset	578
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	579 sub write_file_expand($$) {
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	580 my ($self, $name, $content) = @_;
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	581
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	582 $content =~ s/%%TEST_GLOBALS%%/$self->test_globals()/gmse;
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	583 $content =~ s/%%TEST_GLOBALS_HTTP%%/$self->test_globals_http()/gmse;
1609 f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	584 $content =~ s/%%TEST_GLOBALS_STREAM%%/$self->test_globals_stream()/gmse;
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	585 $content =~ s/%%TESTDIR%%/$self->{_testdir}/gms;
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	586
1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	587 $content =~ s/127\.0\.0\.1:(8\d\d\d)/'127.0.0.1:' . port($1)/gmse;
1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	588
951 9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	589 $content =~ s/%%PORT_(\d+)%%/port($1)/gmse;
9361c7eddfc1 Tests: parallel tests support. Andrey Zelenkov <zelenkov@nginx.com> parents: 947 diff changeset	590 $content =~ s/%%PORT_(\d+)_UDP%%/port($1, udp => 1)/gmse;
15 c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	591
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	592 return $self->write_file($name, $content);
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	593 }
c6c36d7a4d90 Tests: support config embedded in test itself. Maxim Dounin <mdounin@mdounin.ru> parents: 14 diff changeset	594
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	595 sub run_daemon($;@) {
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	596 my ($self, $code, @args) = @_;
20 c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	597
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	598 my $pid = fork();
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	599 die "Can't fork daemon: $!\n" unless defined $pid;
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	600
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	601 if ($pid == 0) {
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	602 if (ref($code) eq 'CODE') {
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	603 $code->(@args);
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	604 exit 0;
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	605 } else {
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	606 exec($code, @args);
195 d73ab4b6ef4a Tests: fix run_daemon() in case of exec() failure. Maxim Dounin <mdounin@mdounin.ru> parents: 194 diff changeset	607 exit 0;
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	608 }
20 c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	609 }
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	610
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	611 $self->{_daemons} = [] unless defined $self->{_daemons};
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	612 push @{$self->{_daemons}}, $pid;
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	613
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	614 return $self;
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	615 }
c57e8bd7bfc7 Tests: running simple daemons supplied as coderef. Maxim Dounin <mdounin@mdounin.ru> parents: 15 diff changeset	616
46 239a346b4913 Tests: add proxy_store basic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 45 diff changeset	617 sub testdir() {
239a346b4913 Tests: add proxy_store basic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 45 diff changeset	618 my ($self) = @_;
239a346b4913 Tests: add proxy_store basic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 45 diff changeset	619 return $self->{_testdir};
239a346b4913 Tests: add proxy_store basic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 45 diff changeset	620 }
239a346b4913 Tests: add proxy_store basic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 45 diff changeset	621
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	622 sub test_globals() {
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	623 my ($self) = @_;
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	624
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	625 return $self->{_test_globals}
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	626 if defined $self->{_test_globals};
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	627
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	628 my $s = '';
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	629
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	630 $s .= "pid $self->{_testdir}/nginx.pid;\n";
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	631 $s .= "error_log $self->{_testdir}/error.log debug;\n";
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	632
375 5fdde9f755c9 Tests: a couple of auxiliary environment variables introduced. Andrei Belov <defan@nginx.com> parents: 348 diff changeset	633 $s .= $ENV{TEST_NGINX_GLOBALS}
5fdde9f755c9 Tests: a couple of auxiliary environment variables introduced. Andrei Belov <defan@nginx.com> parents: 348 diff changeset	634 if $ENV{TEST_NGINX_GLOBALS};
5fdde9f755c9 Tests: a couple of auxiliary environment variables introduced. Andrei Belov <defan@nginx.com> parents: 348 diff changeset	635
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	636 $s .= $self->test_globals_modules();
1027 6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	637 $s .= $self->test_globals_perl5lib() if $s !~ /env PERL5LIB/;
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	638
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	639 $self->{_test_globals} = $s;
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	640 }
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	641
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	642 sub test_globals_modules() {
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	643 my ($self) = @_;
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	644
856 d39e98893265 Tests: use TEST_NGINX_MODULES to find dynamic modules directory. Sergey Kandaurov <pluknet@nginx.com> parents: 854 diff changeset	645 my $modules = $ENV{TEST_NGINX_MODULES};
d39e98893265 Tests: use TEST_NGINX_MODULES to find dynamic modules directory. Sergey Kandaurov <pluknet@nginx.com> parents: 854 diff changeset	646
d39e98893265 Tests: use TEST_NGINX_MODULES to find dynamic modules directory. Sergey Kandaurov <pluknet@nginx.com> parents: 854 diff changeset	647 if (!defined $modules) {
d39e98893265 Tests: use TEST_NGINX_MODULES to find dynamic modules directory. Sergey Kandaurov <pluknet@nginx.com> parents: 854 diff changeset	648 my ($volume, $dir) = File::Spec->splitpath($NGINX);
d39e98893265 Tests: use TEST_NGINX_MODULES to find dynamic modules directory. Sergey Kandaurov <pluknet@nginx.com> parents: 854 diff changeset	649 $modules = File::Spec->catpath($volume, $dir, '');
d39e98893265 Tests: use TEST_NGINX_MODULES to find dynamic modules directory. Sergey Kandaurov <pluknet@nginx.com> parents: 854 diff changeset	650 }
d39e98893265 Tests: use TEST_NGINX_MODULES to find dynamic modules directory. Sergey Kandaurov <pluknet@nginx.com> parents: 854 diff changeset	651
d39e98893265 Tests: use TEST_NGINX_MODULES to find dynamic modules directory. Sergey Kandaurov <pluknet@nginx.com> parents: 854 diff changeset	652 $modules = File::Spec->rel2abs($modules);
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	653 $modules =~ s!\\!/!g if $^O eq 'MSWin32';
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	654
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	655 my $s = '';
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	656
1063 d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	657 $s .= "load_module $modules/ngx_http_geoip_module.so;\n"
d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	658 if $self->has_module('http_geoip\S+=dynamic');
d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	659
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	660 $s .= "load_module $modules/ngx_http_image_filter_module.so;\n"
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	661 if $self->has_module('image_filter\S+=dynamic');
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	662
865 f8f8304c8832 Tests: added support for perl dynamic module. Sergey Kandaurov <pluknet@nginx.com> parents: 861 diff changeset	663 $s .= "load_module $modules/ngx_http_perl_module.so;\n"
f8f8304c8832 Tests: added support for perl dynamic module. Sergey Kandaurov <pluknet@nginx.com> parents: 861 diff changeset	664 if $self->has_module('perl\S+=dynamic');
f8f8304c8832 Tests: added support for perl dynamic module. Sergey Kandaurov <pluknet@nginx.com> parents: 861 diff changeset	665
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	666 $s .= "load_module $modules/ngx_http_xslt_filter_module.so;\n"
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	667 if $self->has_module('xslt\S+=dynamic');
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	668
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	669 $s .= "load_module $modules/ngx_mail_module.so;\n"
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	670 if $self->has_module('mail=dynamic');
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	671
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	672 $s .= "load_module $modules/ngx_stream_module.so;\n"
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	673 if $self->has_module('stream=dynamic');
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	674
1063 d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	675 $s .= "load_module $modules/ngx_stream_geoip_module.so;\n"
d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	676 if $self->has_module('stream_geoip\S+=dynamic');
d62747c321a6 Tests: support dynamic geoip modules. Sergey Kandaurov <pluknet@nginx.com> parents: 1053 diff changeset	677
854 b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	678 return $s;
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	679 }
b237eda210e3 Tests: added support for dynamic modules. Sergey Kandaurov <pluknet@nginx.com> parents: 800 diff changeset	680
1027 6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	681 sub test_globals_perl5lib() {
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	682 my ($self) = @_;
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	683
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	684 return '' unless $self->has_module('perl');
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	685
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	686 my ($volume, $dir) = File::Spec->splitpath($NGINX);
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	687 my $objs = File::Spec->catpath($volume, $dir, '');
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	688
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	689 $objs = File::Spec->rel2abs($objs);
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	690 $objs =~ s!\\!/!g if $^O eq 'MSWin32';
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	691
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	692 return "env PERL5LIB=$objs/src/http/modules/perl:"
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	693 . "$objs/src/http/modules/perl/blib/arch;\n";
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	694 }
6ef255ed4bbc Tests: set "env PERL5LIB" modules paths fallback for perl module. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	695
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	696 sub test_globals_http() {
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	697 my ($self) = @_;
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	698
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	699 return $self->{_test_globals_http}
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	700 if defined $self->{_test_globals_http};
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	701
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	702 my $s = '';
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	703
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	704 $s .= "root $self->{_testdir};\n";
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	705 $s .= "access_log $self->{_testdir}/access.log;\n";
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	706 $s .= "client_body_temp_path $self->{_testdir}/client_body_temp;\n";
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	707
243 de7338227832 Tests: removed trailing spaces. Homutov Vladimir <vl@nginx.com> parents: 242 diff changeset	708 $s .= "fastcgi_temp_path $self->{_testdir}/fastcgi_temp;\n"
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	709 if $self->has_module('fastcgi');
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	710
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	711 $s .= "proxy_temp_path $self->{_testdir}/proxy_temp;\n"
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	712 if $self->has_module('proxy');
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	713
139 8b62dd9b8615 Tests: set temp paths for uwsgi and scgi modules. Maxim Dounin <mdounin@mdounin.ru> parents: 133 diff changeset	714 $s .= "uwsgi_temp_path $self->{_testdir}/uwsgi_temp;\n"
8b62dd9b8615 Tests: set temp paths for uwsgi and scgi modules. Maxim Dounin <mdounin@mdounin.ru> parents: 133 diff changeset	715 if $self->has_module('uwsgi');
8b62dd9b8615 Tests: set temp paths for uwsgi and scgi modules. Maxim Dounin <mdounin@mdounin.ru> parents: 133 diff changeset	716
8b62dd9b8615 Tests: set temp paths for uwsgi and scgi modules. Maxim Dounin <mdounin@mdounin.ru> parents: 133 diff changeset	717 $s .= "scgi_temp_path $self->{_testdir}/scgi_temp;\n"
8b62dd9b8615 Tests: set temp paths for uwsgi and scgi modules. Maxim Dounin <mdounin@mdounin.ru> parents: 133 diff changeset	718 if $self->has_module('scgi');
8b62dd9b8615 Tests: set temp paths for uwsgi and scgi modules. Maxim Dounin <mdounin@mdounin.ru> parents: 133 diff changeset	719
375 5fdde9f755c9 Tests: a couple of auxiliary environment variables introduced. Andrei Belov <defan@nginx.com> parents: 348 diff changeset	720 $s .= $ENV{TEST_NGINX_GLOBALS_HTTP}
5fdde9f755c9 Tests: a couple of auxiliary environment variables introduced. Andrei Belov <defan@nginx.com> parents: 348 diff changeset	721 if $ENV{TEST_NGINX_GLOBALS_HTTP};
5fdde9f755c9 Tests: a couple of auxiliary environment variables introduced. Andrei Belov <defan@nginx.com> parents: 348 diff changeset	722
107 1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	723 $self->{_test_globals_http} = $s;
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	724 }
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks. Maxim Dounin <mdounin@mdounin.ru> parents: 106 diff changeset	725
1609 f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	726 sub test_globals_stream() {
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	727 my ($self) = @_;
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	728
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	729 return $self->{_test_globals_stream}
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	730 if defined $self->{_test_globals_stream};
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	731
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	732 my $s = '';
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	733
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	734 $s .= $ENV{TEST_NGINX_GLOBALS_STREAM}
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	735 if $ENV{TEST_NGINX_GLOBALS_STREAM};
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	736
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	737 $self->{_test_globals_stream} = $s;
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	738 }
f3ba4c74de31 Tests: added TEST_GLOBALS_STREAM variable support. Andrei Belov <defan@nginx.com> parents: 1593 diff changeset	739
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	740 ###############################################################################
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	741
68 5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	742 sub log_core {
67 5d16f380cd75 Tests: don't output in/out unless TEST_NGINX_VERBOSE set. Maxim Dounin <mdounin@mdounin.ru> parents: 51 diff changeset	743 return unless $ENV{TEST_NGINX_VERBOSE};
68 5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	744 my ($prefix, $msg) = @_;
5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	745 ($prefix, $msg) = ('', $prefix) unless defined $msg;
5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	746 $prefix .= ' ' if length($prefix) > 0;
164 f602276b9bb9 Tests: truncate huge messages while logging. Maxim Dounin <mdounin@mdounin.ru> parents: 163 diff changeset	747
281 53068d38a3ce Tests: truncate messages to 2048 bytes instead of 4096. Maxim Dounin <mdounin@mdounin.ru> parents: 275 diff changeset	748 if (length($msg) > 2048) {
53068d38a3ce Tests: truncate messages to 2048 bytes instead of 4096. Maxim Dounin <mdounin@mdounin.ru> parents: 275 diff changeset	749 $msg = substr($msg, 0, 2048)
53068d38a3ce Tests: truncate messages to 2048 bytes instead of 4096. Maxim Dounin <mdounin@mdounin.ru> parents: 275 diff changeset	750 . "(...logged only 2048 of " . length($msg)
165 fca70f483608 Tests: fix previous commit (print original message length). Maxim Dounin <mdounin@mdounin.ru> parents: 164 diff changeset	751 . " bytes)";
164 f602276b9bb9 Tests: truncate huge messages while logging. Maxim Dounin <mdounin@mdounin.ru> parents: 163 diff changeset	752 }
f602276b9bb9 Tests: truncate huge messages while logging. Maxim Dounin <mdounin@mdounin.ru> parents: 163 diff changeset	753
68 5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	754 $msg =~ s/^/# $prefix/gm;
5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	755 $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe;
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	756 $msg .= "\n" unless $msg =~ /\n\Z/;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	757 print $msg;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	758 }
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	759
68 5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	760 sub log_out {
5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	761 log_core('>>', @_);
5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	762 }
5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	763
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	764 sub log_in {
68 5f56040c39df Tests: smtp xclient tests. Maxim Dounin <mdounin@mdounin.ru> parents: 67 diff changeset	765 log_core('<<', @_);
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	766 }
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	767
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	768 ###############################################################################
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	769
79 d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	770 sub http_get($;%) {
d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	771 my ($url, %extra) = @_;
d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	772 return http(<<EOF, %extra);
29 71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	773 GET $url HTTP/1.0
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	774 Host: localhost
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	775
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	776 EOF
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	777 }
71ea39729fa0 Tests: memcached module generic tests. Maxim Dounin <mdounin@mdounin.ru> parents: 28 diff changeset	778
79 d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	779 sub http_head($;%) {
d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	780 my ($url, %extra) = @_;
d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	781 return http(<<EOF, %extra);
41 1b3c22a87e5d Tests: add some HEAD tests. Maxim Dounin <mdounin@mdounin.ru> parents: 37 diff changeset	782 HEAD $url HTTP/1.0
1b3c22a87e5d Tests: add some HEAD tests. Maxim Dounin <mdounin@mdounin.ru> parents: 37 diff changeset	783 Host: localhost
1b3c22a87e5d Tests: add some HEAD tests. Maxim Dounin <mdounin@mdounin.ru> parents: 37 diff changeset	784
1b3c22a87e5d Tests: add some HEAD tests. Maxim Dounin <mdounin@mdounin.ru> parents: 37 diff changeset	785 EOF
1b3c22a87e5d Tests: add some HEAD tests. Maxim Dounin <mdounin@mdounin.ru> parents: 37 diff changeset	786 }
1b3c22a87e5d Tests: add some HEAD tests. Maxim Dounin <mdounin@mdounin.ru> parents: 37 diff changeset	787
79 d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	788 sub http($;%) {
d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	789 my ($request, %extra) = @_;
438 60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	790
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	791 my $s = http_start($request, %extra);
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	792
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	793 return $s if $extra{start} or !defined $s;
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	794 return http_end($s);
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	795 }
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	796
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	797 sub http_start($;%) {
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	798 my ($request, %extra) = @_;
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	799 my $s;
270 f857180657c9 Tests: whitespace, no functional changes. Maxim Dounin <mdounin@mdounin.ru> parents: 268 diff changeset	800
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	801 eval {
96 ecff5407867c Tests: better handle unexpected connection close from nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 93 diff changeset	802 local $SIG{ALRM} = sub { die "timeout\n" };
ecff5407867c Tests: better handle unexpected connection close from nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 93 diff changeset	803 local $SIG{PIPE} = sub { die "sigpipe\n" };
628 0940773278c7 Tests: backed out previous change, adjusted general timeouts. Sergey Kandaurov <pluknet@nginx.com> parents: 621 diff changeset	804 alarm(8);
270 f857180657c9 Tests: whitespace, no functional changes. Maxim Dounin <mdounin@mdounin.ru> parents: 268 diff changeset	805
438 60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	806 $s = $extra{socket} \|\| IO::Socket::INET->new(
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	807 Proto => 'tcp',
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 963 diff changeset	808 PeerAddr => '127.0.0.1:' . port(8080)
253 f440a8acbf39 Tests: report connection errors. Maxim Dounin <mdounin@mdounin.ru> parents: 243 diff changeset	809 )
f440a8acbf39 Tests: report connection errors. Maxim Dounin <mdounin@mdounin.ru> parents: 243 diff changeset	810 or die "Can't connect to nginx: $!\n";
270 f857180657c9 Tests: whitespace, no functional changes. Maxim Dounin <mdounin@mdounin.ru> parents: 268 diff changeset	811
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	812 log_out($request);
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	813 $s->print($request);
270 f857180657c9 Tests: whitespace, no functional changes. Maxim Dounin <mdounin@mdounin.ru> parents: 268 diff changeset	814
79 d5330d926fac Tests: add test for limit_req not clearing write timeout on delay. Maxim Dounin <mdounin@mdounin.ru> parents: 77 diff changeset	815 select undef, undef, undef, $extra{sleep} if $extra{sleep};
87 f2d09159a8f3 Tests: proxy_store leaving temporary files bug test. Maxim Dounin <mdounin@mdounin.ru> parents: 79 diff changeset	816 return '' if $extra{aborted};
270 f857180657c9 Tests: whitespace, no functional changes. Maxim Dounin <mdounin@mdounin.ru> parents: 268 diff changeset	817
271 1a6eef7ac914 Tests: test for r->request_body->buf incorrect reuse. Maxim Dounin <mdounin@mdounin.ru> parents: 270 diff changeset	818 if ($extra{body}) {
1a6eef7ac914 Tests: test for r->request_body->buf incorrect reuse. Maxim Dounin <mdounin@mdounin.ru> parents: 270 diff changeset	819 log_out($extra{body});
1a6eef7ac914 Tests: test for r->request_body->buf incorrect reuse. Maxim Dounin <mdounin@mdounin.ru> parents: 270 diff changeset	820 $s->print($extra{body});
1a6eef7ac914 Tests: test for r->request_body->buf incorrect reuse. Maxim Dounin <mdounin@mdounin.ru> parents: 270 diff changeset	821 }
1a6eef7ac914 Tests: test for r->request_body->buf incorrect reuse. Maxim Dounin <mdounin@mdounin.ru> parents: 270 diff changeset	822
438 60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	823 alarm(0);
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	824 };
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	825 alarm(0);
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	826 if ($@) {
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	827 log_in("died: $@");
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	828 return undef;
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	829 }
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	830
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	831 return $s;
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	832 }
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	833
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	834 sub http_end($;%) {
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	835 my ($s) = @_;
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	836 my $reply;
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	837
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	838 eval {
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	839 local $SIG{ALRM} = sub { die "timeout\n" };
60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	840 local $SIG{PIPE} = sub { die "sigpipe\n" };
628 0940773278c7 Tests: backed out previous change, adjusted general timeouts. Sergey Kandaurov <pluknet@nginx.com> parents: 621 diff changeset	841 alarm(8);
438 60888e2c3f5a Tests: new http_start() and http_end() functions. Sergey Kandaurov <pluknet@nginx.com> parents: 415 diff changeset	842
270 f857180657c9 Tests: whitespace, no functional changes. Maxim Dounin <mdounin@mdounin.ru> parents: 268 diff changeset	843 local $/;
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	844 $reply = $s->getline();
270 f857180657c9 Tests: whitespace, no functional changes. Maxim Dounin <mdounin@mdounin.ru> parents: 268 diff changeset	845
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	846 alarm(0);
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	847 };
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	848 alarm(0);
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	849 if ($@) {
96 ecff5407867c Tests: better handle unexpected connection close from nginx. Maxim Dounin <mdounin@mdounin.ru> parents: 93 diff changeset	850 log_in("died: $@");
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	851 return undef;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	852 }
270 f857180657c9 Tests: whitespace, no functional changes. Maxim Dounin <mdounin@mdounin.ru> parents: 268 diff changeset	853
209 5137f27935b4 Tests: log timeouts in IMAP/POP3/SMTP. Maxim Dounin <mdounin@mdounin.ru> parents: 195 diff changeset	854 log_in($reply);
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	855 return $reply;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	856 }
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	857
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	858 ###############################################################################
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	859
93 5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	860 sub http_gzip_request {
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	861 my ($url) = @_;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	862 my $r = http(<<EOF);
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	863 GET $url HTTP/1.1
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	864 Host: localhost
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	865 Connection: close
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	866 Accept-Encoding: gzip
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	867
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	868 EOF
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	869 }
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	870
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	871 sub http_content {
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	872 my ($text) = @_;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	873
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	874 return undef if !defined $text;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	875
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	876 if ($text !~ /(.?)\x0d\x0a?\x0d\x0a?(.)/ms) {
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	877 return undef;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	878 }
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	879
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	880 my ($headers, $body) = ($1, $2);
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	881
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	882 if ($headers !~ /Transfer-Encoding: chunked/i) {
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	883 return $body;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	884 }
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	885
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	886 my $content = '';
1613 d7ec131d305a Tests: reworked proxy_unfinished.t to use http_content(). Maxim Dounin <mdounin@mdounin.ru> parents: 1612 diff changeset	887 my $len = -1;
d7ec131d305a Tests: reworked proxy_unfinished.t to use http_content(). Maxim Dounin <mdounin@mdounin.ru> parents: 1612 diff changeset	888
93 5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	889 while ($body =~ /\G\x0d?\x0a?([0-9a-f]+)\x0d\x0a?/gcmsi) {
1613 d7ec131d305a Tests: reworked proxy_unfinished.t to use http_content(). Maxim Dounin <mdounin@mdounin.ru> parents: 1612 diff changeset	890 $len = hex($1);
93 5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	891 $content .= substr($body, pos($body), $len);
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	892 pos($body) += $len;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	893 }
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	894
1613 d7ec131d305a Tests: reworked proxy_unfinished.t to use http_content(). Maxim Dounin <mdounin@mdounin.ru> parents: 1612 diff changeset	895 if ($len != 0) {
d7ec131d305a Tests: reworked proxy_unfinished.t to use http_content(). Maxim Dounin <mdounin@mdounin.ru> parents: 1612 diff changeset	896 $content .= '[no-last-chunk]';
d7ec131d305a Tests: reworked proxy_unfinished.t to use http_content(). Maxim Dounin <mdounin@mdounin.ru> parents: 1612 diff changeset	897 }
d7ec131d305a Tests: reworked proxy_unfinished.t to use http_content(). Maxim Dounin <mdounin@mdounin.ru> parents: 1612 diff changeset	898
93 5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	899 return $content;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	900 }
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	901
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	902 sub http_gzip_like {
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	903 my ($text, $re, $name) = @_;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	904
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	905 SKIP: {
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	906 eval { require IO::Uncompress::Gunzip; };
601 3a9a7b4f27f0 Tests: properly skip tests if run without IO::Uncompress::Gunzip. Sergey Kandaurov <pluknet@nginx.com> parents: 592 diff changeset	907 Test::More::skip(
93 5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	908 "IO::Uncompress::Gunzip not installed", 1) if $@;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	909
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	910 my $in = http_content($text);
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	911 my $out;
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	912
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	913 IO::Uncompress::Gunzip::gunzip(\$in => \$out);
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	914
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	915 Test::More->builder->like($out, $re, $name);
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	916 }
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	917 }
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	918
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	919 ###############################################################################
5276d85d5040 Tests: add basic gzip tests. Maxim Dounin <mdounin@mdounin.ru> parents: 87 diff changeset	920
5 4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	921 1;
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	922
4d75bdb05ecf Tests: some generic code and ssi tests. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	923 ###############################################################################

Mercurial > hg > nginx-tests

annotate lib/Test/Nginx.pm @ 1851:0351dee227a8