remove failrepo config

We will just use the fallback in Email::Filter to
reduce configuration knobs.  Failed messages are failed
messages, do not classify them beyond that.

2 files changed, 5 insertions, 8 deletions

diff --git a/t/config.t b/t/config.t
index 3ff7b370..145589ea 100644
--- a/t/config.t
+++ b/t/config.t
@@ -26,7 +26,6 @@ my $tmpdir = tempdir(CLEANUP => 1);
 
         my $cfg = PublicInbox::Config->new($f);
         is_deeply($cfg->lookup('bugs@public-inbox.org'), {
-                'failrepo' => '/home/pi/bugs-fail.git',
                 'mainrepo' => '/home/pi/bugs-main.git',
                 'address' => 'bugs@public-inbox.org',
                 'description' => 'development discussion'
diff --git a/t/mda.t b/t/mda.t
index 9f918d35..755864ca 100644
--- a/t/mda.t
+++ b/t/mda.t
@@ -14,7 +14,6 @@ my $home = "$tmpdir/pi-home";
 my $pi_home = "$home/.public-inbox";
 my $pi_config = "$pi_home/config";
 my $maindir = "$tmpdir/main.git";
-my $faildir = "$tmpdir/fail.git";
 my $main_bin = getcwd()."/t/main-bin";
 my $main_path = "$main_bin:$ENV{PATH}"; # for spamc ham mock
 my $fail_bin = getcwd()."/t/fail-bin";
@@ -31,12 +30,10 @@ my $cfgpfx = "publicinbox.test";
         is(1, mkdir($home, 0755), "setup ~/ for testing");
         is(1, mkdir($pi_home, 0755), "setup ~/.public-inbox");
         is(0, system(qw(git init -q --bare), $maindir), "git init (main)");
-        is(0, system(qw(git init -q --bare), $faildir), "git init (fail)");
 
         my %cfg = (
                 "$cfgpfx.address" => $addr,
                 "$cfgpfx.mainrepo" => $maindir,
-                "$cfgpfx.failrepo" => $faildir,
         );
         while (my ($k,$v) = each %cfg) {
                 is(0, system(qw(git config --file), $pi_config, $k, $v),
@@ -71,13 +68,14 @@ EOF
 
         # ensure failures work
         {
+                ok(!-e $failbox, "nothing in PI_FAILBOX before");
                 local $ENV{PATH} = $fail_path;
                 run([$mda], \$in);
-                local $ENV{GIT_DIR} = $faildir;
-                my $rev = `git rev-list HEAD`;
-                like($rev, qr/\A[a-f0-9]{40}/, "bad revision committed");
+                local $ENV{GIT_DIR} = $maindir;
+                my @revs = `git rev-list HEAD`;
+                is(scalar @revs, 1, "bad revision not committed");
+                ok(-s $failbox > 0, "PI_FAILBOX is written to");
         }
-        ok(!-e $failbox, "nothing in PI_FAILBOX");
 }
 
 done_testing();