X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=xt%2Fimapd-mbsync-oimap.t;h=6635e2b477ee80381dd64118f5bb5bd1f4f5757b;hb=bf367c9ac999e2e64a53ead083f68b171d9f6d35;hp=c097a0262f06f908189ed89477c0ea545dd55336;hpb=27f17d80e4e8e15b5e7d50045b1853ec7bdb4b3b;p=public-inbox.git
diff --git a/xt/imapd-mbsync-oimap.t b/xt/imapd-mbsync-oimap.t
index c097a026..6635e2b4 100644
--- a/xt/imapd-mbsync-oimap.t
+++ b/xt/imapd-mbsync-oimap.t
@@ -1,5 +1,5 @@
#!perl -w
-# Copyright (C) 2020 all contributors
+# Copyright (C) 2020-2021 all contributors
# License: AGPL-3.0+
# ensure mbsync and offlineimap compatibility
use strict;
@@ -7,6 +7,7 @@ use Test::More;
use File::Path qw(mkpath);
use PublicInbox::TestCommon;
use PublicInbox::Spawn qw(which spawn);
+require_mods(qw(DBD::SQLite Email::Address::XS||Mail::Address));
my $inboxdir = $ENV{GIANT_INBOX_DIR};
(defined($inboxdir) && -d $inboxdir) or
plan skip_all => "GIANT_INBOX_DIR not defined for $0";
@@ -34,6 +35,8 @@ my $td = start_script($cmd, $env, { 3 => $sock }) or BAIL_OUT "-imapd: $?";
my $c = tcp_connect($sock);
like(readline($c), qr/CAPABILITY /, 'got greeting');
}
+
+my $host_port = tcp_host_port($sock);
my ($host, $port) = ($sock->sockhost, $sock->sockport);
my %pids;
@@ -98,7 +101,7 @@ UseNamespace no
# DisableExtension COMPRESS=DEFLATE
Channel "test"
-Master ":remote:inbox"
+Master ":remote:INBOX"
Slave ":local:test"
Expunge None
Sync PullNew
@@ -119,7 +122,7 @@ while (scalar keys %pids) {
my $sec = $ENV{TEST_PERSIST} // 0;
diag "TEST_PERSIST=$sec";
if ($sec) {
- diag "sleeping ${sec}s, imap://$host:$port/$mailbox available";
+ diag "sleeping ${sec}s, imap://$host_port/$mailbox available";
diag "tmpdir=$tmpdir (Maildirs available)";
diag "stdout=$out";
diag "stderr=$err";