nginx-tests: syslog.t annotate

author	Sergey Kandaurov <pluknet@nginx.com>
date	Wed, 21 May 2014 17:43:42 +0400
parents
children	82b15c81978e

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
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	15 BEGIN { use FindBin; chdir($FindBin::Bin); }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	16
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	17 use lib 'lib';
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	18 use Test::Nginx;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	19
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	20 ###############################################################################
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 select STDERR; $\| = 1;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	23 select STDOUT; $\| = 1;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	24
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	25 my $t = Test::Nginx->new()->has(qw/http limit_req/);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	26
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	27 plan(skip_all => 'no syslog') unless $t->has_version('1.7.1');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	28
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	29 $t->plan(56)->write_file_expand('nginx.conf', <<'EOF');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	30
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	31 %%TEST_GLOBALS%%
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 error_log syslog:server=127.0.0.1:8083 info;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	34 error_log %%TESTDIR%%/f_glob.log info;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	35
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	36 daemon off;
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 events {
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
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	41 http {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	42 %%TEST_GLOBALS_HTTP%%
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	43
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	44 limit_req_zone $binary_remote_addr zone=one:10m rate=1r/m;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	45
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	46 log_format empty "";
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	47 log_format logf "$status";
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	48
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	49 error_log syslog:server=127.0.0.1:8084 info;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	50 error_log %%TESTDIR%%/f_http.log info;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	51
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	52 server {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	53 listen 127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	54 server_name localhost;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	55
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	56 location /e {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	57 error_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	58 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	59 location /a {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	60 access_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	61 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	62 location /ef {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	63 error_log syslog:server=127.0.0.1:8080,facility=user;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	64 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	65 location /es {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	66 error_log syslog:server=127.0.0.1:8080,severity=alert;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	67 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	68 location /et {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	69 error_log syslog:server=127.0.0.1:8080,tag=SEETHIS;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	70 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	71 location /af {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	72 access_log syslog:server=127.0.0.1:8080,facility=user;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	73 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	74 location /as {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	75 access_log syslog:server=127.0.0.1:8080,severity=alert;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	76 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	77 location /at {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	78 access_log syslog:server=127.0.0.1:8080,tag=SEETHIS;
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 /e2 {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	81 error_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	82 error_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	83 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	84 location /a2 {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	85 access_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	86 access_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	87 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	88 location /a_logf {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	89 access_log syslog:server=127.0.0.1:8080 logf;
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
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	92 location /debug {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	93 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	94 error_log syslog:server=127.0.0.1:8080 debug;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	95 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	96 location /info {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	97 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	98 limit_req_log_level info;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	99 error_log syslog:server=127.0.0.1:8080 info;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	100 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	101 location /notice {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	102 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	103 limit_req_log_level notice;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	104 error_log syslog:server=127.0.0.1:8080 notice;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	105 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	106 location /warn {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	107 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	108 limit_req_log_level warn;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	109 error_log syslog:server=127.0.0.1:8080 warn;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	110 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	111 location /error {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	112 limit_req zone=one;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	113 limit_req_log_level error;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	114 error_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	115 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	116 location /low {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	117 error_log syslog:server=127.0.0.1:8080 warn;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	118 error_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	119 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	120 location /dup {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	121 error_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	122 error_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	123 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	124 location /high {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	125 error_log syslog:server=127.0.0.1:8080 emerg;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	126 error_log syslog:server=127.0.0.1:8080;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	127 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	128 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	129 }
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 EOF
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	132
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	133 $t->run_daemon(\&syslog_daemon, 8083, $t, 's_glob.log');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	134 $t->run_daemon(\&syslog_daemon, 8084, $t, 's_http.log');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	135
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	136 $t->waitforfile($t->testdir . '/s_glob.log');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	137 $t->waitforfile($t->testdir . '/s_http.log');
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 $t->run();
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
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	143 parse_syslog_message('error_log', get_syslog('/e'));
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	144 parse_syslog_message('access_log', get_syslog('/a'));
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	145
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	146 like(get_syslog('/ef'), qr/^<11>/, 'error_log facility');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	147 like(get_syslog('/es'), qr/^<187>/, 'error_log severity');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	148 like(get_syslog('/et'), qr/SEETHIS:/, 'error_log tag');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	149
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	150 like(get_syslog('/af'), qr/^<14>/, 'access_log facility');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	151 like(get_syslog('/as'), qr/^<185>/, 'access_log severity');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	152 like(get_syslog('/at'), qr/SEETHIS:/, 'access_log tag');
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 like(get_syslog('/e'),
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	156 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	157 'error_log format');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	158 like(get_syslog('/a_logf'), qr/nginx: 404$/, 'access_log log_format');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	159
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	160 my @lines = split /<\d+>/, get_syslog('/a2');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	161 is($lines[1], $lines[2], 'access_log many');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	162
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	163 @lines = split /<\d+>/, get_syslog('/e2');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	164 is($lines[1], $lines[2], 'error_log many');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	165
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	166 # error_log log levels
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	167
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	168 SKIP: {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	169
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	170 skip "no --with-debug", 1 unless $t->has_module('--with-debug');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	171
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	172 isnt(syslog_lines('/debug', '[debug]'), 0, 'debug');
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 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	175
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	176 # charge limit_req
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	177
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	178 get_syslog('/info');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	179
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	180 is(syslog_lines('/info', '[info]'), 1, 'info');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	181 is(syslog_lines('/notice', '[notice]'), 1, 'notice');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	182 is(syslog_lines('/warn', '[warn]'), 1, 'warn');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	183 is(syslog_lines('/error', '[error]'), 1, 'error');
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 # count log messages emitted with various error_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 is(syslog_lines('/low', '[error]'), 2, 'low');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	188 is(syslog_lines('/dup', '[error]'), 2, 'dup');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	189 is(syslog_lines('/high', '[error'), 1, 'high');
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 # 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	192
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	193 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	194 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	195
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
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	198 sub syslog_lines {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	199 my ($uri, $pattern, $port) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	200 return map { $_ =~ /\Q$pattern\E/g } (get_syslog($uri, $port));
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	201 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	202
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	203 sub levels {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	204 my ($t, $file) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	205 my %levels_hash;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	206
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	207 map { $levels_hash{$_}++; } (read_file($t, $file) =~ /(\[\w+\])/g);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	208
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	209 return \%levels_hash;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	210 }
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 sub get_syslog {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	213 my ($uri, $port) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	214 my ($s);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	215 my $rfd = '';
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	216 my $data = '';
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	217
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	218 $port = 8080 unless defined $port;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	219
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	220 eval {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	221 local $SIG{ALRM} = sub { die "timeout\n" };
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	222 local $SIG{PIPE} = sub { die "sigpipe\n" };
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	223 alarm(1);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	224 $s = IO::Socket::INET->new(
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	225 Proto => 'udp',
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	226 LocalAddr => "127.0.0.1:$port"
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	227 );
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	228 alarm(0);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	229 };
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	230 alarm(0);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	231 if ($@) {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	232 log_in("died: $@");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	233 return undef;
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 http_get($uri);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	237
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	238 vec($rfd, fileno($s), 1) = 1;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	239 select $rfd, undef, undef, 1;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	240 while (select($rfd, undef, undef, 0.1) > 0
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	241 && vec($rfd, fileno($s), 1))
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	242 {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	243 my $buffer;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	244 sysread($s, $buffer, 4096);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	245 $data .= $buffer;
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 $s->close();
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	248 return $data;
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
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	251 sub read_file {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	252 my ($t, $file) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	253 my $path = $t->testdir() . '/' . $file;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	254
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	255 open my $fh, '<', $path or return "$!";
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	256 local $/;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	257 my $content = <$fh>;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	258 close $fh;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	259 chop $content;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	260 return $content;
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
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	263 sub parse_syslog_message {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	264 my ($desc, $line) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	265
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	266 unless ($line) {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	267 fail("$desc timeout in receiving syslog");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	268 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	269
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	270 my @months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug',
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	271 'Sep', 'Oct', 'Nov', 'Dec');
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	272
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	273 my ($pri, $mon, $mday, $hour, $minute, $sec, $host, $tag, $msg) =
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	274 $line =~ /^<(\d{1,3})> # PRI
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	275 ([A-Z][a-z]{2})\s # mon
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	276 ([ \d]\d)\s(\d{2}):(\d{2}):(\d{2})\s # date
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	277 ([\S]*)\s # host
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	278 (\w{1,32}):\s # tag
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	279 (.*)/x; # MSG
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	280
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	281 my $sev = $pri & 0x07;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	282 my $fac = ($pri & 0x03f8) >> 3;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	283
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	284 ok(defined($pri), "$desc has PRI");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	285 ok($sev >= 0 && $sev <= 7, "$desc valid severity");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	286 ok($fac >= 0 && $fac < 24, "$desc valid facility");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	287
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	288 ok(defined($mon), "$desc has month");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	289 ok((grep $mon, @months), "$desc valid month");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	290
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	291 ok(defined($mday), "$desc has day");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	292 ok($mday <= 31, "$desc valid day");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	293
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	294 ok(defined($hour), "$desc has hour");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	295 ok($hour < 24, "$desc valid hour");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	296
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	297 ok(defined($minute), "$desc has minutes");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	298 ok($minute < 60, "$desc valid minutes");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	299
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	300 ok(defined($sec), "$desc has seconds");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	301 ok($sec < 60, "$desc valid seconds");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	302
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	303 ok(defined($host), "$desc has host");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	304 chomp(my $hostname = lc `hostname`);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	305 is($host , $hostname, "$desc valid host");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	306
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	307 ok(defined($tag), "$desc has tag");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	308 like($tag, qr'\w+', "$desc valid tag");
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	309
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	310 ok(length($msg) > 0, "$desc valid CONTENT");
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
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 sub syslog_daemon {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	316 my ($port, $t, $file) = @_;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	317
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	318 my $s = IO::Socket::INET->new(
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	319 Proto => 'udp',
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	320 LocalAddr => "127.0.0.1:$port"
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	321 );
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	322
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	323 open my $fh, '>', $t->testdir() . '/' . $file;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	324 select $fh; $\| = 1;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	325
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	326 while (1) {
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	327 my $buffer;
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	328 $s->recv($buffer, 4096);
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	329 print $fh $buffer . "\n";
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	330 }
997f5fe16545 Tests: added syslog tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	331 }
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 ###############################################################################

404

997f5fe16545 Tests: added syslog tests.