pl/tcl regression failed - Mailing list pgsql-hackers

Hi,

I have finished buildfarm setup, just waiting for my credentials.
However, I've install tcl 8.5a and regression tests fail like this:

ISTM it's just cosmetic, just want to share...

gmake[1]: Leaving directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/pl/plperl'
gmake[1]: Entering directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/pl/tcl'
gmake -C ../../../src/test/regress pg_regress
gmake[2]: Entering directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/test/regress'
gmake[2]: `pg_regress' is up to date.
gmake[2]: Leaving directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/test/regress'
/bin/sh ../../../src/test/regress/pg_regress --dbname=pl_regression --load-language=pltcl pltcl_setup pltcl_queries
(using postmaster on Unix socket, default port)
============== dropping database "pl_regression"      ==============
DROP DATABASE
============== creating database "pl_regression"      ==============
CREATE DATABASE
============== dropping regression test user accounts ==============
============== installing pltcl                       ==============
============== running regression test queries        ==============
test pltcl_setup          ... ok
test pltcl_queries        ... FAILED

======================1 of 2 tests failed.
======================

The differences that caused some tests to fail can be viewed in the
file `./regression.diffs'.  A copy of the test summary that you see
above is saved in the file `./regression.out'.

gmake[1]: *** [installcheck] Error 1
gmake[1]: Leaving directory `/home4/ohp/pgfarmbuild/HEAD/pgsql.24436/src/pl/tcl'
gmake: *** [installcheck] Error 2


================= pgsql.24436/src/pl/tcl/regression.diffs ===================
*** ./expected/pltcl_queries.out    Sun Jun 11 19:58:48 2006
--- ./results/pltcl_queries.out    Sun Jun 11 20:05:34 2006
***************
*** 38,56 **** insert into T_pkey1 values (1, 'KEY1-3', 'should work'); -- Due to the upper case translation in trigger
thismust fail insert into T_pkey2 values (1, 'KEY1-3', 'should fail');
 
! ERROR:  duplicate key '1', 'KEY1-3' for T_pkey2 insert into T_dta1 values ('trec 1', 1, 'key1-1'); insert into T_dta1
values('trec 2', 1, 'key1-2'); insert into T_dta1 values ('trec 3', 1, 'key1-3'); -- Must fail due to unknown key in
T_pkey1insert into T_dta1 values ('trec 4', 1, 'key1-4');
 
! ERROR:  key for t_dta1 not in t_pkey1 insert into T_dta2 values ('trec 1', 1, 'KEY1-1'); insert into T_dta2 values
('trec2', 1, 'KEY1-2'); insert into T_dta2 values ('trec 3', 1, 'KEY1-3'); -- Must fail due to unknown key in T_pkey2
insertinto T_dta2 values ('trec 4', 1, 'KEY1-4');
 
! ERROR:  key for t_dta2 not in t_pkey2 select * from T_dta1;     tkey    | ref1 |         ref2
------------+------+----------------------
--- 38,56 ---- insert into T_pkey1 values (1, 'KEY1-3', 'should work'); -- Due to the upper case translation in trigger
thismust fail insert into T_pkey2 values (1, 'KEY1-3', 'should fail');
 
