Xapian boolean terms rely on upper-case prefixes, so the terms
themselves need to be all lowercase.
my ($label) = @_;
length($label) >= $L_MAX and
return "`$label' too long (must be <= $L_MAX)";
my ($label) = @_;
length($label) >= $L_MAX and
return "`$label' too long (must be <= $L_MAX)";
- $label =~ m{\A[a-z0-9_](?:[a-z0-9_\-\./\@,]*[a-z0-9])?\z}i ?
+ $label =~ m{\A[a-z0-9_](?:[a-z0-9_\-\./\@,]*[a-z0-9])?\z} ?
undef : "`$label' is invalid";
},
kw => sub {
undef : "`$label' is invalid";
},
kw => sub {
lei_ok(qw(ls-label));
is($lei_out, "nope\nqp\nurgent\n", 'ls-label shows qp');
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);
+ lei_ok qw(tag -F eml t/utf8.eml +L:inbox +L:x);
lei_ok qw(q m:testmessage@example.com);
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)]);
- is($lei_out, "INBOX\nnope\nqp\nurgent\nx\n", 'ls-label shows qp');
+ 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 unchanged');
if (0) { # TODO label+kw search w/ externals
lei_ok(qw(q L:qp), "mid:$mid", '--only', "$ro_home/t2");
if (0) { # TODO label+kw search w/ externals
lei_ok(qw(q L:qp), "mid:$mid", '--only', "$ro_home/t2");