diff options
Diffstat (limited to 't/search.t')
| -rw-r--r-- | t/search.t | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -3,8 +3,9 @@ use strict; use warnings; use Test::More; -eval { require PublicInbox::SearchIdx; }; -plan skip_all => "Xapian missing for search" if $@; +eval { require Search::Xapian }; +plan skip_all => "Search::Xapian missing for search" if $@; +require PublicInbox::SearchIdx; use File::Temp qw/tempdir/; use Email::MIME; my $tmpdir = tempdir('pi-search-XXXXXX', TMPDIR => 1, CLEANUP => 1); @@ -12,7 +13,7 @@ my $git_dir = "$tmpdir/a.git"; my ($root_id, $last_id); is(0, system(qw(git init --shared -q --bare), $git_dir), "git init (main)"); -eval { PublicInbox::Search->new($git_dir) }; +eval { PublicInbox::Search->new($git_dir)->xdb }; ok($@, "exception raised on non-existent DB"); my $rw = PublicInbox::SearchIdx->new($git_dir, 1); @@ -223,7 +224,7 @@ $ibx->with_umask(sub { $rw_commit->(); $ro->reopen; - my $t = $ro->get_thread('root@s'); + my $t = $ro->{over_ro}->get_thread('root@s'); is(scalar(@$t), 4, "got all 4 mesages in thread"); my @exp = sort($long_reply_mid, 'root@s', 'last@s', $long_mid); @res = filter_mids($t); @@ -422,7 +423,7 @@ $ibx->with_umask(sub { if (scalar(@$n) >= 1) { my $mid = $n->[0]->mid; my ($id, $prev); - $art = $ro->next_by_mid($mid, \$id, \$prev); + $art = $ro->{over_ro}->next_by_mid($mid, \$id, \$prev); ok($art, 'article exists in OVER DB'); } $rw->unindex_blob($amsg); |