Mercurial > hg > nginx-tests

comparison memcached_fake.t @ 952:e9064d691790

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: converted tests to run in parallel.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 21 Jun 2016 16:39:13 +0300
parents 9cd1a8dd47fc
children 882267679006
comparison
equal deleted inserted replaced
951:9361c7eddfc1 952:e9064d691790
34 34
35 http { 35 http {
36 %%TEST_GLOBALS_HTTP%% 36 %%TEST_GLOBALS_HTTP%%
37 37
38 server { 38 server {
39 listen 127.0.0.1:8080; 39 listen 127.0.0.1:%%PORT_0%%;
40 server_name localhost; 40 server_name localhost;
41 41
42 location / { 42 location / {
43 set $memcached_key $uri; 43 set $memcached_key $uri;
44 memcached_pass 127.0.0.1:8081; 44 memcached_pass 127.0.0.1:%%PORT_1%%;
45 } 45 }
46 46
47 location /ssi { 47 location /ssi {
48 default_type text/html; 48 default_type text/html;
49 ssi on; 49 ssi on;
55 55
56 $t->write_file('ssi.html', '<!--#include virtual="/" set="blah" -->blah: <!--#echo var="blah" -->'); 56 $t->write_file('ssi.html', '<!--#include virtual="/" set="blah" -->blah: <!--#echo var="blah" -->');
57 $t->run_daemon(\&memcached_fake_daemon); 57 $t->run_daemon(\&memcached_fake_daemon);
58 $t->run(); 58 $t->run();
59 59
60 $t->waitforsocket('127.0.0.1:8081') 60 $t->waitforsocket('127.0.0.1:' . port(1))
61 or die "Can't start fake memcached"; 61 or die "Can't start fake memcached";
62 62
63 ############################################################################### 63 ###############################################################################
64 64
65 like(http_get('/'), qr/SEE-THIS/, 'memcached split trailer'); 65 like(http_get('/'), qr/SEE-THIS/, 'memcached split trailer');
71 ############################################################################### 71 ###############################################################################
72 72
73 sub memcached_fake_daemon { 73 sub memcached_fake_daemon {
74 my $server = IO::Socket::INET->new( 74 my $server = IO::Socket::INET->new(
75 Proto => 'tcp', 75 Proto => 'tcp',
76 LocalAddr => '127.0.0.1:8081', 76 LocalAddr => '127.0.0.1:' . port(1),
77 Listen => 5, 77 Listen => 5,
78 Reuse => 1 78 Reuse => 1
79 ) 79 )
80 or die "Can't create listening socket: $!\n"; 80 or die "Can't create listening socket: $!\n";
81 81