Tests: literals support in IMAP test backend.
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+)/;