t/lei_store: ensure LeiSearch responds to ->isrch

This is needed for SolverGit, at least, and maybe other
bits we share with PSGI in lei.

diff --git a/t/lei_store.t b/t/lei_store.t
index 024ff5273aca742afd2af230538258bb4c4b4744..db94f6daa0cbfe5b3a1c71275cd774b6b7089172 100644 (file)
--- a/t/lei_store.t
+++ b/t/lei_store.t
@@ -23,6 +23,7 @@ is($sto->add_eml($eml), undef, 'idempotent');
 $sto->done;
 {
        my $es = $sto->search;
+       ok($es->can('isrch'), ref($es). ' can ->isrch (for SolverGit)');
        my $msgs = $es->over->query_xover(0, 1000);
        is(scalar(@$msgs), 1, 'one message');
        is($msgs->[0]->{blob}, $smsg->{blob}, 'blob matches');