From 1034aa6680ba7dd88306fee036c1e543d8026543 Mon Sep 17 00:00:00 2001
From: Steve Holme <steve_holme@hotmail.com>
Date: Sat, 19 Oct 2013 12:20:00 +0100
Subject: tests: Added POP3 APOP authentication test

---
 tests/ftpserver.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'tests/ftpserver.pl')

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 7efc8be04..d0986ea77 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -1640,7 +1640,10 @@ sub APOP_pop3 {
     my ($args) = @_;
     my ($user, $secret) = split(/ /, $args, 2);
 
-    if (($user eq "") || ($secret eq "")) {
+    if (!grep /^APOP$/, @capabilities) {
+        sendcontrol "-ERR Unrecognized command\r\n";
+    }
+    elsif (($user eq "") || ($secret eq "")) {
         sendcontrol "-ERR Protocol error\r\n";
     }
     else {
-- 
cgit v1.2.3