diff options
author | Eric Wong <e@80x24.org> | 2021-03-16 07:43:44 +0600 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-03-16 06:32:06 -0400 |
commit | 327a4c0a44ab301922a2b2829d423d2e9fc18faf (patch) | |
tree | 1f59a48cac66b5bbb71191bc533eb3e701825b0d /t/mbox_reader.t | |
parent | 1b19e689f0b76290a437dd614da8685574e72b73 (diff) | |
download | public-inbox-327a4c0a44ab301922a2b2829d423d2e9fc18faf.tar.gz |
MboxReader is a more appropriate place for it than LeiStore.
Diffstat (limited to 't/mbox_reader.t')
-rw-r--r-- | t/mbox_reader.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/mbox_reader.t b/t/mbox_reader.t index 18d0fd68..da0ce7f1 100644 --- a/t/mbox_reader.t +++ b/t/mbox_reader.t @@ -24,6 +24,16 @@ my %raw = ( (("b: ".('b' x 72)."\n") x 1000) . "From hell\n", ); +{ + my $eml = PublicInbox::Eml->new($raw{small}); + my $mbox_keywords = PublicInbox::MboxReader->can('mbox_keywords'); + is_deeply($mbox_keywords->($eml), [], 'no keywords'); + $eml->header_set('Status', 'RO'); + is_deeply($mbox_keywords->($eml), ['seen'], 'seen extracted'); + $eml->header_set('X-Status', 'A'); + is_deeply($mbox_keywords->($eml), [qw(answered seen)], + 'seen+answered extracted'); +} if ($ENV{TEST_EXTRA}) { for my $fn (glob('t/*.eml'), glob('t/*/*.{patch,eml}')) { |