X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=t%2Finit.t;h=6211bb58fba8b12a43cc786255e629c28c51d95d;hp=16581955435888ae3e5f7f80e7b1bf6e62a1568d;hb=8fa5d57855d38f2e6f7e6d9c2eefcbbf0c4d0ac9;hpb=a411701c82b64ae25253347e78a3260e54f6ebf7 diff --git a/t/init.t b/t/init.t index 16581955..6211bb58 100644 --- a/t/init.t +++ b/t/init.t @@ -66,6 +66,7 @@ SKIP: { require_git(2.6, 1) or skip "git 2.6+ required", 2; use_ok 'PublicInbox::Msgmap'; local $ENV{PI_DIR} = "$tmpdir/.public-inbox/"; + local $ENV{PI_EMERGENCY} = "$tmpdir/.public-inbox/emergency"; my $cfgfile = "$ENV{PI_DIR}/config"; my $cmd = [ '-init', '-V2', 'v2list', "$tmpdir/v2list", qw(http://example.com/v2list v2list@example.com) ]; @@ -123,6 +124,7 @@ SKIP: { my $msg = "Message-ID: <$mid>\n\n"; my $rdr = { 0 => \$msg, 2 => \(my $err = '') }; ok(run_script([qw(-mda --no-precheck)], $env, $rdr), 'deliver V1'); + diag "err=$err" if $err; my $mm = PublicInbox::Msgmap->new_file("$tmpdir/skip3/msgmap.sqlite3"); my $n = $mm->num_for($mid); is($n, 13, 'V2 NNTP article numbers skipped via --skip-artnum'); @@ -132,7 +134,9 @@ SKIP: { $cmd = [ qw(-init -V1 -N12 -Lmedium skip4), "$tmpdir/skip4", qw(http://example.com/skip4), $addr ]; ok(run_script($cmd), '--skip-artnum -V1'); + $err = ''; ok(run_script([qw(-mda --no-precheck)], $env, $rdr), 'deliver V1'); + diag "err=$err" if $err; $mm = PublicInbox::Msgmap->new("$tmpdir/skip4"); $n = $mm->num_for($mid); is($n, 13, 'V1 NNTP article numbers skipped via --skip-artnum');