Mercurial > hg > nginx-tests
comparison smtp.t @ 72:24143894b91b
Tests: shut up warnings for TODO tests.
Recent versions of Test::Simple/More/Builder (0.61+) throw warnings on undef
in like(). While this is good for working tests, it's not for TODO ones.
Other tricky part is that neither "no warnings" pragma nor $^W can be used to
avoid warnings. The only way that works is to redefine $SIG{__WARN__}.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Tue, 17 Feb 2009 15:03:00 +0300 |
parents | 4715bd4d4693 |
children | ecff5407867c |
comparison
equal
deleted
inserted
replaced
71:4715bd4d4693 | 72:24143894b91b |
---|---|
141 | 141 |
142 # Try auth plain with pipelining | 142 # Try auth plain with pipelining |
143 | 143 |
144 TODO: { | 144 TODO: { |
145 local $TODO = 'pipelining not in official nginx'; | 145 local $TODO = 'pipelining not in official nginx'; |
146 local $SIG{__WARN__} = sub {}; | |
146 | 147 |
147 $s = Test::Nginx::SMTP->new(); | 148 $s = Test::Nginx::SMTP->new(); |
148 $s->read(); | 149 $s->read(); |
149 $s->send('EHLO example.com'); | 150 $s->send('EHLO example.com'); |
150 $s->read(); | 151 $s->read(); |
197 | 198 |
198 $s->ok('pipelined mail from'); | 199 $s->ok('pipelined mail from'); |
199 | 200 |
200 TODO: { | 201 TODO: { |
201 local $TODO = 'pipelining not in official nginx'; | 202 local $TODO = 'pipelining not in official nginx'; |
203 local $SIG{__WARN__} = sub {}; | |
202 | 204 |
203 $s->ok('pipelined rcpt to'); | 205 $s->ok('pipelined rcpt to'); |
204 $s->ok('pipelined rset'); | 206 $s->ok('pipelined rset'); |
205 | 207 |
206 } | 208 } |