Mercurial > hg > nginx-tests

diff lib/Test/Nginx/IMAP.pm @ 1684:e7f0b4ca0a1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: literals support in IMAP test backend.
author Maxim Dounin <mdounin@mdounin.ru>
date Wed, 19 May 2021 04:33:09 +0300
parents d0025a0dead7
children 5d3aee48ed8e
line wrap: on
line diff
--- a/lib/Test/Nginx/IMAP.pm
+++ b/lib/Test/Nginx/IMAP.pm
@@ -125,6 +125,17 @@ sub imap_test_daemon {
 		print $client "* OK fake imap server ready" . CRLF;
 
 		while (<$client>) {
+			Test::Nginx::log_core('||', $_);
+
+			while (m/{(\d+)}\x0d?$/) {
+				print $client '+ ' . CRLF;
+				$client->sysread(my $buf, $1);
+				Test::Nginx::log_core('||', $buf);
+				$buf = <$client>;
+				Test::Nginx::log_core('||', $buf);
+				$_ .= $buf;
+			}
+
 			my $tag = '';
 
 			$tag = $1 if m/^(\S+)/;