From: Eric Wong <e@80x24.org>
Date: Mon, 25 Nov 2024 22:27:48 +0000 (+0000)
Subject: devel/try-lei: for interactive testing + debugging
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cdbff8b2042314d442108de2461fea6bd91b18b0;p=thirdparty%2Fpublic-inbox.git

devel/try-lei: for interactive testing + debugging

This script allows creating a clean lei instance for interactive
testing without modifying a user's current lei $HOME||$XDG_*
directories.  I used this to debug and test fixes leading to
99fc3d76 (v2writable: done: force synchronous awaitpid, 2024-11-19) and
807abf67 (lei/store: auto-commit for long-running imports, 2024-11-15)
fixes for long-running `lei import' runs.
---

diff --git a/MANIFEST b/MANIFEST
index 6b759487f..1305ed8ac 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -123,6 +123,7 @@ contrib/selinux/el7/publicinbox.te
 devel/README
 devel/longest-tests
 devel/sysdefs-list
+devel/try-lei
 examples/README
 examples/README.unsubscribe
 examples/cgit-commit-filter.lua
diff --git a/devel/try-lei b/devel/try-lei
new file mode 100755
index 000000000..0a055d005
--- /dev/null
+++ b/devel/try-lei
@@ -0,0 +1,28 @@
+# Copyright all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <http://www.gnu.org/licenses/agpl-3.0.txt>
+# For interactive testing + debugging of lei with a clean $HOME:
+# Usage: ./devel/try-lei
+eval 'exec perl -w -S $0 ${1+"$@"}' # no shebang
+if 0; # running under some shell
+use autodie qw(mkdir symlink);
+my $cwd;
+BEGIN {
+	use Cwd qw(getcwd);
+	$cwd = getcwd;
+	die <<EOM unless -f 'lei.sh';
+must be run in top-level public-inbox worktree (cwd=$cwd)
+EOM
+	unshift @INC, "$cwd/lib";
+	$ENV{PERL5LIB} = join(':', @INC);
+}
+use PublicInbox::TestCommon;
+$ENV{TEST_RUN_MODE} = '0'; # no fork optimization
+test_lei(sub {
+	diag "spawning shell, HOME=$ENV{HOME}, will be deleted when done";
+	mkdir "$ENV{HOME}/bin";
+	diag "ln -s $cwd/lei.sh $ENV{HOME}/bin/lei";
+	symlink "$cwd/lei.sh", "$ENV{HOME}/bin/lei";
+	$ENV{PATH} = "$ENV{HOME}/bin:$ENV{PATH}";
+	is system($ENV{SHELL} // '/bin/sh'), 0, 'subshell ran successfully';
+});
+done_testing;