Commit6b77e3a

committed

Forgot commit: support for special-cases in pgcrypto

1 parent3024b0a commit6b77e3aCopy full SHA for 6b77e3a

File tree

+25

-1

lines changed

+25

-1

lines changed

Lines changed: 25 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`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,5 +18,29 @@`
`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`	`+}`

Comments

(0)