2 # Copyright (C) 2020 all contributors <meta@public-inbox.org>
3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
4 # ensure mbsync and offlineimap compatibility
7 use File::Path qw(mkpath);
8 use PublicInbox::TestCommon;
9 use PublicInbox::Spawn qw(which spawn);
10 my $inboxdir = $ENV{GIANT_INBOX_DIR};
11 (defined($inboxdir) && -d $inboxdir) or
12 plan skip_all => "GIANT_INBOX_DIR not defined for $0";
13 plan skip_all => "bad characters in $inboxdir" if $inboxdir =~ m![^\w\.\-/]!;
14 my ($tmpdir, $for_destroy) = tmpdir();
15 my $cfg = "$tmpdir/cfg";
16 my $newsgroup = 'inbox.test';
17 my $mailbox = "$newsgroup.0";
19 open my $fh, '>', $cfg or BAIL_OUT "open: $!";
20 print $fh <<EOF or BAIL_OUT "print: $!";
22 newsgroup = $newsgroup
23 address = oimap\@example.com
26 close $fh or BAIL_OUT "close: $!";
28 my ($out, $err) = ("$tmpdir/stdout.log", "$tmpdir/stderr.log");
29 my $sock = tcp_server();
30 my $cmd = [ '-imapd', '-W0', "--stdout=$out", "--stderr=$err" ];
31 my $env = { PI_CONFIG => $cfg };
32 my $td = start_script($cmd, $env, { 3 => $sock }) or BAIL_OUT "-imapd: $?";
34 my $c = tcp_connect($sock);
35 like(readline($c), qr/CAPABILITY /, 'got greeting');
37 my ($host, $port) = ($sock->sockhost, $sock->sockport);
41 mkpath([map { "$tmpdir/oimapdir/$_" } qw(cur new tmp)]);
42 my $oimap = which('offlineimap') or skip 'no offlineimap(1)', 1;
43 open my $fh, '>', "$tmpdir/.offlineimaprc" or BAIL_OUT "open: $!";
44 print $fh <<EOF or BAIL_OUT "print: $!";
51 localrepository = l.test
52 remoterepository = r.test
56 localfolders = ~/oimapdir
63 remoteuser = anonymous
66 # python-imaplib2 times out on select/poll when compression is enabled
67 # <https://bugs.debian.org/961713>
70 close $fh or BAIL_OUT "close: $!";
71 my $cmd = [ $oimap, qw(-o -q -u quiet) ];
72 my $pid = spawn($cmd, { HOME => $tmpdir }, { 1 => 2 });
77 mkpath([map { "$tmpdir/mbsyncdir/test/$_" } qw(cur new tmp)]);
78 my $mbsync = which('mbsync') or skip 'no mbsync(1)', 1;
79 open my $fh, '>', "$tmpdir/.mbsyncrc" or BAIL_OUT "open: $!";
80 print $fh <<EOF or BAIL_OUT "print: $!";
88 Inbox ~/mbsyncdir/test
98 # DisableExtension COMPRESS=DEFLATE
101 Master ":remote:inbox"
107 close $fh or BAIL_OUT "close: $!";
108 my $cmd = [ $mbsync, qw(-aqq) ];
109 my $pid = spawn($cmd, { HOME => $tmpdir }, { 1 => 2 });
113 while (scalar keys %pids) {
114 my $pid = waitpid(-1, 0) or next;
115 my $cmd = delete $pids{$pid} or next;
116 is($?, 0, join(' ', @$cmd, 'done'));
119 my $sec = $ENV{TEST_PERSIST} // 0;
120 diag "TEST_PERSIST=$sec";
122 diag "sleeping ${sec}s, imap://$host:$port/$mailbox available";
123 diag "tmpdir=$tmpdir (Maildirs available)";
126 diag "pid=$td->{pid}";
131 is($?, 0, 'no error on -imapd exit');