From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <e@80x24.org>
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on dcvr.yhbt.net
X-Spam-Level: 
X-Spam-ASN:  
X-Spam-Status: No, score=-4.2 required=3.0 tests=ALL_TRUSTED,AWL,BAYES_00,
	DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF shortcircuit=no
	autolearn=ham autolearn_force=no version=3.4.6
Received: from localhost (dcvr.yhbt.net [127.0.0.1])
	by dcvr.yhbt.net (Postfix) with ESMTP id 670491F4C1
	for <meta@public-inbox.org>; Mon, 25 Nov 2024 22:27:48 +0000 (UTC)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=80x24.org;
	s=selector1; t=1732573668;
	bh=O2aoa5oA8ipoe0xK6FL1TlScDS6k9rrshX6AB1S8CAM=;
	h=From:To:Subject:Date:From;
	b=XaYcw3hQtyXDGmIviVx88BLqksoPeVo9/I46DlB5Z0aIE7VUdWClWehtZkOD4PYbn
	 EqMkIAgbmKNztcNwChgAJaLA+jWUHwisTlELoiGUtibwhWGJc7dLVh6nuQh2ujyOlo
	 i6YrXL8oZioAeR07orDMDNAJXT98VjXkjjRy5BHk=
From: Eric Wong <e@80x24.org>
To: meta@public-inbox.org
Subject: [PATCH] devel/try-lei: for interactive testing + debugging
Date: Mon, 25 Nov 2024 22:27:48 +0000
Message-ID: <20241125222748.773697-1-e@80x24.org>
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
List-Id: <meta.public-inbox.org>

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.
---
 MANIFEST      |  1 +
 devel/try-lei | 28 ++++++++++++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100755 devel/try-lei

diff --git a/MANIFEST b/MANIFEST
index 6b759487..1305ed8a 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 00000000..0a055d00
--- /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;