changeset 1151:57673c7257a3

Tests: unbreak mail tests in case of EOF.
author Sergey Kandaurov <pluknet@nginx.com>
date Tue, 21 Mar 2017 17:38:37 +0300
parents ccf134a800ae
children 8241ebbe753d
files mail_capability.t mail_pop3.t
diffstat 2 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/mail_capability.t
+++ b/mail_capability.t
@@ -234,7 +234,8 @@ sub get_auth_caps {
 	my ($s) = @_;
 	my @meth;
 
-	while ($s->read() !~ qr/^\./) {
+	while ($s->read()) {
+		last if /^\./;
 		push @meth, $1 if /(.*?)\x0d\x0a?/ms;
 	}
 	join ':', @meth;
--- a/mail_pop3.t
+++ b/mail_pop3.t
@@ -207,7 +207,8 @@ sub get_auth_caps {
 	my ($s) = @_;
 	my @meth;
 
-	while ($s->read() !~ qr/^\./) {
+	while ($s->read()) {
+		last if /^\./;
 		push @meth, $1 if /(.*?)\x0d\x0a?/ms;
 	}
 	join ':', @meth;