[perl-xml-cvs] CVS: XML-LibXML-XPathContext/t 00-xpathcontext.t,1.3,1.4

[Ilya M. <m_...@us...>]

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

Modified Files:
	00-xpathcontext.t 
Log Message:
Add unregisterNs() method


Index: 00-xpathcontext.t
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/t/00-xpathcontext.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- 00-xpathcontext.t	20 Mar 2003 10:16:25 -0000	1.3
+++ 00-xpathcontext.t	26 Mar 2003 21:21:40 -0000	1.4
@@ -1,5 +1,5 @@
 use Test;
-BEGIN { plan tests => 16 };
+BEGIN { plan tests => 17 };
 
 use XML::LibXML;
 use XML::LibXML::XPathContext;
@@ -38,6 +38,11 @@
 my $xc = XML::LibXML::XPathContext->new($doc1);
 $xc->registerNs('xxx', 'http://example.com/foobar');
 ok($xc->findnodes('/xxx:foo')->pop->nodeName eq 'foo');
+
+# test unregisterNs()
+$xc->unregisterNs('xxx');
+eval { $xc->findnodes('/xxx:foo') };
+ok($@);
 
 # test getContextNode and setContextNode
 ok($xc->getContextNode->isSameNode($doc1));