From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <e@80x24.org>
X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on dcvr.yhbt.net
X-Spam-Level: 
X-Spam-ASN:  
X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00
	shortcircuit=no autolearn=ham autolearn_force=no version=3.4.0
Received: from localhost (dcvr.yhbt.net [127.0.0.1])
	by dcvr.yhbt.net (Postfix) with ESMTP id E015B1FAE2
	for <meta@public-inbox.org>; Tue,  3 Apr 2018 11:09:12 +0000 (UTC)
From: "Eric Wong (Contractor, The Linux Foundation)" <e@80x24.org>
To: meta@public-inbox.org
Subject: [PATCH 2/7] rename+rewrite test using Benchmark module
Date: Tue,  3 Apr 2018 11:09:07 +0000
Message-Id: <20180403110912.24231-3-e@80x24.org>
In-Reply-To: <20180403110912.24231-1-e@80x24.org>
References: <20180403110912.24231-1-e@80x24.org>
List-Id: <meta.public-inbox.org>

There'll be more performance-related tests in the future.
---
 MANIFEST           |  2 +-
 t/perf-threading.t | 32 ++++++++++++++++++++++++++++++++
 t/thread-all.t     | 32 --------------------------------
 3 files changed, 33 insertions(+), 33 deletions(-)
 create mode 100644 t/perf-threading.t
 delete mode 100644 t/thread-all.t

diff --git a/MANIFEST b/MANIFEST
index 5fd8acf..4e79a4c 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -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 0000000..15779c9
--- /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 820fba8..0000000
--- 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();
-- 
EW