X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fcommon.perl;h=e49a596524b17c5d559ed6f871bb80195e45fdef;hb=50c822076abee76c3133ffc3482488392eecedfb;hp=688e30ad99cbee6c39a186c289a42eca4d3465e3;hpb=e041f5446ad266ee24e41a38e0090e2a65167606;p=public-inbox.git

diff --git a/t/common.perl b/t/common.perl
index 688e30ad..e49a5965 100644
--- a/t/common.perl
+++ b/t/common.perl
@@ -39,4 +39,18 @@ sub spawn_listener {
 	$pid;
 }
 
+sub require_git ($;$) {
+	my ($req, $maybe) = @_;
+	my ($req_maj, $req_min) = split(/\./, $req);
+	my ($cur_maj, $cur_min) = (`git --version` =~ /version (\d+)\.(\d+)/);
+
+	my $req_int = ($req_maj << 24) | ($req_min << 16);
+	my $cur_int = ($cur_maj << 24) | ($cur_min << 16);
+	if ($cur_int < $req_int) {
+		return 0 if $maybe;
+		plan skip_all => "git $req+ required, have $git_ver";
+	}
+	1;
+}
+
 1;