[perl-xml-cvs] CVS: XML-LibXML-XPathContext/t 02-functions.t,1.1,1.2

[Petr P. <pa...@us...>]

Update of /cvsroot/perl-xml/XML-LibXML-XPathContext/t
In directory sc8-pr-cvs1:/tmp/cvs-serv27841/t

Modified Files:
	02-functions.t 
Log Message:
implement context locking by adding _enter and _leave


Index: 02-functions.t
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/t/02-functions.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 02-functions.t	14 Mar 2003 16:23:50 -0000	1.1
+++ 02-functions.t	20 Mar 2003 13:55:24 -0000	1.2
@@ -1,6 +1,6 @@
 # -*- cperl -*-
 use Test;
-BEGIN { plan tests => 11 };
+BEGIN { plan tests => 15 };
 
 use XML::LibXML;
 use XML::LibXML::XPathContext;
@@ -44,3 +44,18 @@
 ok($xc->findvalue('join("","a","b","c")') eq 'abc');
 ok($xc->findvalue('join("-","a",/foo,//*)') eq 'a-foo-foo-bar-bar');
 ok($xc->findvalue('join("-",foo:copy(//*))') eq 'foo-bar-bar');
+
+# test context locking mechanism
+$xc->registerFunction('test-lock1', sub { $xc->find('1') });
+$xc->registerFunction('test-lock2', sub { $xc->findnodes('1') });
+eval { $xc->find('test-lock1()') };
+ok($@);
+eval { $xc->findnodes('test-lock1()') };
+ok($@);
+eval { $xc->find('test-lock2()') };
+ok($@);
+eval { $xc->findnodes('test-lock2()') };
+ok($@);
+
+
+