# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1490107117 -10800
# Node ID 57673c7257a3eec84f7d010c3125ab6072cbb22c
# Parent  ccf134a800aea3c35befd8431365be4715e254ab
Tests: unbreak mail tests in case of EOF.

diff -r ccf134a800ae -r 57673c7257a3 mail_capability.t
--- a/mail_capability.t	Tue Mar 21 15:42:21 2017 +0300
+++ b/mail_capability.t	Tue Mar 21 17:38:37 2017 +0300
@@ -234,7 +234,8 @@
 	my ($s) = @_;
 	my @meth;
 
-	while ($s->read() !~ qr/^\./) {
+	while ($s->read()) {
+		last if /^\./;
 		push @meth, $1 if /(.*?)\x0d\x0a?/ms;
 	}
 	join ':', @meth;
diff -r ccf134a800ae -r 57673c7257a3 mail_pop3.t
--- a/mail_pop3.t	Tue Mar 21 15:42:21 2017 +0300
+++ b/mail_pop3.t	Tue Mar 21 17:38:37 2017 +0300
@@ -207,7 +207,8 @@
 	my ($s) = @_;
 	my @meth;
 
-	while ($s->read() !~ qr/^\./) {
+	while ($s->read()) {
+		last if /^\./;
 		push @meth, $1 if /(.*?)\x0d\x0a?/ms;
 	}
 	join ':', @meth;