Mercurial > hg > nginx-tests

comparison stream_variables.t @ 1010:4f739c15069e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: stream $protocol tests.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 26 Aug 2016 16:28:22 +0300
parents 4f90c1456ba6
children 41139d6f8b7b
comparison
equal deleted inserted replaced
1009:9f576b8bb4c8 1010:4f739c15069e
14 14
15 BEGIN { use FindBin; chdir($FindBin::Bin); } 15 BEGIN { use FindBin; chdir($FindBin::Bin); }
16 16
17 use lib 'lib'; 17 use lib 'lib';
18 use Test::Nginx; 18 use Test::Nginx;
19 use Test::Nginx::Stream qw/ stream /; 19 use Test::Nginx::Stream qw/ stream dgram /;
20 20
21 ############################################################################### 21 ###############################################################################
22 22
23 select STDERR; $| = 1; 23 select STDERR; $| = 1;
24 select STDOUT; $| = 1; 24 select STDOUT; $| = 1;
64 64
65 server { 65 server {
66 listen 127.0.0.1:8085; 66 listen 127.0.0.1:8085;
67 return $msec!$time_local!$time_iso8601; 67 return $msec!$time_local!$time_iso8601;
68 } 68 }
69
70 server {
71 listen 127.0.0.1:8086;
72 listen 127.0.0.1:%%PORT_8087_UDP%% udp;
73 return $protocol;
74 }
69 } 75 }
70 76
71 EOF 77 EOF
72 78
73 $t->try_run('no stream return')->plan(6); 79 $t->try_run('no stream return')->plan(8);
74 80
75 ############################################################################### 81 ###############################################################################
76 82
77 chomp(my $hostname = lc `hostname`); 83 chomp(my $hostname = lc `hostname`);
78 like(stream()->read(), qr/^\d+:[\d.]+:$hostname:\d+:0$/, 'vars'); 84 like(stream()->read(), qr/^\d+:[\d.]+:$hostname:\d+:0$/, 'vars');
92 is(unpack("H*", $data), '0' x 31 . '1', 'binary addr ipv6'); 98 is(unpack("H*", $data), '0' x 31 . '1', 'binary addr ipv6');
93 99
94 $data = stream('127.0.0.1:' . port(8085))->read(); 100 $data = stream('127.0.0.1:' . port(8085))->read();
95 like($data, qr#^\d+.\d+![-+\w/: ]+![-+\dT:]+$#, 'time'); 101 like($data, qr#^\d+.\d+![-+\w/: ]+![-+\dT:]+$#, 'time');
96 102
103 is(stream('127.0.0.1:' . port(8086))->read(), 'TCP', 'protocol TCP');
104 is(dgram('127.0.0.1:' . port(8087))->io('.'), 'UDP', 'protocol UDP');
105
97 ############################################################################### 106 ###############################################################################