# HG changeset patch
# User Valentin Bartenev <vbart@nginx.com>
# Date 1363789228 -14400
# Node ID 8dac281ff5229822e33dec66c8a3c3d7996fa551
# Parent  9cd1a8dd47fcd1d30f59cac5cf40cba07cd31573
Tests: increase timeout for putting big chunk in dav_chunked.t.

diff --git a/dav_chunked.t b/dav_chunked.t
--- a/dav_chunked.t
+++ b/dav_chunked.t
@@ -90,7 +90,7 @@ is(read_file($t->testdir() . '/file'), '
 
 my $body = ('a' . CRLF . '1234567890' . CRLF) x 1024 . '0' . CRLF . CRLF;
 
-$r = http(<<EOF);
+$r = http(<<EOF, timeout => 5);
 PUT /file HTTP/1.1
 Host: localhost
 Connection: close
diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm
--- a/lib/Test/Nginx.pm
+++ b/lib/Test/Nginx.pm
@@ -405,7 +405,7 @@ sub http($;%) {
 	eval {
 		local $SIG{ALRM} = sub { die "timeout\n" };
 		local $SIG{PIPE} = sub { die "sigpipe\n" };
-		alarm(2);
+		alarm($extra{timeout} || 2);
 		my $s = $extra{socket} || IO::Socket::INET->new(
 			Proto => 'tcp',
 			PeerAddr => '127.0.0.1:8080'