! ERROR: insert into T_dta1 values ('trec 1', 1, 'key1-1'); insert into T_dta1 values ('trec 2', 1, 'key1-2'); insert
intoT_dta1 values ('trec 3', 1, 'key1-3'); -- Must fail due to unknown key in T_pkey1 insert into T_dta1 values ('trec
4',1, 'key1-4');
 
! ERROR: insert into T_dta2 values ('trec 1', 1, 'KEY1-1'); insert into T_dta2 values ('trec 2', 1, 'KEY1-2'); insert
intoT_dta2 values ('trec 3', 1, 'KEY1-3'); -- Must fail due to unknown key in T_pkey2 insert into T_dta2 values ('trec
4',1, 'KEY1-4');
 
! ERROR: select * from T_dta1;     tkey    | ref1 |         ref2 ------------+------+----------------------
***************
*** 69,78 ****
 update T_pkey1 set key2 = 'key2-9' where key1 = 2 and key2 = 'key2-1'; update T_pkey1 set key2 = 'key1-9' where key1 =
1and key2 = 'key1-1';
 
! ERROR:  key '1', 'key1-1              ' referenced by T_dta1 delete from T_pkey1 where key1 = 2 and key2 = 'key2-2';
deletefrom T_pkey1 where key1 = 1 and key2 = 'key1-2';
 
! ERROR:  key '1', 'key1-2              ' referenced by T_dta1 update T_pkey2 set key2 = 'KEY2-9' where key1 = 2 and
key2= 'KEY2-1'; update T_pkey2 set key2 = 'KEY1-9' where key1 = 1 and key2 = 'KEY1-1'; NOTICE:  updated 1 entries in
T_dta2for new key in T_pkey2
 
--- 69,78 ----
 update T_pkey1 set key2 = 'key2-9' where key1 = 2 and key2 = 'key2-1'; update T_pkey1 set key2 = 'key1-9' where key1 =
1and key2 = 'key1-1';
 
! ERROR: delete from T_pkey1 where key1 = 2 and key2 = 'key2-2'; delete from T_pkey1 where key1 = 1 and key2 =
'key1-2';
! ERROR: update T_pkey2 set key2 = 'KEY2-9' where key1 = 2 and key2 = 'KEY2-1'; update T_pkey2 set key2 = 'KEY1-9'
wherekey1 = 1 and key2 = 'KEY1-1'; NOTICE:  updated 1 entries in T_dta2 for new key in T_pkey2
 

======================================================================



================= /home4/ohp/pgfarmbuild/HEAD/inst/logfile ===================
LOG:  database system was shut down at 2006-06-11 20:05:22 MET DST
LOG:  checkpoint record is at 0/1FCE6A0
LOG:  redo record is at 0/1FCE6A0; undo record is at 0/0; shutdown TRUE
LOG:  next transaction ID: 7960; next OID: 38502
LOG:  next MultiXactId: 1; next MultiXactOffset: 0
LOG:  database system is ready
LOG:  transaction ID wrap limit is 1073745361, limited by database "regression"
ERROR:  database "pl_regression" does not exist
LOG:  transaction ID wrap limit is 1073745361, limited by database "regression"
ERROR:  role "regressgroup1" does not exist
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  setof-composite-returning Perl function must call return_next with reference to hash
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  a column definition list is required for functions returning "record"
ERROR:  function returning record called in context that cannot accept type record
ERROR:  a column definition list is required for functions returning "record"
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  a column definition list is required for functions returning "record"
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  a column definition list is required for functions returning "record"
ERROR:  setof-composite-returning Perl function must call return_next with reference to hash
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  a column definition list is required for functions returning "record"
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  set-valued function called in context that cannot accept a set
ERROR:  Perl hash contains nonexistent column "z"
ERROR:  composite-returning Perl function must return reference to hash
ERROR:  composite-returning Perl function must return reference to hash
ERROR:  set-returning Perl function must return reference to array or use return_next
ERROR:  set-returning Perl function must return reference to array or use return_next
ERROR:  setof-composite-returning Perl function must call return_next with reference to hash
ERROR:  Perl hash contains nonexistent column "z"
NOTICE:  $_TD->{argc} = '2'
NOTICE:  $_TD->{args} = ['23', 'skidoo']
NOTICE:  $_TD->{event} = 'INSERT'
NOTICE:  $_TD->{level} = 'ROW'
NOTICE:  $_TD->{name} = 'show_trigger_data_trig'
NOTICE:  $_TD->{new} = {'i' => '1', 'v' => 'insert'}
NOTICE:  $_TD->{relid} = 'bogus:12345'
NOTICE:  $_TD->{relname} = 'trigger_test'
NOTICE:  $_TD->{table_name} = 'trigger_test'
NOTICE:  $_TD->{table_schema} = 'public'
NOTICE:  $_TD->{when} = 'BEFORE'
NOTICE:  $_TD->{argc} = '2'
NOTICE:  $_TD->{args} = ['23', 'skidoo']
NOTICE:  $_TD->{event} = 'UPDATE'
NOTICE:  $_TD->{level} = 'ROW'
NOTICE:  $_TD->{name} = 'show_trigger_data_trig'
NOTICE:  $_TD->{new} = {'i' => '1', 'v' => 'update'}
NOTICE:  $_TD->{old} = {'i' => '1', 'v' => 'insert'}
NOTICE:  $_TD->{relid} = 'bogus:12345'
NOTICE:  $_TD->{relname} = 'trigger_test'
NOTICE:  $_TD->{table_name} = 'trigger_test'
NOTICE:  $_TD->{table_schema} = 'public'
NOTICE:  $_TD->{when} = 'BEFORE'
NOTICE:  $_TD->{argc} = '2'
NOTICE:  $_TD->{args} = ['23', 'skidoo']
NOTICE:  $_TD->{event} = 'DELETE'
NOTICE:  $_TD->{level} = 'ROW'
NOTICE:  $_TD->{name} = 'show_trigger_data_trig'
NOTICE:  $_TD->{old} = {'i' => '1', 'v' => 'update'}
NOTICE:  $_TD->{relid} = 'bogus:12345'
NOTICE:  $_TD->{relname} = 'trigger_test'
NOTICE:  $_TD->{table_name} = 'trigger_test'
NOTICE:  $_TD->{table_schema} = 'public'
NOTICE:  $_TD->{when} = 'BEFORE'
NOTICE:  explicit elog
NOTICE:  implicit elog via warn at line 4.

ERROR:  creation of Perl function failed: Global symbol "$global" requires explicit package name at line 3.Global
symbol"$other_global" requires explicit package name at line 4.
 
ERROR:  function uses_global() does not exist at character 8
HINT:  No function matches the given name and argument types. You may need to add explicit type casts.
LOG:  transaction ID wrap limit is 1073745361, limited by database "regression"
LOG:  transaction ID wrap limit is 1073745361, limited by database "regression"
ERROR:  role "regressgroup1" does not exist
ERROR:
CONTEXT:  duplicate key '1', 'KEY1-3' for T_pkey2    while executing"elog ERROR  "duplicate key '$NEW(key1)',
'$NEW(key2)'for T_pkey2""    invoked from within"if {$n > 0} {    elog ERROR \        "duplicate key '$NEW(key1)',
'$NEW(key2)'for T_pkey2"    }"    (procedure "__PLTcl_proc_38567_trigger_38551" line 32)    invoked from
within"__PLTcl_proc_38567_trigger_38551pkey2_before 38551 t_pkey2 public {{} key1 key2 txt} BEFORE ROW INSERT {key1 1
key2{KEY1-3              } txt {shoul..."
 
ERROR:
CONTEXT:  key for t_dta1 not in t_pkey1    while executing"elog ERROR "key for $GD($planrel) not in $keyrel""
(procedure"__PLTcl_proc_38571_trigger_38553" line 92)    invoked from within"__PLTcl_proc_38571_trigger_38553
dta1_before38553 t_dta1 public {{} tkey ref1 ref2} BEFORE ROW INSERT {tkey {trec 4    } ref1 1 ref2 {key1-4
..."
ERROR:
CONTEXT:  key for t_dta2 not in t_pkey2    while executing"elog ERROR "key for $GD($planrel) not in $keyrel""
(procedure"__PLTcl_proc_38571_trigger_38555" line 92)    invoked from within"__PLTcl_proc_38571_trigger_38555
dta2_before38555 t_dta2 public {{} tkey ref1 ref2} BEFORE ROW INSERT {tkey {trec 4    } ref1 1 ref2 {KEY1-4
..."
ERROR:
CONTEXT:  key '1', 'key1-1              ' referenced by T_dta1    while executing"elog ERROR  "key '$OLD(key1)',
'$OLD(key2)'referenced by T_dta1""    invoked from within"if {$check_old_ref} {    #    # Check for references to OLD
#        set n [spi_execp -count 1 $GD(plan_dta1) [list $OLD(key1) $OLD(key2)]]    if {$n > 0}..."    (procedure
"__PLTcl_proc_38565_trigger_38549"line 79)    invoked from within"__PLTcl_proc_38565_trigger_38549 pkey1_before 38549
t_pkey1public {{} key1 key2 txt} BEFORE ROW UPDATE {key1 1 key2 {key1-9              } txt {test ..."
 
ERROR:
CONTEXT:  key '1', 'key1-2              ' referenced by T_dta1    while executing"elog ERROR  "key '$OLD(key1)',
'$OLD(key2)'referenced by T_dta1""    invoked from within"if {$check_old_ref} {    #    # Check for references to OLD
#        set n [spi_execp -count 1 $GD(plan_dta1) [list $OLD(key1) $OLD(key2)]]    if {$n > 0}..."    (procedure
"__PLTcl_proc_38565_trigger_38549"line 79)    invoked from within"__PLTcl_proc_38565_trigger_38549 pkey1_before 38549
t_pkey1public {{} key1 key2 txt} BEFORE ROW DELETE {} {key1 1 key2 {key1-2              } txt {te..."
 
NOTICE:  updated 1 entries in T_dta2 for new key in T_pkey2
NOTICE:  deleted 1 entries from T_dta2
NOTICE:  NEW: {i: 1, v: insert}
NOTICE:  OLD: {}
NOTICE:  TG_level: ROW
NOTICE:  TG_name: show_trigger_data_trig
NOTICE:  TG_op: INSERT
NOTICE:  TG_relatts: {{} i v}
NOTICE:  TG_relid: bogus:12345
NOTICE:  TG_table_name: trigger_test
NOTICE:  TG_table_schema: public
NOTICE:  TG_when: BEFORE
NOTICE:  args: {23 skidoo}
NOTICE:  NEW: {i: 1, v: update}
NOTICE:  OLD: {i: 1, v: insert}
NOTICE:  TG_level: ROW
NOTICE:  TG_name: show_trigger_data_trig
NOTICE:  TG_op: UPDATE
NOTICE:  TG_relatts: {{} i v}
NOTICE:  TG_relid: bogus:12345
NOTICE:  TG_table_name: trigger_test
NOTICE:  TG_table_schema: public
NOTICE:  TG_when: BEFORE
NOTICE:  args: {23 skidoo}
NOTICE:  NEW: {}
NOTICE:  OLD: {i: 1, v: update}
NOTICE:  TG_level: ROW
NOTICE:  TG_name: show_trigger_data_trig
NOTICE:  TG_op: DELETE
NOTICE:  TG_relatts: {{} i v}
NOTICE:  TG_relid: bogus:12345
NOTICE:  TG_table_name: trigger_test
NOTICE:  TG_table_schema: public
NOTICE:  TG_when: BEFORE
NOTICE:  args: {23 skidoo}

-- 
Olivier PRENANT                    Tel: +33-5-61-50-97-00 (Work)
15, Chemin des Monges                +33-5-61-50-97-01 (Fax)
31190 AUTERIVE                       +33-6-07-63-80-64 (GSM)
FRANCE                          Email: ohp@pyrenet.fr
------------------------------------------------------------------------------
Make your life a dream, make your dream a reality. (St Exupery)