From d55227f01b2dd5624f64e33775cbd149b5a348f0 Mon Sep 17 00:00:00 2001
From: Magnus Hagander <magnus@hagander.net>
Date: Thu, 22 Mar 2007 13:43:02 +0000
Subject: [PATCH] Forgot to add file needed for PL regression tests
---
src/tools/msvc/getregress.pl | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
create mode 100644 src/tools/msvc/getregress.pl
diff --git a/src/tools/msvc/getregress.pl b/src/tools/msvc/getregress.pl
new file mode 100644
index 00000000000..496dd260116
--- /dev/null
+++ b/src/tools/msvc/getregress.pl
@@ -0,0 +1,22 @@
+#
+# Script that collects a list of regression tests from a Makefile
+#
+# $PostgreSQL: pgsql/src/tools/msvc/getregress.pl,v 1.1 2007/03/22 13:43:02 mha Exp $
+#
+use strict;
+use warnings;
+
+my $M;
+
+open($M,"<Makefile") || open($M,"<GNUMakefile") || die "Could not open Makefile";
+undef $/;
+my $m = <$M>;
+close($M);
+
+$m =~ s/\\[\r\n]*//gs;
+if ($m =~ /^REGRESS\s*=\s*(.*)$/gm)
+{
+ my $t = $1;
+ $t =~ s/\s+/ /g;
+ print "SET TESTS=$t";
+}
--
GitLab