diff options
| -rw-r--r-- | MANIFEST | 2 | ||||
| -rw-r--r-- | t/perf-threading.t | 32 | ||||
| -rw-r--r-- | t/thread-all.t | 32 |
3 files changed, 33 insertions, 33 deletions
@@ -173,6 +173,7 @@ t/msgmap.t t/nntp.t t/nntpd.t t/over.t +t/perf-threading.t t/plack.t t/precheck.t t/psgi_attach.t @@ -186,7 +187,6 @@ t/search-thr-index.t t/search.t t/spamcheck_spamc.t t/spawn.t -t/thread-all.t t/thread-cycle.t t/time.t t/utf8.mbox diff --git a/t/perf-threading.t b/t/perf-threading.t new file mode 100644 index 00000000..15779c93 --- /dev/null +++ b/t/perf-threading.t @@ -0,0 +1,32 @@ +# Copyright (C) 2016-2018 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 $pi_dir = $ENV{GIANT_PI_DIR}; +plan skip_all => "GIANT_PI_DIR not defined for $0" unless $pi_dir; +my $ibx = PublicInbox::Inbox->new({ mainrepo => $pi_dir }); +eval { require PublicInbox::Search }; +my $srch = $ibx->search; +plan skip_all => "$pi_dir 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(); diff --git a/t/thread-all.t b/t/thread-all.t deleted file mode 100644 index 820fba81..00000000 --- a/t/thread-all.t +++ /dev/null @@ -1,32 +0,0 @@ -# Copyright (C) 2016-2018 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 Time::HiRes qw(clock_gettime CLOCK_MONOTONIC); -use PublicInbox::Inbox; -my $pi_dir = $ENV{GIANT_PI_DIR}; -plan skip_all => "GIANT_PI_DIR not defined for $0" unless $pi_dir; -my $ibx = PublicInbox::Inbox->new({ mainrepo => $pi_dir }); -my $srch = $ibx->search; -plan skip_all => "$pi_dir not configured for search $0" unless $srch; - -require PublicInbox::View; -require PublicInbox::SearchThread; - -my $t0 = clock_gettime(CLOCK_MONOTONIC); -my $elapsed; -my $msgs = $srch->{over_ro}->recent({limit => 200000}); -my $n = scalar(@$msgs); -ok($n, 'got some messages'); -$elapsed = clock_gettime(CLOCK_MONOTONIC) - $t0; -diag "enquire: $elapsed for $n"; - -$t0 = clock_gettime(CLOCK_MONOTONIC); -PublicInbox::View::thread_results({-inbox => $ibx}, $msgs); -$elapsed = clock_gettime(CLOCK_MONOTONIC) - $t0; -diag "thread_results $elapsed"; - -done_testing(); |