diff options
| -rwxr-xr-x | tests/ftpserver.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index c32165b62..0e4a7bce6 100755 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -582,6 +582,7 @@ sub protocolsetup { 'FETCH' => \&FETCH_imap, 'LIST' => \&LIST_imap, 'LOGOUT' => \&LOGOUT_imap, + 'SEARCH' => \&SEARCH_imap, 'SELECT' => \&SELECT_imap, 'STATUS' => \&STATUS_imap, 'STORE' => \&STORE_imap @@ -1031,6 +1032,32 @@ sub STATUS_imap { return 0; } +sub SEARCH_imap { + my ($testno) = @_; + fix_imap_params($testno); + + logmsg "SEARCH_imap got test $testno\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 SEARCH completed\r\n"; + + return 0; +} + sub LOGOUT_imap { sendcontrol "* BYE cURL IMAP server signing off\r\n"; sendcontrol "$cmdid OK LOGOUT completed\r\n"; |