Mercurial > hg > nginx-tests
comparison lib/Test/Nginx/SMTP.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 next if m/^\d\d\d-/; | 48 next if m/^\d\d\d-/; |
49 last; | 49 last; |
50 } | 50 } |
51 alarm(0); | 51 alarm(0); |
52 }; | 52 }; |
53 alarm(0); | 53 alarm(0); |
54 if ($@) { | 54 if ($@) { |
55 log_in("died: $@"); | |
55 return undef; | 56 return undef; |
56 } | 57 } |
57 return $_; | 58 return $_; |
58 } | 59 } |
59 | 60 |