Tests: aligned generic read timeouts in stream and mail tests.
diff --git a/lib/Test/Nginx/IMAP.pm b/lib/Test/Nginx/IMAP.pm index 2925324..f2e5b5d 100644 --- a/lib/Test/Nginx/IMAP.pm +++ b/lib/Test/Nginx/IMAP.pm
@@ -60,7 +60,7 @@ my $socket = $self->{_socket}; eval { local $SIG{ALRM} = sub { die "timeout\n" }; - alarm(3); + alarm(8); while (<$socket>) { log_in($_); # XXX
diff --git a/lib/Test/Nginx/POP3.pm b/lib/Test/Nginx/POP3.pm index 39fd450..05310cc 100644 --- a/lib/Test/Nginx/POP3.pm +++ b/lib/Test/Nginx/POP3.pm
@@ -60,7 +60,7 @@ my $socket = $self->{_socket}; eval { local $SIG{ALRM} = sub { die "timeout\n" }; - alarm(3); + alarm(8); while (<$socket>) { log_in($_); # XXX
diff --git a/lib/Test/Nginx/SMTP.pm b/lib/Test/Nginx/SMTP.pm index 1dc9114..c722212 100644 --- a/lib/Test/Nginx/SMTP.pm +++ b/lib/Test/Nginx/SMTP.pm
@@ -60,7 +60,7 @@ my $socket = $self->{_socket}; eval { local $SIG{ALRM} = sub { die "timeout\n" }; - alarm(3); + alarm(8); while (<$socket>) { log_in($_); next if m/^\d\d\d-/;
diff --git a/lib/Test/Nginx/Stream.pm b/lib/Test/Nginx/Stream.pm index b05486b..b5cb81a 100644 --- a/lib/Test/Nginx/Stream.pm +++ b/lib/Test/Nginx/Stream.pm
@@ -84,7 +84,7 @@ $s = $self->{_socket}; $s->blocking(0); - if (IO::Select->new($s)->can_read($extra{read_timeout} || 5)) { + if (IO::Select->new($s)->can_read($extra{read_timeout} || 8)) { $s->sysread($buf, 1024); };