Mercurial > hg > nginx-tests

diff lib/Test/Nginx/SMTP.pm @ 209:5137f27935b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: log timeouts in IMAP/POP3/SMTP.
author Maxim Dounin <mdounin@mdounin.ru>
date Wed, 14 Mar 2012 17:50:36 +0400
parents 465a711ffa19
children de7338227832
line wrap: on
line diff
--- a/lib/Test/Nginx/SMTP.pm
+++ b/lib/Test/Nginx/SMTP.pm
@@ -41,7 +41,7 @@ sub send {
 sub read {
 	my ($self) = @_;
 	eval {
-		local $SIG{ALRM} = sub { die "alarm\n" };
+		local $SIG{ALRM} = sub { die "timeout\n" };
 		alarm(2);
 		while (<$self>) {
 			log_in($_);
@@ -52,6 +52,7 @@ sub read {
 	};
 	alarm(0);
 	if ($@) {
+		log_in("died: $@");
 		return undef;
 	}
 	return $_;