Mercurial > hg > nginx-tests

comparison memcached_fake.t @ 974:882267679006

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: simplified parallel modifications in tests. Mail tests were simplified in c227348453db.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 12 Jul 2016 17:39:03 +0300
parents e9064d691790
children 9f576b8bb4c8
comparison
equal deleted inserted replaced
973:7d7aef8b9f3a 974:882267679006
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:%%PORT_0%%; 39 listen 127.0.0.1:8080;
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:%%PORT_1%%; 44 memcached_pass 127.0.0.1:8081;
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:' . port(1)) 60 $t->waitforsocket('127.0.0.1:' . port(8081))
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:' . port(1), 76 LocalAddr => '127.0.0.1:' . port(8081),
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