From d20753c2a9d63e60b90942176684370c9dce97fb Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Sun, 4 Sep 2022 04:27:49 +0000
Subject: prepare HTML rendering maintainer tests for upcoming changes

There'll be a number of upcoming changes to HTML rendering
of messages to hopefully reduce memory usage and speedups
by writing out to the gzip buffer earlier.

Update the tests now so it'll be easier to test before
and after results.
---
 xt/perf-msgview.t | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

(limited to 'xt/perf-msgview.t')

diff --git a/xt/perf-msgview.t b/xt/perf-msgview.t
index cf550c1a..7f92ce85 100644
--- a/xt/perf-msgview.t
+++ b/xt/perf-msgview.t
@@ -7,7 +7,7 @@ use PublicInbox::TestCommon;
 use Benchmark qw(:all);
 use PublicInbox::Inbox;
 use PublicInbox::View;
-use PublicInbox::Spawn qw(popen_rd);
+use PublicInbox::WwwStream;
 
 my $inboxdir = $ENV{GIANT_INBOX_DIR} // $ENV{GIANT_PI_DIR};
 my $blob = $ENV{TEST_BLOB};
@@ -31,26 +31,28 @@ if ($fh) {
 		die "timed out waiting for --batch-check";
 }
 
-my $ctx = {
+my $ctx = bless {
 	env => { HTTP_HOST => 'example.com', 'psgi.url_scheme' => 'https' },
 	ibx => $ibx,
 	www => Plack::Util::inline_object(style => sub {''}),
-};
-my ($mime, $res, $oid, $type);
+	gz => PublicInbox::GzipFilter::gzip_or_die(),
+}, 'PublicInbox::WwwStream';
+my ($eml, $res, $oid, $type);
 my $n = 0;
-my $obuf = '';
 my $m = 0;
+${$ctx->{obuf}} = '';
+$ctx->{mhref} = '../';
 
 my $cb = sub {
-	$mime = PublicInbox::Eml->new(shift);
-	PublicInbox::View::multipart_text_as_html($mime, $ctx);
+	$eml = PublicInbox::Eml->new(shift);
+	$eml->each_part(\&PublicInbox::View::add_text_body, $ctx, 1);
+	$ctx->zflush;
 	++$m;
-	$obuf = '';
+	delete $ctx->{zbuf};
+	${$ctx->{obuf}} = '';
 };
 
 my $t = timeit(1, sub {
-	$ctx->{obuf} = \$obuf;
-	$ctx->{mhref} = '../';
 	if (defined $blob) {
 		my $nr = $ENV{NR} // 10000;
 		for (1..$nr) {
@@ -67,6 +69,6 @@ my $t = timeit(1, sub {
 	}
 	$git->async_wait_all;
 });
-diag 'multipart_text_as_html took '.timestr($t)." for $n <=> $m messages";
+diag 'add_text_body took '.timestr($t)." for $n <=> $m messages";
 is($m, $n, 'rendered all messages');
 done_testing();
-- 
cgit v1.2.3-24-ge0c7