Mercurial > hg > nginx-tests
annotate memcached_fake.t @ 1240:f7eb2875ed45
Tests: avoid interleaved output in Upgrade handling tests.
When the testing script is run in verbose mode by prove that redirects stdout,
a garbled verbose mode line from backend can be produced that incorporates TAP
output of an individual test result, which eventually breaks the testing plan.
Notably, this happens when testing sending multiple frames if backend started
to respond before all frames were received. This is possible due to the line
boundary used as an indicator of last bytes to receive before starting to send.
The fix is to amend the only last frame of many specially, for that purpose.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Wed, 15 Nov 2017 20:16:09 +0300 |
parents | 9f576b8bb4c8 |
children | 4442767118e0 |
rev | line source |
---|---|
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
2 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
4 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
5 # Test for memcached backend with fake daemon. |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
6 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
7 ############################################################################### |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
8 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
9 use warnings; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
10 use strict; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
11 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
12 use Test::More; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
13 use Socket qw/ CRLF /; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
14 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
15 BEGIN { use FindBin; chdir($FindBin::Bin); } |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
16 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
17 use lib 'lib'; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
18 use Test::Nginx; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
19 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
20 ############################################################################### |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
21 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
22 select STDERR; $| = 1; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
23 select STDOUT; $| = 1; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
24 |
128
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
25 my $t = Test::Nginx->new()->has(qw/http rewrite memcached ssi/)->plan(3) |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
26 ->write_file_expand('nginx.conf', <<'EOF'); |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
27 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
28 %%TEST_GLOBALS%% |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
29 |
249
6a0d934950bc
Tests: remove extra spaces in "daemon off".
Maxim Dounin <mdounin@mdounin.ru>
parents:
166
diff
changeset
|
30 daemon off; |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
31 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
32 events { |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
33 } |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
34 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
35 http { |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
36 %%TEST_GLOBALS_HTTP%% |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
37 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
38 server { |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
39 listen 127.0.0.1:8080; |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
40 server_name localhost; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
41 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
42 location / { |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
43 set $memcached_key $uri; |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
44 memcached_pass 127.0.0.1:8081; |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
45 } |
128
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
46 |
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
47 location /ssi { |
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
48 default_type text/html; |
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
49 ssi on; |
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
50 } |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
51 } |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
52 } |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
53 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
54 EOF |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
55 |
128
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
56 $t->write_file('ssi.html', '<!--#include virtual="/" set="blah" -->blah: <!--#echo var="blah" -->'); |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
57 $t->run_daemon(\&memcached_fake_daemon); |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
58 $t->run(); |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
59 |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
60 $t->waitforsocket('127.0.0.1:' . port(8081)) |
267
9cd1a8dd47fc
Tests: eliminate race in memcached_fake.t startup.
Valentin Bartenev <vbart@nginx.com>
parents:
257
diff
changeset
|
61 or die "Can't start fake memcached"; |
9cd1a8dd47fc
Tests: eliminate race in memcached_fake.t startup.
Valentin Bartenev <vbart@nginx.com>
parents:
257
diff
changeset
|
62 |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
63 ############################################################################### |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
64 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
65 like(http_get('/'), qr/SEE-THIS/, 'memcached split trailer'); |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
66 |
128
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
67 like(http_get('/ssi.html'), qr/SEE-THIS/, 'memcached ssi var'); |
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
68 |
1009
9f576b8bb4c8
Tests: use consistent naming for no errors tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
974
diff
changeset
|
69 like(`grep -F '[error]' ${\($t->testdir())}/error.log`, qr/^$/s, 'no errors'); |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
70 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
71 ############################################################################### |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
72 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
73 sub memcached_fake_daemon { |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
74 my $server = IO::Socket::INET->new( |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
75 Proto => 'tcp', |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
76 LocalAddr => '127.0.0.1:' . port(8081), |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
77 Listen => 5, |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
78 Reuse => 1 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
79 ) |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
80 or die "Can't create listening socket: $!\n"; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
81 |
267
9cd1a8dd47fc
Tests: eliminate race in memcached_fake.t startup.
Valentin Bartenev <vbart@nginx.com>
parents:
257
diff
changeset
|
82 local $SIG{PIPE} = 'IGNORE'; |
9cd1a8dd47fc
Tests: eliminate race in memcached_fake.t startup.
Valentin Bartenev <vbart@nginx.com>
parents:
257
diff
changeset
|
83 |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
84 while (my $client = $server->accept()) { |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
85 $client->autoflush(1); |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
86 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
87 while (<$client>) { |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
88 last if (/\x0d\x0a$/); |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
89 } |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
90 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
91 print $client 'VALUE / 0 8' . CRLF; |
128
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
92 print $client 'SEE-TH'; |
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
93 select(undef, undef, undef, 0.1); |
25047dc6ae9b
Tests: add test for memcached parsing problem as fixed in 0.6.14.
Maxim Dounin <mdounin@mdounin.ru>
parents:
127
diff
changeset
|
94 print $client 'IS'; |
127
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
95 select(undef, undef, undef, 0.1); |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
96 print $client CRLF . 'EN'; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
97 select(undef, undef, undef, 0.1); |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
98 print $client 'D' . CRLF; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
99 close $client; |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
100 } |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
101 } |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
102 |
2bf0c4c80aa7
Tests: memcached split trailer test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
103 ############################################################################### |