diff options
author | Eric Wong <e@80x24.org> | 2021-03-20 19:04:05 +0900 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-03-21 09:45:48 +0000 |
commit | bcf5a733206b14f82cc151c702fd554cd08481ff (patch) | |
tree | 4963c40a5fa0fc51ce20bd89605d70c96d1f533f /t/lei-q-kw.t | |
parent | b6829bbfd86f5d22a8ffb80fd7bfe59299fe6b55 (diff) | |
download | public-inbox-bcf5a733206b14f82cc151c702fd554cd08481ff.tar.gz |
Don't waste precious terminal space when there are only a small number of possible keywords supported/reserved for JMAP. In the future, we may implement more sophisticated wrapping for labels, but it we'll cross tha bridge when we come to it.
Diffstat (limited to 't/lei-q-kw.t')
-rw-r--r-- | t/lei-q-kw.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/lei-q-kw.t b/t/lei-q-kw.t index e7e14221..de2c775a 100644 --- a/t/lei-q-kw.t +++ b/t/lei-q-kw.t @@ -144,7 +144,7 @@ lei_ok(qw(q -o), "mboxrd:$o", "m:$m", @inc); # emulate MUA marking mboxrd message as unread open my $fh, '<', $o or BAIL_OUT; my $s = do { local $/; <$fh> }; -$s =~ s/^Status: OR\n/Status: O\nX-Status: A\n/sm or +$s =~ s/^Status: OR\n/Status: O\nX-Status: AF\n/sm or fail "failed to clear R flag in $s"; open $fh, '>', $o or BAIL_OUT; print $fh $s or BAIL_OUT; @@ -156,7 +156,10 @@ lei_ok(qw(q -o), "mboxrd:$o", "m:$m", @inc); open $fh, '<', $o or BAIL_OUT; $s = do { local $/; <$fh> }; like($s, qr/^Status: O\n/ms, 'seen keyword gone in mbox'); -like($s, qr/^X-Status: A\n/ms, 'answered flag set'); +like($s, qr/^X-Status: AF\n/ms, 'answered + flagged set'); +lei_ok(qw(q --pretty), "m:$m", @inc); +like($lei_out, qr/^ "kw": \["answered", "flagged"\],\n/sm, + '--pretty JSON output shows kw: on one line'); }); # test_lei done_testing; |