# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1621387989 -10800
# Node ID e7f0b4ca0a1acd192b7a8f8ead748979f1d91f33
# Parent  994d1b58cbe8efdedba043c0b69ae05fc6e00863
Tests: literals support in IMAP test backend.

diff --git a/lib/Test/Nginx/IMAP.pm b/lib/Test/Nginx/IMAP.pm
--- 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+)/;