diff options
author | Eric Wong <e@80x24.org> | 2016-06-24 01:15:16 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-06-24 07:03:47 +0000 |
commit | 40782735e74e427997b5b900d60cc07597e330c3 (patch) | |
tree | c2131a869e83df2173eda00cdfee988d48594b67 /t/watch_maildir.t | |
parent | f881729b5654a707cbc22dd0a386b3cbdff68d83 (diff) | |
download | public-inbox-40782735e74e427997b5b900d60cc07597e330c3.tar.gz |
Mailing lists I watch and mirror may not have the best spam filtering, and an extra layer should not hurt.
Diffstat (limited to 't/watch_maildir.t')
-rw-r--r-- | t/watch_maildir.t | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/t/watch_maildir.t b/t/watch_maildir.t index be1a3128..21389638 100644 --- a/t/watch_maildir.t +++ b/t/watch_maildir.t @@ -3,6 +3,7 @@ use Test::More; use File::Temp qw/tempdir/; use Email::MIME; +use Cwd; use PublicInbox::Config; my @mods = qw(Filesys::Notify::Simple); foreach my $mod (@mods) { @@ -86,4 +87,37 @@ More majordomo info at http://vger.kernel.org/majordomo-info.html\n); is(scalar @list, 4, 'four revisions in rev-list'); } +{ + my $fail_bin = getcwd()."/t/fail-bin"; + ok(-x "$fail_bin/spamc", "mock spamc exists"); + my $fail_path = "$fail_bin:$ENV{PATH}"; # for spamc ham mock + local $ENV{PATH} = $fail_path; + PublicInbox::Emergency->new($maildir)->prepare(\$msg); + $config->{'publicinboxwatch.spamcheck'} = 'spamc'; + PublicInbox::WatchMaildir->new($config)->scan; + @list = $git->qx(qw(ls-tree -r --name-only refs/heads/master)); + is(scalar @list, 0, 'tree has no files spamc checked'); + is(unlink(glob("$maildir/new/*")), 1); +} + +{ + my $main_bin = getcwd()."/t/main-bin"; + ok(-x "$main_bin/spamc", "mock spamc exists"); + my $main_path = "$main_bin:$ENV{PATH}"; # for spamc ham mock + local $ENV{PATH} = $main_path; + PublicInbox::Emergency->new($maildir)->prepare(\$msg); + $config->{'publicinboxwatch.spamcheck'} = 'spamc'; + @list = $git->qx(qw(ls-tree -r --name-only refs/heads/master)); + PublicInbox::WatchMaildir->new($config)->scan; + @list = $git->qx(qw(ls-tree -r --name-only refs/heads/master)); + is(scalar @list, 1, 'tree has one file after spamc checked'); + + # XXX: workaround some weird caching/memoization in cat-file, + # shouldn't be an issue in real-world use, though... + $git = PublicInbox::Git->new($git_dir); + + my $mref = $git->cat_file('refs/heads/master:'.$list[0]); + like($$mref, qr/something\n\z/s, 'message scrubbed on import'); +} + done_testing; |