Mercurial > hg > nginx-tests

comparison memcached_fake.t @ 267:9cd1a8dd47fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: eliminate race in memcached_fake.t startup.
author Valentin Bartenev <vbart@nginx.com>
date Wed, 20 Mar 2013 17:27:01 +0400
parents 2cb970dda24b
children e9064d691790
comparison
equal deleted inserted replaced
266:b350a2cdbf58 267:9cd1a8dd47fc
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')
61 or die "Can't start fake memcached";
62
60 ############################################################################### 63 ###############################################################################
61 64
62 like(http_get('/'), qr/SEE-THIS/, 'memcached split trailer'); 65 like(http_get('/'), qr/SEE-THIS/, 'memcached split trailer');
63 66
64 like(http_get('/ssi.html'), qr/SEE-THIS/, 'memcached ssi var'); 67 like(http_get('/ssi.html'), qr/SEE-THIS/, 'memcached ssi var');
73 LocalAddr => '127.0.0.1:8081', 76 LocalAddr => '127.0.0.1:8081',
74 Listen => 5, 77 Listen => 5,
75 Reuse => 1 78 Reuse => 1
76 ) 79 )
77 or die "Can't create listening socket: $!\n"; 80 or die "Can't create listening socket: $!\n";
81
82 local $SIG{PIPE} = 'IGNORE';
78 83
79 while (my $client = $server->accept()) { 84 while (my $client = $server->accept()) {
80 $client->autoflush(1); 85 $client->autoflush(1);
81 86
82 while (<$client>) { 87 while (<$client>) {