No ext_urls

[public-inbox.git] / t / lei-tag.t

diff --git a/t/lei-tag.t b/t/lei-tag.t
index 5cb6d9ce0ac8942016477b46eb19862408c1f380..5941cd0f3da7f91f7550a03a2bf45d72cdf8ee47 100644 (file)
--- a/t/lei-tag.t
+++ b/t/lei-tag.t
@@ -32,8 +32,14 @@ test_lei(sub {
        lei_ok(qw(ls-label)); is($lei_out, "urgent\n", 'label found');
        ok(!lei(qw(tag -F eml t/utf8.eml +kw:seeen)), 'bad kw rejected');
        like($lei_err, qr/`seeen' is not one of/, 'got helpful error');
+
        ok(!lei(qw(tag -F eml t/utf8.eml +k:seen)), 'bad prefix rejected');
+       like($lei_err, qr/Unable to handle.*\Q+k:seen\E/, 'bad prefix noted');
+
        ok(!lei(qw(tag -F eml t/utf8.eml)), 'no keywords');
+       like($lei_err, qr/no keywords or labels specified/,
+               'lack of kw/L noted');
+
        my $mb = "$ENV{HOME}/mb";
        my $md = "$ENV{HOME}/md";
        lei_ok(qw(q m:testmessage@example.com -o), "mboxrd:$mb");
@@ -78,11 +84,19 @@ test_lei(sub {
        lei_ok(qw(ls-label));
        is($lei_out, "nope\nqp\nurgent\n", 'ls-label shows qp');
 
-       lei_ok qw(tag -F eml t/utf8.eml +L:INBOX +L:x); diag $lei_err;
+       lei_ok qw(tag -F eml t/utf8.eml +L:inbox +L:x);
        lei_ok qw(q m:testmessage@example.com);
-       $check_kw->([qw(answered seen)], L => [qw(INBOX nope urgent x)]);
+       $check_kw->([qw(answered seen)], L => [qw(inbox nope urgent x)]);
+       lei_ok(qw(ls-label));
+       is($lei_out, "inbox\nnope\nqp\nurgent\nx\n", 'ls-label shows qp');
+
+       lei_ok qw(q L:inbox);
+       is(json_utf8->decode($lei_out)->[0]->{blob},
+               $r2->[0]->{blob}, 'label search works');
+
+       ok(!lei(qw(tag -F eml t/utf8.eml +L:ALLCAPS)), '+L:ALLCAPS fails');
        lei_ok(qw(ls-label));
-       is($lei_out, "INBOX\nnope\nqp\nurgent\nx\n", 'ls-label shows qp');
+       is($lei_out, "inbox\nnope\nqp\nurgent\nx\n", 'ls-label unchanged');
 
        if (0) { # TODO label+kw search w/ externals
                lei_ok(qw(q L:qp), "mid:$mid", '--only', "$ro_home/t2");