diff options
| -rw-r--r-- | src/tools/msvc/vcregress.pl | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl index 80d6089a0a5..ed944575563 100644 --- a/src/tools/msvc/vcregress.pl +++ b/src/tools/msvc/vcregress.pl @@ -1,7 +1,7 @@ # -*-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; @@ -156,14 +156,29 @@ sub plcheck my $lang = $pl eq 'tcl' ? 'pltcl' : $pl; next unless -d "../../$Config/$lang"; $lang = 'plpythonu' if $lang eq 'plpython'; + my @lang_args = ( "--load-language=$lang" ); 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 "Checking $lang\n"; - my @tests = fetchTests(); my @args = ( "../../../$Config/pg_regress/pg_regress", "--psqldir=../../../$Config/psql", - "--dbname=pl_regression","--load-language=$lang",@tests + "--dbname=pl_regression",@lang_args,@tests ); system(@args); my $status = $? >> 8; |