diff options
author | Eric Wong <e@80x24.org> | 2019-11-24 00:22:37 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-11-24 21:47:22 +0000 |
commit | 28caef46cadc34c53e33994597de28f8e05552c0 (patch) | |
tree | f196f64cafa2f24dbe0546207c5b8eca58a6de31 /xt/perf-threading.t | |
parent | 71bcf84313d2cd1b4948b62ec5c2ff6063096d3c (diff) | |
download | public-inbox-28caef46cadc34c53e33994597de28f8e05552c0.tar.gz |
xt/ is typically reserved for "eXtended tests" intended for the maintainers and not ordinary users. Since these require special configuration and do nothing by waste cycles during startup, they qualify.
Diffstat (limited to 'xt/perf-threading.t')
-rw-r--r-- | xt/perf-threading.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/xt/perf-threading.t b/xt/perf-threading.t new file mode 100644 index 00000000..1038bda5 --- /dev/null +++ b/xt/perf-threading.t @@ -0,0 +1,32 @@ +# Copyright (C) 2016-2019 all contributors <meta@public-inbox.org> +# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> +# +# 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(); |