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

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
line wrap: on
line diff
--- a/lib/Test/Nginx/SMTP.pm
+++ b/lib/Test/Nginx/SMTP.pm
@@ -59,12 +59,12 @@ sub read {
 
 sub check {
 	my ($self, $regex, $name) = @_;
-	Test::More::like($self->read(), $regex, $name);
+	Test::More->builder->like($self->read(), $regex, $name);
 }
 
 sub ok {
 	my $self = shift; 
-	$self->check(qr/^2\d\d /, @_);
+	Test::More->builder->like($self->read(), qr/^2\d\d /, @_);
 }
 
 ###############################################################################