nginx-tests: syslog.t annotate

annotate syslog.t @ 1236:93f749c1d5c5

Tests: fixed parallel tests execution with UDP. Previously, when checking ports availability, a UDP socket was always created first, then a TCP socket was created. On success, one of UDP and TCP sockets was closed (depending on the "udp" option) and the second one was used to busy this port in other scripts. This lead to the following problem: in an attempt to reopen a UDP socket used in a given testing script it could be stolen by another script as part of checking ports availability. To solve this problem, UDP and TCP ports were split into two non-overlapping ranges: TCP ports are only used in the range 8000-8499, and UDP ports - in the range 8500-8999. In addition, the order of creating sockets in UDP tests has been reversed: now a TCP socket used as a lock precedes a UDP socket.

author	Andrey Zelenkov <zelenkov@nginx.com>
date	Thu, 26 Oct 2017 18:00:21 +0300
parents	bef8be8a6224
children	e4974af3fb12

rev	line source
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1 #!/usr/bin/perl
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3 # (C) Nginx, Inc.
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	4
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	5 # Tests for syslog.
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	6 # Various log levels emitted with limit_req_log_level.
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	7
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	8 ###############################################################################
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	9
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	10 use warnings;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	11 use strict;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	12
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	13 use Test::More;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	14
1127 6620cd57a96a Tests: replaced all occurrences of vec/select API with IO::Select. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	15 use IO::Select;
6620cd57a96a Tests: replaced all occurrences of vec/select API with IO::Select. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	16
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	17 BEGIN { use FindBin; chdir($FindBin::Bin); }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	18
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	19 use lib 'lib';
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	20 use Test::Nginx;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	21
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	22 ###############################################################################
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	23
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	24 select STDERR; $\| = 1;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	25 select STDOUT; $\| = 1;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	26
408 82b15c81978e Tests: skipped tests on win32 that use shared memory. Sergey Kandaurov <pluknet@nginx.com> parents: 404 diff changeset	27 plan(skip_all => 'win32') if $^O eq 'MSWin32';
82b15c81978e Tests: skipped tests on win32 that use shared memory. Sergey Kandaurov <pluknet@nginx.com> parents: 404 diff changeset	28
1020 196d33c2bb45 Tests: removed TODO and try_run() checks for legacy versions. Andrey Zelenkov <zelenkov@nginx.com> parents: 974 diff changeset	29 my $t = Test::Nginx->new()->has(qw/http limit_req/)->plan(59);
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	30
771 abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	31 $t->write_file_expand('nginx.conf', <<'EOF');
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	32
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	33 %%TEST_GLOBALS%%
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	34
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	35 error_log syslog:server=127.0.0.1:%%PORT_8081_UDP%% info;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	36 error_log %%TESTDIR%%/f_glob.log info;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	37
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	38 daemon off;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	39
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	40 events {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	41 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	42
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	43 http {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	44 %%TEST_GLOBALS_HTTP%%
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	45
503 071e8941e3bf Tests: reduce shared memory zone sizes. Maxim Dounin <mdounin@mdounin.ru> parents: 467 diff changeset	46 limit_req_zone $binary_remote_addr zone=one:1m rate=1r/m;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	47
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	48 log_format empty "";
445 62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	49 log_format logf "$uri:$status";
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	50
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	51 error_log syslog:server=127.0.0.1:%%PORT_8082_UDP%% info;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	52 error_log %%TESTDIR%%/f_http.log info;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	53
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	54 server {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	55 listen 127.0.0.1:8080;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	56 server_name localhost;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	57
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	58 location /e {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	59 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	60 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	61 location /a {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	62 access_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	63 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	64 location /ef {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	65 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%,facility=user;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	66 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	67 location /es {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	68 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%,severity=alert;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	69 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	70 location /et {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	71 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%,tag=SEETHIS;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	72 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	73 location /af {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	74 access_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%,facility=user;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	75 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	76 location /as {
788 1f48ed26b49a Tests: interchanged syslog parameters for better coverage. Sergey Kandaurov <pluknet@nginx.com> parents: 771 diff changeset	77 # put severity inside to catch possible parsing programming errors
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	78 access_log syslog:severity=alert,server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	79 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	80 location /at {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	81 access_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%,tag=SEETHIS;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	82 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	83 location /e2 {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	84 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	85 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	86 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	87 location /a2 {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	88 access_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	89 access_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	90 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	91 location /a_logf {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	92 access_log syslog:server=127.0.0.1:%%PORT_8084_UDP%% logf;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	93 }
445 62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	94 location /if {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	95 access_log syslog:server=127.0.0.1:%%PORT_8083_UDP%% logf
952 e9064d691790 Tests: converted tests to run in parallel. Andrey Zelenkov <zelenkov@nginx.com> parents: 921 diff changeset	96 if=$arg_logme;
445 62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	97 }
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	98
771 abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	99 location /nohostname {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	100 access_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%,nohostname;
771 abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	101 }
abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	102
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	103 location /debug {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	104 limit_req zone=one;
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	105 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%% debug;
507 34280f6b0bc6 Tests: trailing spaces. Maxim Dounin <mdounin@mdounin.ru> parents: 503 diff changeset	106 }
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	107 location /info {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	108 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	109 limit_req_log_level info;
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	110 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%% info;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	111 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	112 location /notice {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	113 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	114 limit_req_log_level notice;
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	115 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%% notice;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	116 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	117 location /warn {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	118 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	119 limit_req_log_level warn;
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	120 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%% warn;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	121 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	122 location /error {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	123 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	124 limit_req_log_level error;
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	125 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	126 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	127 location /low {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	128 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%% warn;
882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	129 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	130 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	131 location /dup {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	132 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	133 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	134 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	135 location /high {
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	136 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%% emerg;
882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	137 error_log syslog:server=127.0.0.1:%%PORT_8084_UDP%%;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	138 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	139 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	140 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	141
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	142 EOF
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	143
974 882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	144 $t->run_daemon(\&syslog_daemon, port(8081), $t, 's_glob.log');
882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	145 $t->run_daemon(\&syslog_daemon, port(8082), $t, 's_http.log');
882267679006 Tests: simplified parallel modifications in tests. Andrey Zelenkov <zelenkov@nginx.com> parents: 952 diff changeset	146 $t->run_daemon(\&syslog_daemon, port(8083), $t, 's_if.log');
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	147
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	148 $t->waitforfile($t->testdir . '/s_glob.log');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	149 $t->waitforfile($t->testdir . '/s_http.log');
445 62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	150 $t->waitforfile($t->testdir . '/s_if.log');
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	151
1020 196d33c2bb45 Tests: removed TODO and try_run() checks for legacy versions. Andrey Zelenkov <zelenkov@nginx.com> parents: 974 diff changeset	152 $t->run();
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	153
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	154 ###############################################################################
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	155
1128 bef8be8a6224 Tests: avoid reopening a receiving UDP socket in syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1127 diff changeset	156 my $s = IO::Socket::INET->new(
bef8be8a6224 Tests: avoid reopening a receiving UDP socket in syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1127 diff changeset	157 Proto => 'udp',
bef8be8a6224 Tests: avoid reopening a receiving UDP socket in syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1127 diff changeset	158 LocalAddr => '127.0.0.1:' . port(8084)
bef8be8a6224 Tests: avoid reopening a receiving UDP socket in syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1127 diff changeset	159 )
bef8be8a6224 Tests: avoid reopening a receiving UDP socket in syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1127 diff changeset	160 or die "Can't open syslog socket: $!";
bef8be8a6224 Tests: avoid reopening a receiving UDP socket in syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: 1127 diff changeset	161
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	162 parse_syslog_message('error_log', get_syslog('/e'));
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	163 parse_syslog_message('access_log', get_syslog('/a'));
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	164
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	165 like(get_syslog('/ef'), qr/^<11>/, 'error_log facility');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	166 like(get_syslog('/es'), qr/^<187>/, 'error_log severity');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	167 like(get_syslog('/et'), qr/SEETHIS:/, 'error_log tag');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	168
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	169 like(get_syslog('/af'), qr/^<14>/, 'access_log facility');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	170 like(get_syslog('/as'), qr/^<185>/, 'access_log severity');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	171 like(get_syslog('/at'), qr/SEETHIS:/, 'access_log tag');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	172
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	173
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	174 like(get_syslog('/e'),
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	175 qr/nginx: \d{4}\/\d{2}\/\d{2} \d{2}:\d{2}:\d{2} \[error\]/,
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	176 'error_log format');
445 62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	177 like(get_syslog('/a_logf'), qr/nginx: \/a_logf:404$/, 'access_log log_format');
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	178
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	179 my @lines = split /<\d+>/, get_syslog('/a2');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	180 is($lines[1], $lines[2], 'access_log many');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	181
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	182 @lines = split /<\d+>/, get_syslog('/e2');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	183 is($lines[1], $lines[2], 'error_log many');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	184
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	185 # error_log log levels
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	186
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	187 SKIP: {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	188
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	189 skip "no --with-debug", 1 unless $t->has_module('--with-debug');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	190
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	191 isnt(syslog_lines('/debug', '[debug]'), 0, 'debug');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	192
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	193 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	194
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	195 # charge limit_req
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	196
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	197 get_syslog('/info');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	198
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	199 is(syslog_lines('/info', '[info]'), 1, 'info');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	200 is(syslog_lines('/notice', '[notice]'), 1, 'notice');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	201 is(syslog_lines('/warn', '[warn]'), 1, 'warn');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	202 is(syslog_lines('/error', '[error]'), 1, 'error');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	203
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	204 # count log messages emitted with various error_log levels
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	205
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	206 is(syslog_lines('/low', '[error]'), 2, 'low');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	207 is(syslog_lines('/dup', '[error]'), 2, 'dup');
921 bc9e519ab3bc Tests: added missing character in regex in syslog.t. Andrey Zelenkov <zelenkov@nginx.com> parents: 788 diff changeset	208 is(syslog_lines('/high', '[error]'), 1, 'high');
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	209
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	210 # check for the presence of the syslog messages in the global and http contexts
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	211
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	212 is_deeply(levels($t, 's_glob.log'), levels($t, 'f_glob.log'), 'master syslog');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	213 is_deeply(levels($t, 's_http.log'), levels($t, 'f_http.log'), 'http syslog');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	214
445 62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	215 http_get('/if');
62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	216 http_get('/if/empty?logme=');
62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	217 http_get('/if/zero?logme=0');
62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	218 http_get('/if/good?logme=1');
62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	219 http_get('/if/work?logme=yes');
62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	220
62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	221 get_syslog('/a');
62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	222
467 43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 466 diff changeset	223 like($t->read_file('s_if.log'), qr/good:404.*work:404/s, 'syslog if success');
43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 466 diff changeset	224 unlike($t->read_file('s_if.log'), qr/(if:\|empty:\|zero:)404/, 'syslog if fail');
445 62d1f96c5ff4 Tests: syslog "if=" tests. Sergey Kandaurov <pluknet@nginx.com> parents: 408 diff changeset	225
771 abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	226 like(get_syslog('/nohostname'),
abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	227 qr/^<(\d{1,3})> # PRI
abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	228 ([A-Z][a-z]{2})\s # mon
abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	229 ([ \d]\d)\s(\d{2}):(\d{2}):(\d{2})\s # date
abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	230 (\w{1,32}):\s # tag
abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	231 (.*)/x, # MSG
abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	232 'nohostname');
abe795720deb Tests: added test for syslog nohostname parameter. Sergey Kandaurov <pluknet@nginx.com> parents: 568 diff changeset	233
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	234 ###############################################################################
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	235
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	236 sub syslog_lines {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	237 my ($uri, $pattern, $port) = @_;
952 e9064d691790 Tests: converted tests to run in parallel. Andrey Zelenkov <zelenkov@nginx.com> parents: 921 diff changeset	238 return map { $_ =~ /\Q$pattern\E/g } (get_syslog($uri));
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	239 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	240
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	241 sub levels {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	242 my ($t, $file) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	243 my %levels_hash;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	244
467 43e05ac6c23c Tests: the read_file function added in Test::Nginx. Sergey Kandaurov <pluknet@nginx.com> parents: 466 diff changeset	245 map { $levels_hash{$_}++; } ($t->read_file($file) =~ /(\[\w+\])/g);
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	246
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	247 return \%levels_hash;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	248 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	249
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	250 sub get_syslog {
952 e9064d691790 Tests: converted tests to run in parallel. Andrey Zelenkov <zelenkov@nginx.com> parents: 921 diff changeset	251 my ($uri) = @_;
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	252 my $data = '';
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	253
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	254 http_get($uri);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	255
1127 6620cd57a96a Tests: replaced all occurrences of vec/select API with IO::Select. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	256 IO::Select->new($s)->can_read(1);
6620cd57a96a Tests: replaced all occurrences of vec/select API with IO::Select. Sergey Kandaurov <pluknet@nginx.com> parents: 1020 diff changeset	257 while (IO::Select->new($s)->can_read(0.1)) {
404 997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	258 my $buffer;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	259 sysread($s, $buffer, 4096);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	260 $data .= $buffer;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	261 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	262 return $data;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	263 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	264
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	265 sub parse_syslog_message {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	266 my ($desc, $line) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	267
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	268 unless ($line) {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	269 fail("$desc timeout in receiving syslog");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	270 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	271
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	272 my @months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug',
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	273 'Sep', 'Oct', 'Nov', 'Dec');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	274
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	275 my ($pri, $mon, $mday, $hour, $minute, $sec, $host, $tag, $msg) =
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	276 $line =~ /^<(\d{1,3})> # PRI
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	277 ([A-Z][a-z]{2})\s # mon
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	278 ([ \d]\d)\s(\d{2}):(\d{2}):(\d{2})\s # date
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	279 ([\S]*)\s # host
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	280 (\w{1,32}):\s # tag
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	281 (.*)/x; # MSG
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	282
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	283 my $sev = $pri & 0x07;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	284 my $fac = ($pri & 0x03f8) >> 3;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	285
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	286 ok(defined($pri), "$desc has PRI");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	287 ok($sev >= 0 && $sev <= 7, "$desc valid severity");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	288 ok($fac >= 0 && $fac < 24, "$desc valid facility");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	289
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	290 ok(defined($mon), "$desc has month");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	291 ok((grep $mon, @months), "$desc valid month");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	292
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	293 ok(defined($mday), "$desc has day");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	294 ok($mday <= 31, "$desc valid day");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	295
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	296 ok(defined($hour), "$desc has hour");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	297 ok($hour < 24, "$desc valid hour");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	298
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	299 ok(defined($minute), "$desc has minutes");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	300 ok($minute < 60, "$desc valid minutes");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	301
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	302 ok(defined($sec), "$desc has seconds");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	303 ok($sec < 60, "$desc valid seconds");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	304
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	305 ok(defined($host), "$desc has host");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	306 chomp(my $hostname = lc `hostname`);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	307 is($host , $hostname, "$desc valid host");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	308
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	309 ok(defined($tag), "$desc has tag");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	310 like($tag, qr'\w+', "$desc valid tag");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	311
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	312 ok(length($msg) > 0, "$desc valid CONTENT");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	313 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	314
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	315 ###############################################################################
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	316
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	317 sub syslog_daemon {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	318 my ($port, $t, $file) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	319
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	320 my $s = IO::Socket::INET->new(
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	321 Proto => 'udp',
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	322 LocalAddr => "127.0.0.1:$port"
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	323 );
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	324
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	325 open my $fh, '>', $t->testdir() . '/' . $file;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	326 select $fh; $\| = 1;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	327
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	328 while (1) {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	329 my $buffer;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	330 $s->recv($buffer, 4096);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	331 print $fh $buffer . "\n";
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	332 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	333 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	334
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	335 ###############################################################################

Mercurial > hg > nginx-tests

annotate syslog.t @ 1236:93f749c1d5c5