#!perl -w
-# Copyright (C) 2020 all contributors <meta@public-inbox.org>
+# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
# Expensive test to validate compression and TLS.
use strict;
-use Test::More;
+use v5.10.1;
use Symbol qw(gensym);
use PublicInbox::DS qw(now);
use POSIX qw(_exit);
# how many emails to read into memory at once per-process
my $BATCH = $ENV{TEST_BATCH} // 100;
my $REPEAT = $ENV{TEST_REPEAT} // 1;
+diag "TEST_BATCH=$BATCH TEST_REPEAT=$REPEAT";
-require_mods(qw(Mail::IMAPClient));
+require_mods(qw(Mail::IMAPClient -imapd));
my $imap_client = 'Mail::IMAPClient';
my $can_compress = $imap_client->can('compress');
if ($can_compress) { # hope this gets fixed upstream, soon
}
my ($tmpdir, $for_destroy) = tmpdir();
my %OPT = qw(User u Password p);
-my (%STARTTLS_OPT, %IMAPS_OPT, $td, $mailbox, $make_local_server);
+my (%STARTTLS_OPT, %IMAPS_OPT, $td, $newsgroup, $mailbox, $make_local_server);
if (($ENV{IMAP_TEST_URL} // '') =~ m!\Aimap://([^/]+)/(.+)\z!) {
($OPT{Server}, $mailbox) = ($1, $2);
$OPT{Server} =~ s/:([0-9]+)\z// and $OPT{Port} = $1 + 0;
} else {
require_mods(qw(DBD::SQLite));
$make_local_server->();
+ $mailbox = "$newsgroup.0";
}
my %opts = (imap => \%OPT, 'imap+compress' => { %OPT, Compress => 1 });
$make_local_server = sub {
require PublicInbox::Inbox;
- $mailbox = 'inbox.test';
- my $ibx = { inboxdir => $inbox_dir, newsgroup => $mailbox };
+ $newsgroup = 'inbox.test';
+ my $ibx = { inboxdir => $inbox_dir, newsgroup => $newsgroup };
$ibx = PublicInbox::Inbox->new($ibx);
my $pi_config = "$tmpdir/config";
{
open my $fh, '>', $pi_config or die "open($pi_config): $!";
print $fh <<"" or die "print $pi_config: $!";
[publicinbox "test"]
- newsgroup = $mailbox
+ newsgroup = $newsgroup
inboxdir = $inbox_dir
address = test\@example.com
# not using multiple workers, here, since we want to increase
# the chance of tripping concurrency bugs within PublicInbox/IMAP*.pm
my $cmd = [ '-imapd', "--stdout=$out", "--stderr=$err", '-W0' ];
- push @$cmd, '-limap://'.$imap->sockhost.':'.$imap->sockport;
+ push @$cmd, '-limap://'.tcp_host_port($imap);
if ($test_tls) {
my $imaps = tcp_server();
$rdr->{4} = $imaps;
- push @$cmd, '-limaps://'.$imaps->sockhost.':'.$imaps->sockport;
+ push @$cmd, '-limaps://'.tcp_host_port($imaps);
push @$cmd, "--cert=$cert", "--key=$key";
my $tls_opt = [
SSL_hostname => 'server.local',