X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Flei-import.t;h=6e9a853cf421d8a6ce6c2fbbe1bb06c45b65c7b3;hb=21fcd8a37c82c1ef654d402cf592f0c9d803aa26;hp=9bb4e1fab97a951a7decb5ec6c926bafcddec605;hpb=b3e2975029ae938bb232aaa0cbc3dabda55d57d6;p=public-inbox.git

diff --git a/t/lei-import.t b/t/lei-import.t
index 9bb4e1fa..6e9a853c 100644
--- a/t/lei-import.t
+++ b/t/lei-import.t
@@ -83,6 +83,7 @@ is_deeply($res->[0]->{kw}, ['seen'], "`seen' keywords set");
 $eml_str = <<'EOM';
 Subject: draft message with no sender
 References: <y@y>
+Resent-Message-ID: <resent-test@example>
 
 No use for a name
 EOM
@@ -100,6 +101,16 @@ is_deeply($draft_a, $draft_b, 'fake Message-ID lookup') or
 lei_ok('blob', '--mail', $draft_b->[0]->{blob});
 is($lei_out, $eml_str, 'draft retrieved by blob');
 
+
+$eml_str = "Message-ID: <inbox\@example.com>\nSubject: label-this\n\n";
+lei_ok([qw(import -F eml - +kw:seen +L:inbox)],
+	undef, { %$lei_opt, 0 => \$eml_str });
+lei_ok(qw(q m:inbox@example.com));
+$res = json_utf8->decode($lei_out);
+is_deeply($res->[0]->{kw}, ['seen'], 'keyword set');
+is_deeply($res->[0]->{L}, ['inbox'], 'label set');
+
+
 # see t/lei_to_mail.t for "import -F mbox*"
 });
 done_testing;