X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=xt%2Fimapd-validate.t;h=b6ac3e21685e90142a8039fc90fa99c4b3cb6c5e;hb=7349713101700e488231ad9ffece8ee42de0928c;hp=b7b66d0583f49869ca94785e072505f02fb9050b;hpb=cfae078171fc1453be0795e4ba5f0252627ebba3;p=public-inbox.git
diff --git a/xt/imapd-validate.t b/xt/imapd-validate.t
index b7b66d05..b6ac3e21 100644
--- a/xt/imapd-validate.t
+++ b/xt/imapd-validate.t
@@ -1,5 +1,5 @@
#!perl -w
-# Copyright (C) 2020 all contributors
+# Copyright (C) 2020-2021 all contributors
# License: AGPL-3.0+
# Expensive test to validate compression and TLS.
use strict;
@@ -13,8 +13,9 @@ plan skip_all => "GIANT_INBOX_DIR not defined for $0" unless $inbox_dir;
# 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 Email::Address::XS||Mail::Address));
my $imap_client = 'Mail::IMAPClient';
my $can_compress = $imap_client->can('compress');
if ($can_compress) { # hope this gets fixed upstream, soon
@@ -39,7 +40,7 @@ if (($ENV{IMAP_TEST_URL} // '') =~ m!\Aimap://([^/]+)/(.+)\z!) {
} else {
require_mods(qw(DBD::SQLite));
$make_local_server->();
- $mailbox = "$newsgroup.1-50000";
+ $mailbox = "$newsgroup.0";
}
my %opts = (imap => \%OPT, 'imap+compress' => { %OPT, Compress => 1 });