jasons 2002/11/12 22:38:49
Modified: perl/t DOMPrint.t
Log:
added correct output for DOMWriter
Revision Changes Path
1.9 +5 -2 xml-xerces/perl/t/DOMPrint.t
Index: DOMPrint.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMPrint.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- DOMPrint.t 25 Mar 2002 01:12:08 -0000 1.8
+++ DOMPrint.t 13 Nov 2002 06:38:49 -0000 1.9
@@ -29,7 +29,8 @@
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-my $document = q[<contributors>
+my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
+<contributors>
<person Role="manager">
<name>Mike Pogue</name>
<email>[EMAIL PROTECTED]</email>
@@ -42,7 +43,8 @@
<name>Susan Hardenbrook</name>
<email>[EMAIL PROTECTED]</email>
</person>
-</contributors>];
+</contributors>
+];
$file = '.domprint.xml';
open(OUT,">$file") or die "Couldn't open $file from writing";
@@ -52,6 +54,7 @@
my $perl = $Config{startperl};
$perl =~ s/^\#!//;
my $output = `$perl -Mblib $SAMPLE_DIR/DOMPrint.pl $file 2>/dev/null`;
+
result($document eq $output);
END {unlink $file;}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
