You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2001/10/07 01:49:39 UTC
cvs commit: xml-xerces/perl/t DOM_Element.t
jasons 01/10/06 16:49:39
Modified: perl/t DOM_Element.t
Log:
* t/DOM_Element.t (Repository):
Test operator=
Revision Changes Path
1.2 +5 -0 xml-xerces/perl/t/DOM_Element.t
Index: DOM_Element.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOM_Element.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- DOM_Element.t 2001/09/16 15:22:19 1.1
+++ DOM_Element.t 2001/10/06 23:49:39 1.2
@@ -10,6 +10,7 @@
BEGIN { $| = 1; print "1..4\n"; }
END {print "not ok 1\n" unless $loaded;}
use Carp;
+use blib;
use XML::Xerces;
use lib 't';
@@ -42,3 +43,7 @@
# ensure that actual_cast() is being called
result(ref $persons[0] eq 'XML::Xerces::DOM_Element');
+
+# test the equality operator
+my @persons2 = $doc->getElementsByTagName('person');
+result($persons[0] == $persons2[0]);
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org