Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
6b77e3a8
G
Gpdb
项目概览
Greenplum
/
Gpdb
通知
7
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
G
Gpdb
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
6b77e3a8
编写于
3月 23, 2007
作者:
M
Magnus Hagander
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Forgot commit: support for special-cases in pgcrypto
上级
3024b0aa
变更
1
显示空白变更内容
内联
并排
Showing
1 changed file
with
25 addition
and
1 deletion
+25
-1
src/tools/msvc/getregress.pl
src/tools/msvc/getregress.pl
+25
-1
未找到文件。
src/tools/msvc/getregress.pl
浏览文件 @
6b77e3a8
#
# 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 $
# $PostgreSQL: pgsql/src/tools/msvc/getregress.pl,v 1.
2 2007/03/23 10:05:34
mha Exp $
#
use
strict
;
use
warnings
;
...
...
@@ -18,5 +18,29 @@ if ($m =~ /^REGRESS\s*=\s*(.*)$/gm)
{
my
$t
=
$
1
;
$t
=~
s/\s+/ /g
;
if
(
$m
=~
/contrib\/pgcrypto/
)
{
# pgcrypto is special since the tests depend on the configuration of the build
our
$config
;
require
'
../../src/tools/msvc/config.pl
';
my
$cftests
=
$config
->
{
openssl
}?
GetTests
("
OSSL_TESTS
",
$m
):
GetTests
("
INT_TESTS
",
$m
);
my
$pgptests
=
$config
->
{
zlib
}?
GetTests
("
ZLIB_TST
",
$m
):
GetTests
("
ZLIB_OFF_TST
",
$m
);
$t
=~
s/\$\(CF_TESTS\)/$cftests/
;
$t
=~
s/\$\(CF_PGP_TESTS\)/$pgptests/
;
}
print
"
SET TESTS=
$t
";
}
sub
GetTests
{
my
$testname
=
shift
;
my
$m
=
shift
;
if
(
$m
=~
/^$testname\s*=\s*(.*)$/gm
)
{
return
$
1
;
}
return
"";
}
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录