commit 4952bfd3e4f2d103959c17e22fdd88bee21ff210
author Maxim Dounin <mdounin@mdounin.ru> Wed May 19 04:33:09 2021 +0300
committer Maxim Dounin <mdounin@mdounin.ru> Wed May 19 04:33:09 2021 +0300
tree 76d3af77a99224184c09a01c3b11071dac56f975
parent 64e1438aaf46a9975ead582d94970f5315c21445

Tests: literals support in IMAP test backend.

lib/Test/Nginx/IMAP.pm

diff --git a/lib/Test/Nginx/IMAP.pm b/lib/Test/Nginx/IMAP.pm
index c8c12ff..7ff55d0 100644
--- a/lib/Test/Nginx/IMAP.pm
+++ b/lib/Test/Nginx/IMAP.pm
@@ -125,6 +125,17 @@
 		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+)/;