Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 79:d5330d926fac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: add test for limit_req not clearing write timeout on delay.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 28 Mar 2009 16:13:07 +0300
parents ff5f4f298532
children f2d09159a8f3
comparison
equal deleted inserted replaced
78:c893908c1a44 79:d5330d926fac
226 log_core('<<', @_); 226 log_core('<<', @_);
227 } 227 }
228 228
229 ############################################################################### 229 ###############################################################################
230 230
231 sub http_get($) { 231 sub http_get($;%) {
232 my ($url) = @_; 232 my ($url, %extra) = @_;
233 return http(<<EOF); 233 return http(<<EOF, %extra);
234 GET $url HTTP/1.0 234 GET $url HTTP/1.0
235 Host: localhost 235 Host: localhost
236 236
237 EOF 237 EOF
238 } 238 }
239 239
240 sub http_head($) { 240 sub http_head($;%) {
241 my ($url) = @_; 241 my ($url, %extra) = @_;
242 return http(<<EOF); 242 return http(<<EOF, %extra);
243 HEAD $url HTTP/1.0 243 HEAD $url HTTP/1.0
244 Host: localhost 244 Host: localhost
245 245
246 EOF 246 EOF
247 } 247 }
248 248
249 sub http($) { 249 sub http($;%) {
250 my ($request) = @_; 250 my ($request, %extra) = @_;
251 my $reply; 251 my $reply;
252 eval { 252 eval {
253 local $SIG{ALRM} = sub { die "alarm\n" }; 253 local $SIG{ALRM} = sub { die "alarm\n" };
254 alarm(2); 254 alarm(2);
255 my $s = IO::Socket::INET->new( 255 my $s = IO::Socket::INET->new(
257 PeerAddr => '127.0.0.1:8080' 257 PeerAddr => '127.0.0.1:8080'
258 ); 258 );
259 log_out($request); 259 log_out($request);
260 $s->print($request); 260 $s->print($request);
261 local $/; 261 local $/;
262 select undef, undef, undef, $extra{sleep} if $extra{sleep};
262 $reply = $s->getline(); 263 $reply = $s->getline();
263 log_in($reply); 264 log_in($reply);
264 alarm(0); 265 alarm(0);
265 }; 266 };
266 alarm(0); 267 alarm(0);