Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
a184e4db
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,发现更多精彩内容 >>
提交
a184e4db
编写于
7月 06, 2012
作者:
A
Alvaro Herrera
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Convert libpq regress script to Perl
This should ease its use on the Windows build environment.
上级
adb9b7d5
变更
3
隐藏空白更改
内联
并排
Showing
3 changed file
with
63 addition
and
22 deletion
+63
-22
src/interfaces/libpq/test/Makefile
src/interfaces/libpq/test/Makefile
+1
-1
src/interfaces/libpq/test/regress.pl
src/interfaces/libpq/test/regress.pl
+62
-0
src/interfaces/libpq/test/regress.sh
src/interfaces/libpq/test/regress.sh
+0
-21
未找到文件。
src/interfaces/libpq/test/Makefile
浏览文件 @
a184e4db
...
...
@@ -15,7 +15,7 @@ all: $(PROGS)
installcheck
:
all
SRCDIR
=
'
$(top_srcdir)
'
SUBDIR
=
'
$(subdir)
'
\
$(
SHELL)
$(top_srcdir)
/
$(subdir)
/regress.sh
$(
PERL)
$(top_srcdir)
/
$(subdir)
/regress.pl
clean distclean maintainer-clean
:
rm
-f
$(PROGS)
...
...
src/interfaces/libpq/test/regress.pl
0 → 100644
浏览文件 @
a184e4db
#!/usr/bin/perl -w
use
strict
;
# use of SRCDIR/SUBDIR is required for supporting VPath builds
my
$srcdir
=
$ENV
{'
SRCDIR
'}
or
die
'
SRCDIR environment variable is not set
';
my
$subdir
=
$ENV
{'
SUBDIR
'}
or
die
'
SUBDIR environment variable is not set
';
my
$regress_in
=
"
$srcdir
/
$subdir
/regress.in
";
my
$expected_out
=
"
$srcdir
/
$subdir
/expected.out
";
# the output file should land in the build_dir of VPath, or just in
# the current dir, if VPath isn't used
my
$regress_out
=
"
regress.out
";
# open input file first, so possible error isn't sent to redirected STDERR
open
(
REGRESS_IN
,
"
<
",
$regress_in
)
or
die
"
can't open
$regress_in
for reading: $!
";
# save STDOUT/ERR and redirect both to regress.out
open
(
OLDOUT
,
"
>&
",
\
*STDOUT
)
or
die
"
can't dup STDOUT: $!
";
open
(
OLDERR
,
"
>&
",
\
*STDERR
)
or
die
"
can't dup STDERR: $!
";
open
(
STDOUT
,
"
>
",
$regress_out
)
or
die
"
can't open
$regress_out
for writing: $!
";
open
(
STDERR
,
"
>&
",
\
*STDOUT
)
or
die
"
can't dup STDOUT: $!
";
# read lines from regress.in and run uri-regress on them
while
(
<
REGRESS_IN
>
)
{
chomp
;
print
"
trying
$_
\n
";
system
("
./uri-regress
\"
$_
\"
");
print
"
\n
";
}
# restore STDOUT/ERR so we can print the outcome to the user
open
(
STDERR
,
"
>&
",
\
*OLDERR
)
or
die
;
# can't complain as STDERR is still duped
open
(
STDOUT
,
"
>&
",
\
*OLDOUT
)
or
die
"
Can't restore STDOUT: $!
";
# just in case
close
REGRESS_IN
;
my
$diff_status
=
system
(
"
diff -c
\"
$srcdir
/
$subdir
/expected.out
\"
regress.out >regress.diff
");
if
(
$diff_status
==
0
)
{
print
"
=
"
x
70
,
"
\n
";
print
"
All tests passed
\n
";
exit
0
;
}
else
{
print
"
=
"
x
70
,
"
\n
";
print
<<EOF;
FAILED: the test result differs from the expected output
Review the difference in "$subdir/regress.diff"
EOF
print
"
=
"
x
70
,
"
\n
";
exit
1
;
}
src/interfaces/libpq/test/regress.sh
已删除
100644 → 0
浏览文件 @
adb9b7d5
#!/bin/sh
while
read
line
do
echo
"trying
$line
"
./uri-regress
"
$line
"
echo
""
done
<
"
${
SRCDIR
}
/
${
SUBDIR
}
"
/regress.in
>
regress.out 2>&1
if
diff
-c
"
${
SRCDIR
}
/
${
SUBDIR
}
/"
expected.out regress.out
>
regress.diff
;
then
echo
"========================================"
echo
"All tests passed"
exit
0
else
echo
"========================================"
echo
"FAILED: the test result differs from the expected output"
echo
echo
"Review the difference in
${
SUBDIR
}
/regress.diff"
echo
"========================================"
exit
1
fi
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录