aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtests/ftpserver.pl23
1 files changed, 15 insertions, 8 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 2655575b8..2756e07ca 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -1001,14 +1001,21 @@ sub EXAMINE_imap {
logmsg "EXAMINE_imap got test $testno\n";
- # Example from RFC 3501, 6.3.2. EXAMINE Command
- sendcontrol "* 17 EXISTS\r\n";
- sendcontrol "* 2 RECENT\r\n";
- sendcontrol "* OK [UNSEEN 8] Message 8 is first unseen\r\n";
- sendcontrol "* OK [UIDVALIDITY 3857529045] UIDs valid\r\n";
- sendcontrol "* OK [UIDNEXT 4392] Predicted next UID\r\n";
- sendcontrol "* FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)\r\n";
- sendcontrol "* OK [PERMANENTFLAGS ()] No permanent flags permitted\r\n";
+ $testno =~ s/[^0-9]//g;
+ my $testpart = "";
+ if ($testno > 10000) {
+ $testpart = $testno % 10000;
+ $testno = int($testno / 10000);
+ }
+
+ loadtest("$srcdir/data/test$testno");
+
+ my @data = getpart("reply", "data$testpart");
+
+ for my $d (@data) {
+ sendcontrol $d;
+ }
+
sendcontrol "$cmdid OK [READ-ONLY] EXAMINE completed\r\n";
return 0;