diff options
| author | Eric Wong <e@80x24.org> | 2021-03-25 06:20:26 +0200 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2021-03-25 17:59:05 +0000 |
| commit | 0505a8f75b9855faac6ac913306a3a4e679a6bec (patch) | |
| tree | b7927dc2de016ad23da5687b08a8e41a2f8cebc2 /t/lei-q-thread.t | |
| parent | 67379b592b29883618a380e81a3e2553702010f1 (diff) | |
| download | public-inbox-0505a8f75b9855faac6ac913306a3a4e679a6bec.tar.gz | |
This seems to error out while looping the test suite and I'm not 100% sure why.
Diffstat (limited to 't/lei-q-thread.t')
| -rw-r--r-- | t/lei-q-thread.t | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/t/lei-q-thread.t b/t/lei-q-thread.t index c999d12b..26d06eec 100644 --- a/t/lei-q-thread.t +++ b/t/lei-q-thread.t @@ -13,7 +13,8 @@ test_lei(sub { lei_ok qw(q -t m:testmessage@example.com); my $res = json_utf8->decode($lei_out); - is_deeply($res->[0]->{kw}, [ 'seen' ], 'q -t sets keywords'); + is_deeply($res->[0]->{kw}, [ 'seen' ], 'q -t sets keywords') or + diag explain($res); $eml = eml_load('t/utf8.eml'); $eml->header_set('References', $eml->header('Message-ID')); @@ -28,9 +29,9 @@ test_lei(sub { pop @$res; my %m = map { $_->{'m'} => $_ } @$res; is_deeply($m{'testmessage@example.com'}->{kw}, ['seen'], - 'flag set in direct hit'); - 'TODO' or is_deeply($m{'a-reply@miss'}->{kw}, ['draft'], - 'flag set in thread hit'); + 'flag set in direct hit') or diag explain($res); + is_deeply($m{'a-reply@miss'}->{kw}, ['draft'], + 'flag set in thread hit') or diag explain($res); lei_ok qw(q -t -t m:testmessage@example.com); $res = json_utf8->decode($lei_out); @@ -38,9 +39,9 @@ test_lei(sub { pop @$res; %m = map { $_->{'m'} => $_ } @$res; is_deeply($m{'testmessage@example.com'}->{kw}, ['flagged', 'seen'], - 'flagged set in direct hit'); - 'TODO' or is_deeply($m{'testmessage@example.com'}->{kw}, ['draft'], - 'flagged set in direct hit'); + 'flagged set in direct hit') or diag explain($res); + is_deeply($m{'a-reply@miss'}->{kw}, ['draft'], + 'set in thread hit') or diag explain($res); lei_ok qw(q -tt m:testmessage@example.com --only), "$ro_home/t2"; $res = json_utf8->decode($lei_out); is_deeply($res->[0]->{kw}, [ qw(flagged seen) ], |