Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
78b13fee
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,发现更多精彩内容 >>
提交
78b13fee
编写于
10月 19, 2002
作者:
T
Tom Lane
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Fix pltcl self-test for recent changes to elog.
上级
ba7c2d2b
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
6 addition
and
5 deletion
+6
-5
src/pl/tcl/test/runtest
src/pl/tcl/test/runtest
+1
-0
src/pl/tcl/test/test_setup.sql
src/pl/tcl/test/test_setup.sql
+5
-5
未找到文件。
src/pl/tcl/test/runtest
浏览文件 @
78b13fee
...
...
@@ -20,6 +20,7 @@ psql -q -n -e $DBNAME <test_queries.sql > test.out 2>&1
if
diff test.expected test.out
>
/dev/null 2>&1
;
then
echo
" Tests passed O.K."
rm
test.out
else
echo
" Tests failed - look at diffs between"
echo
" test.expected and test.out"
...
...
src/pl/tcl/test/test_setup.sql
浏览文件 @
78b13fee
...
...
@@ -120,7 +120,7 @@ create function trig_pkey1_before() returns trigger as '
#
spi_execp -count 1 $GD(plan_pkey1) [list $NEW(key1) $NEW(key2)]
if {$ret == "t"} {
elog
WARN
\\
elog
ERROR
\\
"duplicate key
''
$NEW(key1)
''
,
''
$NEW(key2)
''
for T_pkey1"
}
}
...
...
@@ -131,7 +131,7 @@ create function trig_pkey1_before() returns trigger as '
#
set n [spi_execp -count 1 $GD(plan_dta1) [list $OLD(key1) $OLD(key2)]]
if {$n > 0} {
elog
WARN
\\
elog
ERROR
\\
"key
''
$OLD(key1)
''
,
''
$OLD(key2)
''
referenced by T_dta1"
}
}
...
...
@@ -173,7 +173,7 @@ create function trig_pkey2_before() returns trigger as '
#
set n [spi_execp -count 1 $GD(plan_pkey2) [list $NEW(key1) $NEW(key2)]]
if {$n > 0} {
elog
WARN
\\
elog
ERROR
\\
"duplicate key
''
$NEW(key1)
''
,
''
$NEW(key2)
''
for T_pkey2"
}
...
...
@@ -325,7 +325,7 @@ create function check_primkey() returns trigger as '
and A.attname =
''
[quote $key]
''
\\
and A.atttypid = T.oid"]
if {$n != 1} {
elog
WARN
"table $keyrel doesn
''
t have a field named $key"
elog
ERROR
"table $keyrel doesn
''
t have a field named $key"
}
#
...
...
@@ -362,7 +362,7 @@ create function check_primkey() returns trigger as '
#
set n [spi_execp -count 1 $GD($plankey) $arglist]
if {$n <= 0} {
elog
WARN
"key for $GD($planrel) not in $keyrel"
elog
ERROR
"key for $GD($planrel) not in $keyrel"
}
#
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录