+ 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');