pltcl regression test needs to actually create an opclass, not just one operator.

diff --git a/src/pl/tcl/expected/pltcl_setup.out b/src/pl/tcl/expected/pltcl_setup.out
index 111d999af20e7daa7e5c4d2eab53c02778822581..ce45aec530ddf7e923f1d7e6c9863621a3857297 100644 (file)
--- a/src/pl/tcl/expected/pltcl_setup.out
+++ b/src/pl/tcl/expected/pltcl_setup.out
@@ -434,8 +434,69 @@ create function tcl_int4lt(int4,int4) returns bool as '
     }
     return f
 ' language pltcl;
+create function tcl_int4le(int4,int4) returns bool as '
+    if {$1 <= $2} {
+        return t
+    }
+    return f
+' language pltcl;
+create function tcl_int4eq(int4,int4) returns bool as '
+    if {$1 == $2} {
+        return t
+    }
+    return f
+' language pltcl;
+create function tcl_int4ge(int4,int4) returns bool as '
+    if {$1 >= $2} {
+        return t
+    }
+    return f
+' language pltcl;
+create function tcl_int4gt(int4,int4) returns bool as '
+    if {$1 > $2} {
+        return t
+    }
+    return f
+' language pltcl;
 create operator @< (
        leftarg = int4,
        rightarg = int4,
        procedure = tcl_int4lt
    );
+create operator @<= (
+       leftarg = int4,
+       rightarg = int4,
+       procedure = tcl_int4le
+   );
+create operator @= (
+       leftarg = int4,
+       rightarg = int4,
+       procedure = tcl_int4eq
+   );
+create operator @>= (
+       leftarg = int4,
+       rightarg = int4,
+       procedure = tcl_int4ge
+   );
+create operator @> (
+       leftarg = int4,
+       rightarg = int4,
+       procedure = tcl_int4gt
+   );
+create function tcl_int4cmp(int4,int4) returns int4 as '
+    if {$1 < $2} {
+        return -1
+    }
+    if {$1 > $2} {
+        return 1
+    }
+    return 0
+' language pltcl;
+CREATE OPERATOR CLASS tcl_int4_ops
+   FOR TYPE int4 USING btree AS
+   OPERATOR 1  @<,
+   OPERATOR 2  @<=,
+   OPERATOR 3  @=,
+   OPERATOR 4  @>=,
+   OPERATOR 5  @>,
+   FUNCTION 1  tcl_int4cmp(int4,int4) ;

diff --git a/src/pl/tcl/sql/pltcl_setup.sql b/src/pl/tcl/sql/pltcl_setup.sql
index 062c9f195726950a883bc0754b0342c5a56351b1..b88ebbcffe3f0b0daa44ba35c3affac6cabe840b 100644 (file)
--- a/src/pl/tcl/sql/pltcl_setup.sql
+++ b/src/pl/tcl/sql/pltcl_setup.sql
@@ -472,9 +472,79 @@ create function tcl_int4lt(int4,int4) returns bool as '
     return f
 ' language pltcl;
 
+create function tcl_int4le(int4,int4) returns bool as '
+    if {$1 <= $2} {
+        return t
+    }
+    return f
+' language pltcl;
+
+create function tcl_int4eq(int4,int4) returns bool as '
+    if {$1 == $2} {
+        return t
+    }
+    return f
+' language pltcl;
+
+create function tcl_int4ge(int4,int4) returns bool as '
+    if {$1 >= $2} {
+        return t
+    }
+    return f
+' language pltcl;
+
+create function tcl_int4gt(int4,int4) returns bool as '
+    if {$1 > $2} {
+        return t
+    }
+    return f
+' language pltcl;
+
 create operator @< (
        leftarg = int4,
        rightarg = int4,
        procedure = tcl_int4lt
    );
 
+create operator @<= (
+       leftarg = int4,
+       rightarg = int4,
+       procedure = tcl_int4le
+   );
+
+create operator @= (
+       leftarg = int4,
+       rightarg = int4,
+       procedure = tcl_int4eq
+   );
+
+create operator @>= (
+       leftarg = int4,
+       rightarg = int4,
+       procedure = tcl_int4ge
+   );
+
+create operator @> (
+       leftarg = int4,
+       rightarg = int4,
+       procedure = tcl_int4gt
+   );
+
+create function tcl_int4cmp(int4,int4) returns int4 as '
+    if {$1 < $2} {
+        return -1
+    }
+    if {$1 > $2} {
+        return 1
+    }
+    return 0
+' language pltcl;
+
+CREATE OPERATOR CLASS tcl_int4_ops
+   FOR TYPE int4 USING btree AS
+   OPERATOR 1  @<,
+   OPERATOR 2  @<=,
+   OPERATOR 3  @=,
+   OPERATOR 4  @>=,
+   OPERATOR 5  @>,
+   FUNCTION 1  tcl_int4cmp(int4,int4) ;