diff options
author | Eric Wong <e@80x24.org> | 2019-10-15 03:40:19 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-10-15 20:26:41 +0000 |
commit | 7e881ac8227d1882c92de6f6701ffcba7cef9191 (patch) | |
tree | 771d41fc13cbbb894d92abccfb87a68ac67949a4 /t/watch_maildir_v2.t | |
parent | 849f57851a04e376cf2327d9e98e8128bf3c756e (diff) | |
download | public-inbox-7e881ac8227d1882c92de6f6701ffcba7cef9191.tar.gz |
This also adds watchheader tests for -watch, which we never had before :x
Diffstat (limited to 't/watch_maildir_v2.t')
-rw-r--r-- | t/watch_maildir_v2.t | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/t/watch_maildir_v2.t b/t/watch_maildir_v2.t index 0a5a8017..99551ceb 100644 --- a/t/watch_maildir_v2.t +++ b/t/watch_maildir_v2.t @@ -171,4 +171,35 @@ EOF is($both, $$msg, 'got original message back from v2'); } +{ + my $want = <<'EOF'; +From: <u@example.com> +List-Id: <i.want.you.to.want.me> +Message-ID: <do.want@example.com> +EOF + my $do_not_want = <<'EOF'; +From: <u@example.com> +List-Id: <do.not.want> +X-Mailing-List: no@example.com +Message-ID: <do.not.want@example.com> +EOF + my $cfg = $orig."$cfgpfx.listid=i.want.you.to.want.me\n"; + PublicInbox::Emergency->new($maildir)->prepare(\$want); + PublicInbox::Emergency->new($maildir)->prepare(\$do_not_want); + my $config = PublicInbox::Config->new(\$cfg); + PublicInbox::WatchMaildir->new($config)->scan('full'); + $ibx = $config->lookup_name('test'); + my $num = $ibx->mm->num_for('do.want@example.com'); + ok(defined $num, 'List-ID matched for watch'); + $num = $ibx->mm->num_for('do.not.want@example.com'); + is($num, undef, 'unaccepted List-ID matched for watch'); + + $cfg = $orig."$cfgpfx.watchheader=X-Mailing-List:no\@example.com\n"; + $config = PublicInbox::Config->new(\$cfg); + PublicInbox::WatchMaildir->new($config)->scan('full'); + $ibx = $config->lookup_name('test'); + $num = $ibx->mm->num_for('do.not.want@example.com'); + ok(defined $num, 'X-Mailing-List matched'); +} + done_testing; |