# Copyright (C) 2016-2020 all contributors
# License: AGPL-3.0+
#
# real-world testing of search threading
use strict;
use warnings;
use Test::More;
use Benchmark qw(:all);
use PublicInbox::Inbox;
my $inboxdir = $ENV{GIANT_INBOX_DIR} // $ENV{GIANT_PI_DIR};
plan skip_all => "GIANT_INBOX_DIR not defined for $0" unless $inboxdir;
my $ibx = PublicInbox::Inbox->new({ inboxdir => $inboxdir });
eval { require PublicInbox::Search };
my $srch = $ibx->search;
plan skip_all => "$inboxdir not configured for search $0 $@" unless $srch;
require PublicInbox::View;
my $msgs;
my $elapsed = timeit(1, sub {
$msgs = $srch->{over_ro}->recent({limit => 200000});
});
my $n = scalar(@$msgs);
ok($n, 'got some messages');
diag "enquire: ".timestr($elapsed)." for $n";
$elapsed = timeit(1, sub {
PublicInbox::View::thread_results({-inbox => $ibx}, $msgs);
});
diag "thread_results ".timestr($elapsed);
done_testing();