1berry/postgres
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Run recently backported plperlu_plperl regression tests when building with MSVC on releases 8.4 and 8.3. Regression tests weren't supported before that.

Browse Source
This commit is contained in:
Andrew Dunstan 2010-06-02 15:58:26 +00:00
parent f8fc6082b4
commit 619360f59b
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/tools/msvc/vcregress.pl
View File

@ -1,7 +1,7 @@
# -*-perl-*- hey - emacs - this is a perl file # -*-perl-*- hey - emacs - this is a perl file
# $PostgreSQL: pgsql/src/tools/msvc/vcregress.pl,v 1.10.2.1 2010/03/02 18:16:16 adunstan Exp $ # $PostgreSQL: pgsql/src/tools/msvc/vcregress.pl,v 1.10.2.2 2010/06/02 15:58:26 adunstan Exp $
use strict; use strict;
@ -156,14 +156,29 @@ sub plcheck
my $lang = $pl eq 'tcl' ? 'pltcl' : $pl; my $lang = $pl eq 'tcl' ? 'pltcl' : $pl;
next unless -d "../../$Config/$lang"; next unless -d "../../$Config/$lang";
$lang = 'plpythonu' if $lang eq 'plpython'; $lang = 'plpythonu' if $lang eq 'plpython';
my @lang_args = ( "--load-language=$lang" );
chdir $pl; chdir $pl;
my @tests = fetchTests();
if ($lang eq 'plperl')
{
# run both trusted and untrusted perl tests
push (@lang_args, "--load-language=plperlu");
# assume we're using this perl to built postgres
# test if we can run two interpreters in one backend, and if so
# run the trusted/untrusted interaction tests
use Config;
if ($Config{usemultiplicity} eq 'define')
{
push(@tests,'plperl_plperlu');
}
}
print "============================================================\n"; print "============================================================\n";
print "Checking $lang\n"; print "Checking $lang\n";
my @tests = fetchTests();
my @args = ( my @args = (
"../../../$Config/pg_regress/pg_regress", "../../../$Config/pg_regress/pg_regress",
"--psqldir=../../../$Config/psql", "--psqldir=../../../$Config/psql",
"--dbname=pl_regression","--load-language=$lang",@tests "--dbname=pl_regression",@lang_args,@tests
); );
system(@args); system(@args);
my $status = $? >> 8; my $status = $? >> 8;