Mercurial > hg > nginx-tests

changeset 162:465a711ffa19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: set SIGALRM handler before arming timer.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 01 Aug 2011 20:23:32 +0400
parents 2c07dc5bc354
children 450206ed1fd2
files lib/Test/Nginx/IMAP.pm lib/Test/Nginx/POP3.pm lib/Test/Nginx/SMTP.pm
diffstat 3 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lib/Test/Nginx/IMAP.pm
+++ b/lib/Test/Nginx/IMAP.pm
@@ -41,8 +41,8 @@ sub send {
 sub read {
 	my ($self) = @_;
 	eval {
+		local $SIG{ALRM} = sub { die "alarm\n" };
 		alarm(2);
-		local $SIG{ALRM} = sub { die "alarm\n" };
 		while (<$self>) {
 			log_in($_);
 			# XXX
--- a/lib/Test/Nginx/POP3.pm
+++ b/lib/Test/Nginx/POP3.pm
@@ -41,8 +41,8 @@ sub send {
 sub read {
 	my ($self) = @_;
 	eval {
+		local $SIG{ALRM} = sub { die "alarm\n" };
 		alarm(2);
-		local $SIG{ALRM} = sub { die "alarm\n" };
 		while (<$self>) {
 			log_in($_);
 			# XXX
--- a/lib/Test/Nginx/SMTP.pm
+++ b/lib/Test/Nginx/SMTP.pm
@@ -41,8 +41,8 @@ sub send {
 sub read {
 	my ($self) = @_;
 	eval {
+		local $SIG{ALRM} = sub { die "alarm\n" };
 		alarm(2);
-		local $SIG{ALRM} = sub { die "alarm\n" };
 		while (<$self>) {
 			log_in($_);
 			next if m/^\d\d\d-/;