From 34f03b1630254af7ec64c8da45d93ef6ef7e4870 Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Tue, 6 Aug 2002 05:35:29 +0000
Subject: [PATCH] Patch for current CVS. It add test of lca() to ltree test
 suite.

Teodor Sigaev
---
 contrib/ltree/expected/ltree.out | 60 ++++++++++++++++++++++++++++++++
 contrib/ltree/sql/ltree.sql      | 12 +++++++
 2 files changed, 72 insertions(+)

diff --git a/contrib/ltree/expected/ltree.out b/contrib/ltree/expected/ltree.out
index fb8efaf778..642e26cab2 100644
--- a/contrib/ltree/expected/ltree.out
+++ b/contrib/ltree/expected/ltree.out
@@ -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 
 --------
diff --git a/contrib/ltree/sql/ltree.sql b/contrib/ltree/sql/ltree.sql
index 4a4cf28c71..8da7e2841b 100644
--- a/contrib/ltree/sql/ltree.sql
+++ b/contrib/ltree/sql/ltree.sql
@@ -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;
-- 
2.24.1