Mercurial > hg > nginx-tests
comparison lib/Test/Nginx/IMAP.pm @ 209:5137f27935b4
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 |