Tests: added IMAP LOGIN test with untagged CAPABILITY.

Author: pluknet

lib/Test/Nginx/IMAP.pm

@@ -166,6 +166,7 @@ sub imap_test_daemon {
 				print $client '+ ' . CRLF;
 				$client->sysread(my $buf, $1);
 				Test::Nginx::log_core('||', $buf);
+				$_ .= $buf;
 				$buf = <$client>;
 				Test::Nginx::log_core('||', $buf);
 				$_ .= $buf;
@@ -179,6 +180,8 @@ sub imap_test_daemon {
 			if (/^logout/i) {
 				print $client $tag . ' OK logout ok' . CRLF;
 			} elsif (/^login /i) {
+				print $client "* CAPABILITY IMAP4rev1" . CRLF
+					if /capability/;
 				print $client $tag . ' OK login ok' . CRLF;
 			} else {
 				print $client $tag . ' ERR unknown command' . CRLF;

mail_imap.t

@@ -38,7 +38,7 @@ events {
 }
 
 mail {
-    proxy_pass_error_message  on;
+    proxy_pass_error_message  off;
     proxy_timeout  15s;
     auth_http  http://127.0.0.1:8080/mail/auth;
 
@@ -67,6 +67,9 @@ http {
             if ($userpass = 'te\\"[email protected]:se\\"cret') {
                 set $reply OK;
             }
+            if ($userpass = '[email protected]:secret') {
+                set $reply OK;
+            }
 
             set $userpass "$http_auth_user:$http_auth_salt:$http_auth_pass";
             if ($userpass ~ '^[email protected]:<.*@.*>:0{32}$') {
@@ -93,7 +96,7 @@ http {
 EOF
 
 $t->run_daemon(\&Test::Nginx::IMAP::imap_test_daemon);
-$t->run()->plan(29);
+$t->run()->plan(31);
 
 $t->waitforsocket('127.0.0.1:' . port(8144));
 
@@ -113,6 +116,20 @@ $s->check(qr/^a02 NO/, 'login with bad password');
 $s->send('a03 LOGIN [email protected] secret');
 $s->ok('login');
 
+# login with untagged capability
+
+TODO: {
+local $TODO = 'not yet' unless $t->has_version('1.27.3');
+
+$s = Test::Nginx::IMAP->new();
+$s->read();
+
+$s->send('a04 LOGIN [email protected] secret');
+$s->check(qr/^\* CAPABILITY /, 'untagged capability');
+$s->ok('login after capability');
+
+}
+
 # auth
 
 $s = Test::Nginx::IMAP->new();