Support preprocessing of atx tests under windows

vbwagner · vbwagner · commit e4bb9154a41b · 2016-12-08T11:22:39.000+03:00
diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm
@@ -514,6 +514,9 @@ sub mkvcbuild
 		  if (!(defined($pyprefix) && defined($pyver)));
 
 		my $pymajorver = substr($pyver, 0, 1);
+		ProcessTestSubstitutions("python_majorversion",$pymajorver,
+			"src/test/regress/sql/atx.sql",
+			"src/test/regress/expected/atx.out");
 		my $plpython = $solution->AddProject('plpython' . $pymajorver,
 			'dll', 'PLs', 'src/pl/plpython');
 		$plpython->AddIncludeDir($pyprefix . '/include');
@@ -983,4 +986,20 @@ sub AdjustModule
 	}
 }
 
+sub ProcessTestSubstitutions {
+	my $varname = shift;
+	my $varvalue = shift;
+	for my $file (@_) {
+		open IN,"<","${file}.in" or die "${file}.in not found";
+		open OUT,">",$file;
+		while (<IN>) {
+			s/\@$varname\@/$varvalue/g;
+			print OUT $_;
+		}
+		close IN;
+		close OUT;
+	}
+}
+
+
 1;
