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

Teodor Sigaev
---
 contrib/ltree/sql/ltree.sql | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'contrib/ltree/sql')

diff --git a/contrib/ltree/sql/ltree.sql b/contrib/ltree/sql/ltree.sql
index 4a4cf28c714..8da7e2841be 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;
-- 
cgit v1.2.3