#!perl -w
# Copyright (C) all contributors
# License: AGPL-3.0+
# ensure mpop compatibility
use v5.12;
use File::Path qw(make_path);
use PublicInbox::TestCommon;
use PublicInbox::Spawn qw(which spawn);
my $inboxdir = $ENV{GIANT_INBOX_DIR};
(defined($inboxdir) && -d $inboxdir) or
plan skip_all => "GIANT_INBOX_DIR not defined for $0";
plan skip_all => "bad characters in $inboxdir" if $inboxdir =~ m![^\w\.\-/]!;
my $uuidgen = which('uuidgen') or plan skip_all => 'uuidgen(1) missing';
require_mods(qw(DBD::SQLite));
require_git('2.6'); # for v2
require_mods(qw(File::FcntlLock)) if $^O !~ /\A(?:linux|freebsd)\z/;
my ($tmpdir, $for_destroy) = tmpdir();
my $cfg = "$tmpdir/cfg";
my $newsgroup = 'inbox.test';
my %pids;
{
open my $fh, '>', $cfg or xbail "open: $!";
print $fh < $cfg };
my $td = start_script($cmd, $env, { 3 => $sock }) or xbail "-xbail $?";
chomp(my $uuid = xqx([$uuidgen]));
make_path("$tmpdir/home/.config/mpop",
map { "$tmpdir/md/$_" } qw(new cur tmp));
SKIP: {
my $mpop = which('mpop') or skip('mpop(1) missing', 1);
open my $fh, '>', "$tmpdir/home/.config/mpop/config"
or xbail "open $!";
chmod 0600, $fh;
print $fh <sockhost}
port ${\$sock->sockport}
user $uuid\@$newsgroup
auth user
password anonymous
received_header off
EOM
close $fh or xbail "close $!";
delete local $ENV{XDG_CONFIG_HOME}; # mpop uses this
local $ENV{HOME} = "$tmpdir/home";
my $cmd = [ $mpop, '-q' ];
my $pid = spawn($cmd, undef, { 1 => 2 });
$pids{$pid} = $cmd;
}
while (scalar keys %pids) {
my $pid = waitpid(-1, 0) or next;
my $cmd = delete $pids{$pid} or next;
is($?, 0, join(' ', @$cmd, 'done'));
}
$td->kill;
$td->join;
is($?, 0, 'no error on -pop3d exit');
done_testing;