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/cmp-msgview.t | 94 --------------------------------------------------------
 1 file changed, 94 deletions(-)
 delete mode 100644 xt/cmp-msgview.t

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

diff --git a/xt/cmp-msgview.t b/xt/cmp-msgview.t
deleted file mode 100644
index 9b06f88d..00000000
--- a/xt/cmp-msgview.t
+++ /dev/null
@@ -1,94 +0,0 @@
-#!perl -w
-# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
-# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-use strict;
-use Test::More;
-use Benchmark qw(:all);
-use PublicInbox::Inbox;
-use PublicInbox::View;
-use PublicInbox::TestCommon;
-use PublicInbox::Eml;
-use Digest::MD5;
-require_git(2.19);
-require_mods qw(Data::Dumper Email::MIME Plack::Util);
-Data::Dumper->import('Dumper');
-require PublicInbox::MIME;
-my ($tmpdir, $for_destroy) = tmpdir();
-my $inboxdir = $ENV{GIANT_INBOX_DIR};
-plan skip_all => "GIANT_INBOX_DIR not defined for $0" unless $inboxdir;
-my @cat = qw(cat-file --buffer --batch-check --batch-all-objects --unordered);
-my $ibx = PublicInbox::Inbox->new({ inboxdir => $inboxdir, name => 'perf' });
-my $git = $ibx->git;
-my $fh = $git->popen(@cat);
-vec(my $vec = '', fileno($fh), 1) = 1;
-select($vec, undef, undef, 60) or die "timed out waiting for --batch-check";
-my $mime_ctx = {
-	env => { HTTP_HOST => 'example.com', 'psgi.url_scheme' => 'https' },
-	ibx => $ibx,
-	www => Plack::Util::inline_object(style => sub {''}),
-	obuf => \(my $mime_buf = ''),
-	mhref => '../',
-};
-my $eml_ctx = { %$mime_ctx, obuf => \(my $eml_buf = '') };
-my $n = 0;
-my $m = 0;
-my $ndiff_html = 0;
-my $dig_cls = 'Digest::MD5';
-my $digest_attach = sub { # ensure ->body (not ->body_raw) matches
-	my ($p, $cmp_arg) = @_;
-	my $part = shift @$p;
-	my $dig = $cmp_arg->[0] //= $dig_cls->new;
-	$dig->add($part->body_raw);
-	push @$cmp_arg, join(', ', @$p);
-};
-
-my $git_cb = sub {
-	my ($bref, $oid) = @_;
-	local $SIG{__WARN__} = sub { diag "$inboxdir $oid ", @_ };
-	++$m;
-	my $mime = PublicInbox::MIME->new($$bref);
-	PublicInbox::View::multipart_text_as_html($mime, $mime_ctx);
-	my $eml = PublicInbox::Eml->new($$bref);
-	PublicInbox::View::multipart_text_as_html($eml, $eml_ctx);
-	if ($eml_buf ne $mime_buf) {
-		++$ndiff_html;
-		open my $fh, '>', "$tmpdir/mime" or die $!;
-		print $fh $mime_buf or die $!;
-		close $fh or die $!;
-		open $fh, '>', "$tmpdir/eml" or die $!;
-		print $fh $eml_buf or die $!;
-		close $fh or die $!;
-		# using `git diff', diff(1) may not be installed
-		diag "$inboxdir $oid differs";
-		diag xqx([qw(git diff), "$tmpdir/mime", "$tmpdir/eml"]);
-	}
-	$eml_buf = $mime_buf = '';
-
-	# don't tolerate differences in attachment downloads
-	$mime = PublicInbox::MIME->new($$bref);
-	$mime->each_part($digest_attach, my $mime_cmp = [], 1);
-	$eml = PublicInbox::Eml->new($$bref);
-	$eml->each_part($digest_attach, my $eml_cmp = [], 1);
-	$mime_cmp->[0] = $mime_cmp->[0]->hexdigest;
-	$eml_cmp->[0] = $eml_cmp->[0]->hexdigest;
-	# don't have millions of "ok" lines
-	if (join("\0", @$eml_cmp) ne join("\0", @$mime_cmp)) {
-		diag Dumper([ $oid, eml => $eml_cmp, mime =>$mime_cmp ]);
-		is_deeply($eml_cmp, $mime_cmp, "$inboxdir $oid match");
-	}
-};
-my $t = timeit(1, sub {
-	while (<$fh>) {
-		my ($oid, $type) = split / /;
-		next if $type ne 'blob';
-		++$n;
-		$git->cat_async($oid, $git_cb);
-	}
-	$git->async_wait_all;
-});
-is($m, $n, 'rendered all messages');
-
-# we'll tolerate minor differences in HTML rendering
-diag "$ndiff_html HTML differences";
-
-done_testing();
-- 
cgit v1.2.3-24-ge0c7