nginx-tests: stream_access

author	Sergey Kandaurov <pluknet@nginx.com>
date	Mon, 05 Sep 2016 22:57:40 +0300
parents
children	717030fd5a94

rev	line source
1024 91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1 #!/usr/bin/perl
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3 # (C) Sergey Kandaurov
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	4 # (C) Nginx, Inc.
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	5
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	6 # Tests for stream access_log module and variables.
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	7
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	8 ###############################################################################
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	9
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	10 use warnings;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	11 use strict;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	12
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	13 use Test::More;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	14
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	15 BEGIN { use FindBin; chdir($FindBin::Bin); }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	16
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	17 use lib 'lib';
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	18 use Test::Nginx;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	19 use Test::Nginx::Stream qw/ stream /;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	20
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	21 ###############################################################################
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	22
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	23 select STDERR; $\| = 1;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	24 select STDOUT; $\| = 1;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	25
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	26 my $t = Test::Nginx->new()->has(qw/stream stream_map/);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	27
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	28 $t->write_file_expand('nginx.conf', <<'EOF');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	29
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	30 %%TEST_GLOBALS%%
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	31
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	32 daemon off;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	33
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	34 events {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	35 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	36
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	37 stream {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	38 log_format test $server_addr;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	39 log_format vars $connection:$nginx_version:$hostname:$pid;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	40 log_format addr $binary_remote_addr:$remote_addr:$remote_port:
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	41 $server_addr:$server_port:$upstream_addr;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	42 log_format date $msec!$time_local!$time_iso8601;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	43 log_format byte $bytes_received:$bytes_sent:
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	44 $upstream_bytes_sent:$upstream_bytes_received;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	45 log_format time $upstream_connect_time:$upstream_first_byte_time:
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	46 $upstream_session_time;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	47
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	48 access_log %%TESTDIR%%/off.log test;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	49
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	50 map $server_port $logme {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	51 %%PORT_8083%% 1;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	52 default 0;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	53 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	54
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	55 server {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	56 listen 127.0.0.1:8081;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	57 proxy_pass 127.0.0.1:8080;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	58 access_log off;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	59 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	60
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	61 server {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	62 listen 127.0.0.1:8082;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	63 proxy_pass 127.0.0.1:8080;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	64 access_log %%TESTDIR%%/time.log time;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	65 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	66
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	67 server {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	68 listen 127.0.0.1:8083;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	69 listen 127.0.0.1:8084;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	70 proxy_pass 127.0.0.1:8080;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	71 access_log %%TESTDIR%%/filtered.log test if=$logme;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	72 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	73
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	74 server {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	75 listen 127.0.0.1:8085;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	76 proxy_pass 127.0.0.1:8080;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	77 access_log %%TESTDIR%%/complex.log test if=$logme$logme;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	78 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	79
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	80 server {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	81 listen 127.0.0.1:8086;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	82 proxy_pass 127.0.0.1:8080;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	83 access_log %%TESTDIR%%/compressed.log test
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	84 gzip buffer=1m flush=100ms;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	85 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	86
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	87 server {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	88 listen 127.0.0.1:8087;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	89 proxy_pass 127.0.0.1:8080;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	90 access_log %%TESTDIR%%/varlog_$bytes_sent.log test;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	91 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	92
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	93 server {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	94 listen 127.0.0.1:8088;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	95 proxy_pass 127.0.0.1:8080;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	96 access_log %%TESTDIR%%/vars.log vars;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	97 access_log %%TESTDIR%%/addr.log addr;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	98 access_log %%TESTDIR%%/date.log date;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	99 access_log %%TESTDIR%%/byte.log byte;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	100 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	101 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	102
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	103 EOF
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	104
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	105 $t->run_daemon(\&stream_daemon);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	106 $t->try_run('no stream access_log')->plan(10);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	107
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	108 $t->waitforsocket('127.0.0.1:' . port(8080));
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	109
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	110 ###############################################################################
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	111
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	112 my $str = 'SEE-THIS';
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	113
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	114 stream('127.0.0.1:' . port(8081))->io($str);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	115 stream('127.0.0.1:' . port(8082))->io($str);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	116 stream('127.0.0.1:' . port(8083))->io($str);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	117 stream('127.0.0.1:' . port(8084))->io($str);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	118 stream('127.0.0.1:' . port(8085))->io($str);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	119 stream('127.0.0.1:' . port(8086))->io($str);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	120 stream('127.0.0.1:' . port(8087))->io($str);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	121
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	122 my $dport = port(8088);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	123 my $s = stream("127.0.0.1:$dport");
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	124 my $lhost = $s->sockhost();
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	125 my $escaped = $s->sockaddr();
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	126 $escaped =~ s/([^\x20-\x7e])/sprintf('\\x%02X', ord($1))/gmxe;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	127 my $lport = $s->sockport();
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	128 my $uport = port(8080);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	129
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	130 $s->io($str);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	131
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	132 # wait for file to appear with nonzero size thanks to the flush parameter
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	133
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	134 for (1 .. 10) {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	135 last if -s $t->testdir() . '/compressed.log';
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	136 select undef, undef, undef, 0.1;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	137 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	138
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	139 # verify that "gzip" parameter turns on compression
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	140
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	141 SKIP: {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	142 eval { require IO::Uncompress::Gunzip; };
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	143 skip("IO::Uncompress::Gunzip not installed", 1) if $@;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	144
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	145 my $gzipped = $t->read_file('compressed.log');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	146 my $log;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	147 IO::Uncompress::Gunzip::gunzip(\$gzipped => \$log);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	148 like($log, qr/^127.0.0.1/, 'compressed log - flush time');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	149 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	150
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	151 # now verify all other logs
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	152
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	153 $t->stop();
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	154
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	155 is($t->read_file('off.log'), '', 'log off');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	156 is($t->read_file('filtered.log'), "127.0.0.1\n", 'log filtering');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	157 ok($t->read_file('complex.log'), 'if with complex value');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	158 ok($t->read_file('varlog_3.log'), 'variable in file');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	159
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	160 chomp(my $hostname = lc `hostname`);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	161 like($t->read_file('vars.log'), qr/^\d+:[\d.]+:$hostname:\d+$/, 'log vars');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	162 is($t->read_file('addr.log'),
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	163 "$escaped:$lhost:$lport:127.0.0.1:$dport:127.0.0.1:$uport\n",
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	164 'log addr');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	165 like($t->read_file('date.log'), qr#^\d+.\d+![-+\w/: ]+![-+\dT:]+$#, 'log date');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	166 is($t->read_file('byte.log'), "8:3:8:3\n", 'log bytes');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	167 like($t->read_file('time.log'), qr/0\.\d{3}:0\.\d{3}:0\.\d{3}/, 'log time');
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	168
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	169 ###############################################################################
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	170
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	171 sub stream_daemon {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	172 my $server = IO::Socket::INET->new(
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	173 Proto => 'tcp',
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	174 LocalAddr => '127.0.0.1',
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	175 LocalPort => port(8080),
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	176 Listen => 5,
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	177 Reuse => 1
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	178 )
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	179 or die "Can't create listening socket: $!\n";
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	180
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	181 local $SIG{PIPE} = 'IGNORE';
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	182
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	183 while (my $client = $server->accept()) {
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	184 $client->autoflush(1);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	185
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	186 log2c("(new connection $client)");
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	187
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	188 $client->sysread(my $buffer, 65536) or next;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	189
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	190 log2i("$client $buffer");
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	191
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	192 $buffer = "ack";
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	193
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	194 log2o("$client $buffer");
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	195
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	196 $client->syswrite($buffer);
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	197
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	198 close $client;
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	199 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	200 }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	201
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	202 sub log2i { Test::Nginx::log_core('\|\| <<', @_); }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	203 sub log2o { Test::Nginx::log_core('\|\| >>', @_); }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	204 sub log2c { Test::Nginx::log_core('\|\|', @_); }
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	205
91e64c1ceec9 Tests: stream access_log tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	206 ###############################################################################

1024

91e64c1ceec9 Tests: stream access_log tests.