|
1 | 1 | # |
2 | 2 | # Script that collects a list of regression tests from a Makefile |
3 | 3 | # |
4 | | -# $PostgreSQL: pgsql/src/tools/msvc/getregress.pl,v 1.1 2007/03/22 13:43:02 mha Exp $ |
| 4 | +# $PostgreSQL: pgsql/src/tools/msvc/getregress.pl,v 1.2 2007/03/23 10:05:34 mha Exp $ |
5 | 5 | # |
6 | 6 | use strict; |
7 | 7 | use warnings; |
|
18 | 18 | { |
19 | 19 | my$t =$1; |
20 | 20 | $t =~s/\s+//g; |
| 21 | + |
| 22 | +if ($m =~/contrib\/pgcrypto/) |
| 23 | + { |
| 24 | + |
| 25 | +# pgcrypto is special since the tests depend on the configuration of the build |
| 26 | +our$config; |
| 27 | +require'../../src/tools/msvc/config.pl'; |
| 28 | + |
| 29 | +my$cftests =$config->{openssl}?GetTests("OSSL_TESTS",$m):GetTests("INT_TESTS",$m); |
| 30 | +my$pgptests =$config->{zlib}?GetTests("ZLIB_TST",$m):GetTests("ZLIB_OFF_TST",$m); |
| 31 | +$t =~s/\$\(CF_TESTS\)/$cftests/; |
| 32 | +$t =~s/\$\(CF_PGP_TESTS\)/$pgptests/; |
| 33 | + } |
21 | 34 | print"SET TESTS=$t"; |
22 | 35 | } |
| 36 | + |
| 37 | +subGetTests |
| 38 | +{ |
| 39 | +my$testname =shift; |
| 40 | +my$m =shift; |
| 41 | +if ($m =~/^$testname\s*=\s*(.*)$/gm) |
| 42 | + { |
| 43 | +return$1; |
| 44 | + } |
| 45 | +return""; |
| 46 | +} |