init: allow arbitrary key-values via -c KEY=VALUE

[public-inbox.git] / t / lei-q-kw.t

diff --git a/t/lei-q-kw.t b/t/lei-q-kw.t
index c00a0a43f8e8aa2eaa95986c3fa7e85966d692dc..528751b4742e19eacd590535417baa0138aa6bc2 100644 (file)
--- a/t/lei-q-kw.t
+++ b/t/lei-q-kw.t
@@ -14,7 +14,6 @@ my $exp = {
        '<testmessage@example.com>' => eml_load('t/utf8.eml'),
 };
 $exp->{'<qp@example.com>'}->header_set('Status', 'RO');
-$exp->{'<testmessage@example.com>'}->header_set('Status', 'O');
 
 test_lei(sub {
 lei_ok(qw(import -F eml t/plack-qp.eml));
@@ -105,9 +104,19 @@ for my $sfx ('', '.gz') {
        my %res;
        PublicInbox::MboxReader->mboxrd($fh, sub {
                my ($eml) = @_;
-               $res{$eml->header_raw('Message-ID')} = $eml;
+               my $mid = $eml->header_raw('Message-ID');
+               if ($mid eq '<testmessage@example.com>') {
+                       is_deeply([$eml->header('Status')], [],
+                               "no status $sfx");
+                       $eml->header_set('Status');
+               } elsif ($mid eq '<qp@example.com>') {
+                       is($eml->header('Status'), 'RO', 'status preserved');
+               } else {
+                       fail("unknown mid $mid");
+               }
+               $res{$mid} = $eml;
        });
-       is_deeply(\%res, $exp, '--augment worked');
+       is_deeply(\%res, $exp, '--augment worked') or diag $lei_err;
 
        lei_ok(qw(q -o), "mboxrd:/dev/stdout", qw(m:qp@example.com)) or
                diag $lei_err;