diff options
| author | Magnus Hagander <magnus@hagander.net> | 2007-03-22 13:43:02 +0000 |
|---|---|---|
| committer | Magnus Hagander <magnus@hagander.net> | 2007-03-22 13:43:02 +0000 |
| commit | d55227f01b2dd5624f64e33775cbd149b5a348f0 (patch) | |
| tree | d8f32d8b9da53ced06ed38d8bcd9d96ce31ef0e1 /src | |
| parent | 54d20024c1dad339acc8624d7ca902b762fe0844 (diff) | |
| download | postgresql-d55227f01b2dd5624f64e33775cbd149b5a348f0.tar.gz postgresql-d55227f01b2dd5624f64e33775cbd149b5a348f0.zip | |
Forgot to add file needed for PL regression tests
Diffstat (limited to 'src')
| -rw-r--r-- | src/tools/msvc/getregress.pl | 22 |
1 files changed, 22 insertions, 0 deletions
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"; +} |