Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/SMTP.pm @ 57:b5b4271554b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Test: use TODO for smtp pipelining tests.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 11 Jan 2009 20:33:59 +0300
parents d68b85def521
children 11e33ba0656a
comparison
equal deleted inserted replaced
56:573c8293ac38 57:b5b4271554b0
57 return $_; 57 return $_;
58 } 58 }
59 59
60 sub check { 60 sub check {
61 my ($self, $regex, $name) = @_; 61 my ($self, $regex, $name) = @_;
62 Test::More::like($self->read(), $regex, $name); 62 Test::More->builder->like($self->read(), $regex, $name);
63 } 63 }
64 64
65 sub ok { 65 sub ok {
66 my $self = shift; 66 my $self = shift;
67 $self->check(qr/^2\d\d /, @_); 67 Test::More->builder->like($self->read(), qr/^2\d\d /, @_);
68 } 68 }
69 69
70 ############################################################################### 70 ###############################################################################
71 71
72 sub smtp_test_daemon { 72 sub smtp_test_daemon {