Make pltcl regression tests safe for Danish locale.

Another peculiarity of Danish locale is that it has an unusual idea
of how to sort upper vs. lower case.  One of the pltcl test cases has
an issue with that.  Now that COLLATE works in all supported branches,
we can just change the test to be locale-independent, and get rid of
the variant expected file that used to support non-C locales.

src/pl/tcl/expected/pltcl_queries.out

@@ -163,7 +163,7 @@ select 100 @< 4;
  f
 (1 row)
 
-select * from T_pkey1 order by key1 using @<, key2;
+select * from T_pkey1 order by key1 using @<, key2 collate "C";
  key1 |         key2         |                   txt                    
 ------+----------------------+------------------------------------------
     1 | KEY1-3               | should work                             
@@ -174,7 +174,7 @@ select * from T_pkey1 order by key1 using @<, key2;
     2 | key2-9               | test key                                
 (6 rows)
 
-select * from T_pkey2 order by key1 using @<, key2;
+select * from T_pkey2 order by key1 using @<, key2 collate "C";
  key1 |         key2         |                   txt                    
 ------+----------------------+------------------------------------------
     1 | KEY1-3               | test key                                

src/pl/tcl/expected/pltcl_queries_1.out

@@ -1,305 +0,0 @@
--- suppress CONTEXT so that function OIDs aren't in output
-\set VERBOSITY terse
-insert into T_pkey1 values (1, 'key1-1', 'test key');
-insert into T_pkey1 values (1, 'key1-2', 'test key');
-insert into T_pkey1 values (1, 'key1-3', 'test key');
-insert into T_pkey1 values (2, 'key2-1', 'test key');
-insert into T_pkey1 values (2, 'key2-2', 'test key');
-insert into T_pkey1 values (2, 'key2-3', 'test key');
-insert into T_pkey2 values (1, 'key1-1', 'test key');
-insert into T_pkey2 values (1, 'key1-2', 'test key');
-insert into T_pkey2 values (1, 'key1-3', 'test key');
-insert into T_pkey2 values (2, 'key2-1', 'test key');
-insert into T_pkey2 values (2, 'key2-2', 'test key');
-insert into T_pkey2 values (2, 'key2-3', 'test key');
-select * from T_pkey1;
- key1 |         key2         |                   txt                    
-------+----------------------+------------------------------------------
-    1 | key1-1               | test key                                
-    1 | key1-2               | test key                                
-    1 | key1-3               | test key                                
-    2 | key2-1               | test key                                
-    2 | key2-2               | test key                                
-    2 | key2-3               | test key                                
-(6 rows)
-
--- key2 in T_pkey2 should have upper case only
-select * from T_pkey2;
- key1 |         key2         |                   txt                    
-------+----------------------+------------------------------------------
-    1 | KEY1-1               | test key                                
-    1 | KEY1-2               | test key                                
-    1 | KEY1-3               | test key                                
-    2 | KEY2-1               | test key                                
-    2 | KEY2-2               | test key                                
-    2 | KEY2-3               | test key                                
-(6 rows)
-
-insert into T_pkey1 values (1, 'KEY1-3', 'should work');
--- Due to the upper case translation in trigger this must 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_pkey1
-insert 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 ('trec 2', 1, 'KEY1-2');
-insert into T_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:  key for t_dta2 not in t_pkey2
-select * from T_dta1;
-    tkey    | ref1 |         ref2         
-------------+------+----------------------
- trec 1     |    1 | key1-1              
- trec 2     |    1 | key1-2              
- trec 3     |    1 | key1-3              
-(3 rows)
-
-select * from T_dta2;
-    tkey    | ref1 |         ref2         
-------------+------+----------------------
- trec 1     |    1 | KEY1-1              
- trec 2     |    1 | KEY1-2              
- trec 3     |    1 | KEY1-3              
-(3 rows)
-
-update T_pkey1 set key2 = 'key2-9' where key1 = 2 and key2 = 'key2-1';
-update T_pkey1 set key2 = 'key1-9' where key1 = 1 and key2 = 'key1-1';
-ERROR:  key '1', 'key1-1              ' referenced by T_dta1
-delete from T_pkey1 where key1 = 2 and key2 = 'key2-2';
-delete from 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_dta2 for new key in T_pkey2
-delete from T_pkey2 where key1 = 2 and key2 = 'KEY2-2';
-delete from T_pkey2 where key1 = 1 and key2 = 'KEY1-2';
-NOTICE:  deleted 1 entries from T_dta2
-select * from T_pkey1;
- key1 |         key2         |                   txt                    
-------+----------------------+------------------------------------------
-    1 | key1-1               | test key                                
-    1 | key1-2               | test key                                
-    1 | key1-3               | test key                                
-    2 | key2-3               | test key                                
-    1 | KEY1-3               | should work                             
-    2 | key2-9               | test key                                
-(6 rows)
-
-select * from T_pkey2;
- key1 |         key2         |                   txt                    
-------+----------------------+------------------------------------------
-    1 | KEY1-3               | test key                                
-    2 | KEY2-3               | test key                                
-    2 | KEY2-9               | test key                                
-    1 | KEY1-9               | test key                                
-(4 rows)
-
-select * from T_dta1;
-    tkey    | ref1 |         ref2         
-------------+------+----------------------
- trec 1     |    1 | key1-1              
- trec 2     |    1 | key1-2              
- trec 3     |    1 | key1-3              
-(3 rows)
-
-select * from T_dta2;
-    tkey    | ref1 |         ref2         
-------------+------+----------------------
- trec 3     |    1 | KEY1-3              
- trec 1     |    1 | KEY1-9              
-(2 rows)
-
-select tcl_avg(key1) from T_pkey1;
- tcl_avg 
----------
-       1
-(1 row)
-
-select tcl_sum(key1) from T_pkey1;
- tcl_sum 
----------
-       8
-(1 row)
-
-select tcl_avg(key1) from T_pkey2;
- tcl_avg 
----------
-       1
-(1 row)
-
-select tcl_sum(key1) from T_pkey2;
- tcl_sum 
----------
-       6
-(1 row)
-
--- The following should return NULL instead of 0
-select tcl_avg(key1) from T_pkey1 where key1 = 99;
- tcl_avg 
----------
-        
-(1 row)
-
-select tcl_sum(key1) from T_pkey1 where key1 = 99;
- tcl_sum 
----------
-       0
-(1 row)
-
-select 1 @< 2;
- ?column? 
-----------
- t
-(1 row)
-
-select 100 @< 4;
- ?column? 
-----------
- f
-(1 row)
-
-select * from T_pkey1 order by key1 using @<, key2;
- key1 |         key2         |                   txt                    
-------+----------------------+------------------------------------------
-    1 | key1-1               | test key                                
-    1 | key1-2               | test key                                
-    1 | key1-3               | test key                                
-    1 | KEY1-3               | should work                             
-    2 | key2-3               | test key                                
-    2 | key2-9               | test key                                
-(6 rows)
-
-select * from T_pkey2 order by key1 using @<, key2;
- key1 |         key2         |                   txt                    
-------+----------------------+------------------------------------------
-    1 | KEY1-3               | test key                                
-    1 | KEY1-9               | test key                                
-    2 | KEY2-3               | test key                                
-    2 | KEY2-9               | test key                                
-(4 rows)
-
--- show dump of trigger data
-insert into trigger_test values(1,'insert');
-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}
-insert into trigger_test_view values(2,'insert');
-NOTICE:  NEW: {i: 2, v: insert}
-NOTICE:  OLD: {}
-NOTICE:  TG_level: ROW
-NOTICE:  TG_name: show_trigger_data_view_trig
-NOTICE:  TG_op: INSERT
-NOTICE:  TG_relatts: {{} i v}
-NOTICE:  TG_relid: bogus:12345
-NOTICE:  TG_table_name: trigger_test_view
-NOTICE:  TG_table_schema: public
-NOTICE:  TG_when: {INSTEAD OF}
-NOTICE:  args: {24 {skidoo view}}
-update trigger_test_view set v = 'update' where i=1;
-NOTICE:  NEW: {i: 1, v: update}
-NOTICE:  OLD: {i: 1, v: insert}
-NOTICE:  TG_level: ROW
-NOTICE:  TG_name: show_trigger_data_view_trig
-NOTICE:  TG_op: UPDATE
-NOTICE:  TG_relatts: {{} i v}
-NOTICE:  TG_relid: bogus:12345
-NOTICE:  TG_table_name: trigger_test_view
-NOTICE:  TG_table_schema: public
-NOTICE:  TG_when: {INSTEAD OF}
-NOTICE:  args: {24 {skidoo view}}
-delete from trigger_test_view;
-NOTICE:  NEW: {}
-NOTICE:  OLD: {i: 1, v: insert}
-NOTICE:  TG_level: ROW
-NOTICE:  TG_name: show_trigger_data_view_trig
-NOTICE:  TG_op: DELETE
-NOTICE:  TG_relatts: {{} i v}
-NOTICE:  TG_relid: bogus:12345
-NOTICE:  TG_table_name: trigger_test_view
-NOTICE:  TG_table_schema: public
-NOTICE:  TG_when: {INSTEAD OF}
-NOTICE:  args: {24 {skidoo view}}
-update trigger_test set v = 'update' where i = 1;
-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}
-delete from trigger_test;
-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}
--- Test composite-type arguments
-select tcl_composite_arg_ref1(row('tkey', 42, 'ref2'));
- tcl_composite_arg_ref1 
-------------------------
-                     42
-(1 row)
-
-select tcl_composite_arg_ref2(row('tkey', 42, 'ref2'));
- tcl_composite_arg_ref2 
-------------------------
- ref2                
-(1 row)
-
--- Test argisnull primitive
-select tcl_argisnull('foo');
- tcl_argisnull 
----------------
- f
-(1 row)
-
-select tcl_argisnull('');
- tcl_argisnull 
----------------
- f
-(1 row)
-
-select tcl_argisnull(null);
- tcl_argisnull 
----------------
- t
-(1 row)
-
--- Test spi_lastoid primitive
-create temp table t1 (f1 int);
-select tcl_lastoid('t1');
- tcl_lastoid 
--------------
-           0
-(1 row)
-
-create temp table t2 (f1 int) with oids;
-select tcl_lastoid('t2') > 0;
- ?column? 
-----------
- t
-(1 row)
-

src/pl/tcl/sql/pltcl_queries.sql

@@ -70,8 +70,8 @@ select tcl_sum(key1) from T_pkey1 where key1 = 99;
 select 1 @< 2;
 select 100 @< 4;
 
-select * from T_pkey1 order by key1 using @<, key2;
+select * from T_pkey1 order by key1 using @<, key2 collate "C";
-select * from T_pkey2 order by key1 using @<, key2;
+select * from T_pkey2 order by key1 using @<, key2 collate "C";
 
 -- show dump of trigger data
 insert into trigger_test values(1,'insert');