diff options
Diffstat (limited to 't')
-rw-r--r-- | t/lei-externals.t | 2 | ||||
-rw-r--r-- | t/lei-q-thread.t | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/t/lei-externals.t b/t/lei-externals.t index 29667640..2a92d101 100644 --- a/t/lei-externals.t +++ b/t/lei-externals.t @@ -25,7 +25,7 @@ SKIP: { lei_ok(@cmd, \"query $url"); is($lei_err, '', "no errors on $url"); my $res = json_utf8->decode($lei_out); - is($res->[0]->{'m'}, "<$mid>", "got expected mid from $url") or + is($res->[0]->{'m'}, $mid, "got expected mid from $url") or skip 'further remote tests', 1; lei_ok(@cmd, 'd:..20101002', \'no results, no error'); is($lei_err, '', 'no output on 404, matching local FS behavior'); diff --git a/t/lei-q-thread.t b/t/lei-q-thread.t index 28c639f5..e24fb2cb 100644 --- a/t/lei-q-thread.t +++ b/t/lei-q-thread.t @@ -27,9 +27,9 @@ test_lei(sub { is(scalar(@$res), 3, 'got 2 results'); pop @$res; my %m = map { $_->{'m'} => $_ } @$res; - is_deeply($m{'<testmessage@example.com>'}->{kw}, ['seen'], + is_deeply($m{'testmessage@example.com'}->{kw}, ['seen'], 'flag set in direct hit'); - 'TODO' or is_deeply($m{'<a-reply@miss>'}->{kw}, ['draft'], + 'TODO' or is_deeply($m{'a-reply@miss'}->{kw}, ['draft'], 'flag set in thread hit'); lei_ok qw(q -t -t m:testmessage@example.com); @@ -37,9 +37,9 @@ test_lei(sub { is(scalar(@$res), 3, 'got 2 results with -t -t'); pop @$res; %m = map { $_->{'m'} => $_ } @$res; - is_deeply($m{'<testmessage@example.com>'}->{kw}, ['flagged', 'seen'], + is_deeply($m{'testmessage@example.com'}->{kw}, ['flagged', 'seen'], 'flagged set in direct hit'); - 'TODO' or is_deeply($m{'<testmessage@example.com>'}->{kw}, ['draft'], + 'TODO' or is_deeply($m{'testmessage@example.com'}->{kw}, ['draft'], 'flagged set in direct hit'); lei_ok qw(q -tt m:testmessage@example.com --only), "$ro_home/t2"; $res = json_utf8->decode($lei_out); |