Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit78b13fe

Browse files
committed
Fix pltcl self-test for recent changes to elog.
1 parentba7c2d2 commit78b13fe

File tree

2 files changed

+6
-5
lines changed

2 files changed

+6
-5
lines changed

‎src/pl/tcl/test/runtest‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -20,6 +20,7 @@ psql -q -n -e $DBNAME <test_queries.sql > test.out 2>&1
2020

2121
if diff test.expected test.out>/dev/null2>&1;then
2222
echo" Tests passed O.K."
23+
rm test.out
2324
else
2425
echo" Tests failed - look at diffs between"
2526
echo" test.expected and test.out"

‎src/pl/tcl/test/test_setup.sql‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -120,7 +120,7 @@ create function trig_pkey1_before() returns trigger as '
120120
#
121121
spi_execp -count 1 $GD(plan_pkey1) [list $NEW(key1) $NEW(key2)]
122122
if {$ret == "t"} {
123-
elogWARN\\
123+
elogERROR\\
124124
"duplicate key''$NEW(key1)'',''$NEW(key2)'' for T_pkey1"
125125
}
126126
}
@@ -131,7 +131,7 @@ create function trig_pkey1_before() returns trigger as '
131131
#
132132
set n [spi_execp -count 1 $GD(plan_dta1) [list $OLD(key1) $OLD(key2)]]
133133
if {$n > 0} {
134-
elogWARN\\
134+
elogERROR\\
135135
"key''$OLD(key1)'',''$OLD(key2)'' referenced by T_dta1"
136136
}
137137
}
@@ -173,7 +173,7 @@ create function trig_pkey2_before() returns trigger as '
173173
#
174174
set n [spi_execp -count 1 $GD(plan_pkey2) [list $NEW(key1) $NEW(key2)]]
175175
if {$n > 0} {
176-
elogWARN\\
176+
elogERROR\\
177177
"duplicate key''$NEW(key1)'',''$NEW(key2)'' for T_pkey2"
178178
}
179179
@@ -325,7 +325,7 @@ create function check_primkey() returns trigger as '
325325
and A.attname =''[quote $key]''\\
326326
and A.atttypid = T.oid"]
327327
if {$n != 1} {
328-
elogWARN "table $keyrel doesn''t have a field named $key"
328+
elogERROR "table $keyrel doesn''t have a field named $key"
329329
}
330330
331331
#
@@ -362,7 +362,7 @@ create function check_primkey() returns trigger as '
362362
#
363363
set n [spi_execp -count 1 $GD($plankey) $arglist]
364364
if {$n <= 0} {
365-
elogWARN "key for $GD($planrel) not in $keyrel"
365+
elogERROR "key for $GD($planrel) not in $keyrel"
366366
}
367367
368368
#

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp