mbox: move mbox_keywords to MboxReader

[public-inbox.git] / t / mbox_reader.t

diff --git a/t/mbox_reader.t b/t/mbox_reader.t
index 18d0fd6818a35f4ac519347fd48cd1fe18231c2d..da0ce7f1e58aff03c0c82eebfaf7536e550af96f 100644 (file)
--- 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}')) {