Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/IMAP.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
comparison
equal deleted inserted replaced
208:6bac00bba8d4 209:5137f27935b4
39 } 39 }
40 40
41 sub read { 41 sub read {
42 my ($self) = @_; 42 my ($self) = @_;
43 eval { 43 eval {
44 local $SIG{ALRM} = sub { die "alarm\n" }; 44 local $SIG{ALRM} = sub { die "timeout\n" };
45 alarm(2); 45 alarm(2);
46 while (<$self>) { 46 while (<$self>) {
47 log_in($_); 47 log_in($_);
48 # XXX 48 # XXX
49 next if m/^\d\d\d-/; 49 next if m/^\d\d\d-/;
51 } 51 }
52 alarm(0); 52 alarm(0);
53 }; 53 };
54 alarm(0); 54 alarm(0);
55 if ($@) { 55 if ($@) {
56 log_in("died: $@");
56 return undef; 57 return undef;
57 } 58 }
58 return $_; 59 return $_;
59 } 60 }
60 61