Commit 170511b3 authored by Tom Lane's avatar Tom Lane

Adjust PL/Tcl regression test to dodge a possible bug or zone dependency.

One case in the PL/Tcl tests is observed to fail on RHEL5 with a Turkish
time zone setting.  It's not clear if this is an old Tcl bug or something
odd about the zone data, but in any case that test is meant to see if the
Tcl [clock] command works at all, not what its corner-case behaviors are.
Therefore we have no need to test exactly which week a Sunday midnight is
considered to fall into.  Probe the following Tuesday instead.

Discussion: https://postgr.es/m/797.1487517822@sss.pgh.pa.us
parent 65d508fd
...@@ -544,7 +544,7 @@ CREATE OPERATOR CLASS tcl_int4_ops ...@@ -544,7 +544,7 @@ CREATE OPERATOR CLASS tcl_int4_ops
create function tcl_date_week(int4,int4,int4) returns text as $$ create function tcl_date_week(int4,int4,int4) returns text as $$
return [clock format [clock scan "$2/$3/$1"] -format "%U"] return [clock format [clock scan "$2/$3/$1"] -format "%U"]
$$ language pltcl immutable; $$ language pltcl immutable;
select tcl_date_week(2010,1,24); select tcl_date_week(2010,1,26);
tcl_date_week tcl_date_week
--------------- ---------------
04 04
......
...@@ -599,7 +599,7 @@ create function tcl_date_week(int4,int4,int4) returns text as $$ ...@@ -599,7 +599,7 @@ create function tcl_date_week(int4,int4,int4) returns text as $$
return [clock format [clock scan "$2/$3/$1"] -format "%U"] return [clock format [clock scan "$2/$3/$1"] -format "%U"]
$$ language pltcl immutable; $$ language pltcl immutable;
select tcl_date_week(2010,1,24); select tcl_date_week(2010,1,26);
select tcl_date_week(2001,10,24); select tcl_date_week(2001,10,24);
-- test pltcl event triggers -- test pltcl event triggers
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment