Mercurial > hg > nginx-tests

comparison proxy_variables.t @ 586:ef2b435c1048

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: simple tests for $upstream_connect_time.
author Sergey Kandaurov <pluknet@nginx.com>
date Wed, 20 May 2015 19:18:42 +0300
parents 907e89fba9c3
children dbe5bc4b8b39
comparison
equal deleted inserted replaced
585:5bb19f7448b5 586:ef2b435c1048
20 ############################################################################### 20 ###############################################################################
21 21
22 select STDERR; $| = 1; 22 select STDERR; $| = 1;
23 select STDOUT; $| = 1; 23 select STDOUT; $| = 1;
24 24
25 my $t = Test::Nginx->new()->has(qw/http proxy/)->plan(8) 25 my $t = Test::Nginx->new()->has(qw/http proxy/)
26 ->write_file_expand('nginx.conf', <<'EOF'); 26 ->write_file_expand('nginx.conf', <<'EOF');
27 27
28 %%TEST_GLOBALS%% 28 %%TEST_GLOBALS%%
29 29
30 daemon off; 30 daemon off;
38 upstream u { 38 upstream u {
39 server 127.0.0.1:8081; 39 server 127.0.0.1:8081;
40 server 127.0.0.1:8081; 40 server 127.0.0.1:8081;
41 } 41 }
42 42
43 log_format time $upstream_header_time:$upstream_response_time; 43 log_format time '$upstream_connect_time:$upstream_header_time:'
44 '$upstream_response_time';
44 45
45 server { 46 server {
46 listen 127.0.0.1:8080; 47 listen 127.0.0.1:8080;
47 server_name localhost; 48 server_name localhost;
48 49
50 add_header X-Connect $upstream_connect_time;
51 add_header X-Header $upstream_header_time;
52 add_header X-Response $upstream_response_time;
53
49 location / { 54 location / {
50 add_header X-Header-Time $upstream_header_time;
51 proxy_pass http://127.0.0.1:8081; 55 proxy_pass http://127.0.0.1:8081;
52 access_log %%TESTDIR%%/time.log time; 56 access_log %%TESTDIR%%/time.log time;
53 } 57 }
54 58
55 location /pnu { 59 location /pnu {
56 add_header X-Header-Time $upstream_header_time;
57 add_header X-Response-Time $upstream_response_time;
58 proxy_pass http://u/bad; 60 proxy_pass http://u/bad;
59 } 61 }
60 } 62 }
61 } 63 }
62 64
63 EOF 65 EOF
64 66
65 $t->run_daemon(\&http_daemon, 8081); 67 $t->run_daemon(\&http_daemon, 8081);
66 $t->run()->waitforsocket('127.0.0.1:8081'); 68 $t->try_run('no upstream_connect_time')->plan(15);
69
70 $t->waitforsocket('127.0.0.1:8081');
67 71
68 ############################################################################### 72 ###############################################################################
69 73
70 my $re = qr/(\d\.\d{3})/; 74 my $re = qr/(\d\.\d{3})/;
71 my ($ht, $rt, $ht2, $rt2); 75 my ($ct, $ht, $rt, $ct2, $ht2, $rt2);
72 76
73 ($ht) = http_get('/header') =~ /X-Header-Time: $re/; 77 ($ct, $ht) = get('/header');
78 cmp_ok($ct, '<', 1, 'connect time - slow response header');
74 cmp_ok($ht, '>=', 1, 'header time - slow response header'); 79 cmp_ok($ht, '>=', 1, 'header time - slow response header');
75 80
76 ($ht) = http_get('/body') =~ /X-Header-Time: $re/; 81 ($ct, $ht) = get('/body');
82 cmp_ok($ct, '<', 1, 'connect time - slow response body');
77 cmp_ok($ht, '<', 1, 'header time - slow response body'); 83 cmp_ok($ht, '<', 1, 'header time - slow response body');
78 84
79 my $r = http_get('/pnu'); 85 ($ct, $ct2, $ht, $ht2, $rt) = get('/pnu', many => 1);
80 ($ht) = $r =~ /X-Header-Time: ($re)/; 86 cmp_ok($ct, '<', 1, 'connect time - next');
81 ($rt) = $r =~ /X-Response-Time: ($re)/; 87 cmp_ok($ct2, '<', 1, 'connect time - next 2');
82 88 cmp_ok($ht, '>=', 1, 'header time - next');
89 cmp_ok($ht2, '<', 1, 'header time - next 2');
83 is($ht, $rt, 'header time - bad response'); 90 is($ht, $rt, 'header time - bad response');
84 like($r, qr/X-Header-Time: $re, $re/, 'header time - next');
85 91
86 $t->stop(); 92 $t->stop();
87 93
88 ($ht, $rt, $ht2, $rt2) = $t->read_file('time.log') =~ /^$re:$re\n$re:$re$/; 94 ($ct, $ht, $rt, $ct2, $ht2, $rt2)
95 = $t->read_file('time.log') =~ /^$re:$re:$re\n$re:$re:$re$/;
96
97 cmp_ok($ct, '<', 1, 'connect time log - slow response header');
98 cmp_ok($ct2, '<', 1, 'connect time log - slow response body');
89 99
90 cmp_ok($ht, '>=', 1, 'header time log - slow response header'); 100 cmp_ok($ht, '>=', 1, 'header time log - slow response header');
91 cmp_ok($ht2, '<', 1, 'header time log - slow response body'); 101 cmp_ok($ht2, '<', 1, 'header time log - slow response body');
92 102
93 cmp_ok($rt, '>=', 1, 'response time log - slow response header'); 103 cmp_ok($rt, '>=', 1, 'response time log - slow response header');
94 cmp_ok($rt2, '>=', 1, 'response time log - slow response body'); 104 cmp_ok($rt2, '>=', 1, 'response time log - slow response body');
95 105
96 ############################################################################### 106 ###############################################################################
107
108 sub get {
109 my ($uri, %extra) = @_;
110 my $re = $extra{many} ? qr/$re, $re?/ : $re;
111 my $r = http_get($uri);
112 $r =~ /X-Connect: $re/, $r =~ /X-Header: $re/, $r =~ /X-Response: $re/;
113 }
97 114
98 sub http_daemon { 115 sub http_daemon {
99 my ($port) = @_; 116 my ($port) = @_;
100 my $once = 1; 117 my $once = 1;
101 118