From 68c2233c74cd47bd37fb554a4f4bf54667334ea3 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Wed, 13 Dec 2023 00:50:07 +0000
Subject: tests: account for missing git-http-backend

Alpine Linux ships git-http-backend in the `git-daemon'
package separately from `git', so we must test for its
existence before attempting to test functionality which
depends on it.
---
 lib/PublicInbox/TestCommon.pm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index d587bf10..27a758e4 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -25,7 +25,7 @@ BEGIN {
 		run_script start_script key2sub xsys xsys_e xqx eml_load tick
 		have_xapian_compact json_utf8 setup_public_inboxes create_inbox
 		create_coderepo require_bsd kernel_version check_broken_tmpfs
-		quit_waiter_pipe wait_for_eof
+		quit_waiter_pipe wait_for_eof require_git_http_backend
 		tcp_host_port test_lei lei lei_ok $lei_out $lei_err $lei_opt
 		test_httpd xbail require_cmd is_xdeeply tail_f
 		ignore_inline_c_missing no_pollerfd no_coredump cfg_new
@@ -163,6 +163,23 @@ sub require_git ($;$) {
 		skip("git $req+ required (have $cur_ver), skipping $nr tests")
 }
 
+sub require_git_http_backend (;$) {
+	my ($nr) = @_;
+	state $ok = do {
+		require PublicInbox::Git;
+		my $git = PublicInbox::Git::check_git_exe() or plan
+			skip_all => 'nothing in public-inbox works w/o git';
+		my $rdr = { 1 => \my $out, 2 => \my $err };
+		xsys([$git, qw(http-backend)], undef, $rdr);
+		$out =~ /^Status:/ism;
+	};
+	if (!$ok) {
+		my $msg = "`git http-backend' not available";
+		defined($nr) ? skip $msg, $nr : plan skip_all => $msg;
+	}
+	$ok;
+}
+
 my %IPv6_VERSION = (
 	'Net::NNTP' => 3.00,
 	'Mail::IMAPClient' => 3.40,
-- 
cgit v1.2.3-24-ge0c7