.

[SXSI/xpathcomp.git] / tree.ml

diff --git a/tree.ml b/tree.ml
index a034636..0a1bdda 100644 (file)
--- a/tree.ml
+++ b/tree.ml
@@ -788,3 +788,7 @@ let stats t =
 
 
 
+let test_prefix t s = Array.length (text_prefix t.doc s)
+let test_suffix t s = Array.length (text_suffix t.doc s)
+let test_contains t s = Array.length (text_contains t.doc s) 
+let test_equals t s = Array.length (text_equals t.doc s)