Patch for current CVS. It add test of lca() to ltree test suite.
authorBruce Momjian
Tue, 6 Aug 2002 05:35:29 +0000 (05:35 +0000)
committerBruce Momjian
Tue, 6 Aug 2002 05:35:29 +0000 (05:35 +0000)
Teodor Sigaev

contrib/ltree/expected/ltree.out
contrib/ltree/sql/ltree.sql

index fb8efaf77832b74b252d7f8499a4e33884519804..642e26cab2833c52496030acac46dbaf40ca305c 100644 (file)
@@ -107,6 +107,66 @@ select ''::ltree || 'Top.Child1.Child2'::ltree;
  Top.Child1.Child2
 (1 row)
 
+select lca('{la.2.3,1.2.3.4.5.6,}') is null;
+ ?column? 
+----------
+ t
+(1 row)
+
+select lca('{la.2.3,1.2.3.4.5.6}') is null;
+ ?column? 
+----------
+ f
+(1 row)
+
+select lca('{1.la.2.3,1.2.3.4.5.6}');
+ lca 
+-----
+ 1
+(1 row)
+
+select lca('{1.2.3,1.2.3.4.5.6}');
+ lca 
+-----
+ 1.2
+(1 row)
+
+select lca('1.la.2.3','1.2.3.4.5.6');
+ lca 
+-----
+ 1
+(1 row)
+
+select lca('1.2.3','1.2.3.4.5.6');
+ lca 
+-----
+ 1.2
+(1 row)
+
+select lca('1.2.2.3','1.2.3.4.5.6');
+ lca 
+-----
+ 1.2
+(1 row)
+
+select lca('1.2.2.3','1.2.3.4.5.6','');
+ lca 
+-----
+(1 row)
+
+select lca('1.2.2.3','1.2.3.4.5.6','2');
+ lca 
+-----
+(1 row)
+
+select lca('1.2.2.3','1.2.3.4.5.6','1');
+ lca 
+-----
+(1 row)
+
 select '1'::lquery;
  lquery 
 --------
index 4a4cf28c714217cab5464d9f79d19c0de8ec7e86..8da7e2841bed3eacf6dd316b4a23a08ebe2b0693 100644 (file)
@@ -23,6 +23,18 @@ select 'Top_0'::ltree || 'Top.Child1.Child2'::ltree;
 select 'Top.Child1.Child2'::ltree || ''::ltree;
 select ''::ltree || 'Top.Child1.Child2'::ltree;
 
+select lca('{la.2.3,1.2.3.4.5.6,}') is null;
+select lca('{la.2.3,1.2.3.4.5.6}') is null;
+select lca('{1.la.2.3,1.2.3.4.5.6}');
+select lca('{1.2.3,1.2.3.4.5.6}');
+select lca('1.la.2.3','1.2.3.4.5.6');
+select lca('1.2.3','1.2.3.4.5.6');
+select lca('1.2.2.3','1.2.3.4.5.6');
+select lca('1.2.2.3','1.2.3.4.5.6','');
+select lca('1.2.2.3','1.2.3.4.5.6','2');
+select lca('1.2.2.3','1.2.3.4.5.6','1');
+
+
 select '1'::lquery;
 select '4|3|2'::lquery;
 select '1.2'::lquery;