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 2002/10/20 00:59:18 UTC
cvs commit: xml-xerces/perl/t DOMWriter.t
jasons 2002/10/19 15:59:18
Modified: perl/t DOMWriter.t
Log:
* t/DOMWriter.t (Repository):
test started working
Revision Changes Path
1.2 +6 -6 xml-xerces/perl/t/DOMWriter.t
Index: DOMWriter.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMWriter.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- DOMWriter.t 27 Aug 2002 19:20:00 -0000 1.1
+++ DOMWriter.t 19 Oct 2002 22:59:18 -0000 1.2
@@ -7,11 +7,11 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-BEGIN { $| = 1; print "1..5\n"; }
+BEGIN { $| = 1; print "1..3\n"; }
END {print "not ok 1\n" unless $loaded;}
use Carp;
-use blib;
+# use blib;
use XML::Xerces;
use Config;
@@ -31,8 +31,7 @@
# of the test code):
# Create a couple of identical test documents
-my $document = q[<?xml version="1.0" encoding="UTF-8"?>
-<contributors>
+my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="no" ?><contributors>
<person Role="manager">
<name>Mike Pogue</name>
<email>mpogue@us.ibm.com</email>
@@ -60,6 +59,7 @@
my $target = XML::Xerces::MemBufFormatTarget->new();
my $doc = $dom->getDocument();
$writer->writeNode($target,$doc);
-my $output = $target->getString();
+my $output = $target->getRawBuffer();
result($output);
-print STDERR "$output\n";
+result($output eq $document);
+
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org