Mercurial > hg > nginx-tests
comparison memcached_fake.t @ 952:e9064d691790
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 |