jasons 2002/10/19 15:57:53
Modified: perl/t DOMCreate.t
Log:
* t/DOMCreate.t (Repository):
updated output to match the DOMWriter output
Revision Changes Path
1.9 +5 -15 xml-xerces/perl/t/DOMCreate.t
Index: DOMCreate.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCreate.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- DOMCreate.t 27 Aug 2002 19:29:04 -0000 1.8
+++ DOMCreate.t 19 Oct 2002 22:57:52 -0000 1.9
@@ -10,6 +10,7 @@
BEGIN { $| = 1; print "1..2\n"; }
END {print "not ok 1\n" unless $loaded;}
use Carp;
+use blib;
use XML::Xerces;
use Config;
@@ -28,21 +29,10 @@
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-my $document = q[<!DOCTYPE contributors SYSTEM 'contributors.dtd' >
-<contributors>
- <person Role="manager">
- <name>Mike Pogue</name>
- <email>[EMAIL PROTECTED]</email>
- </person>
- <person Role="developer">
- <name>Tom Watson</name>
- <email>[EMAIL PROTECTED]</email>
- </person>
- <person Role="tech writer">
- <name>Susan Hardenbrook</name>
- <email>[EMAIL PROTECTED]</email>
- </person>
-</contributors>];
+my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
+<!DOCTYPE contributors>
+<contributors><person Role="manager"><name>Mike
Pogue</name><email>[EMAIL PROTECTED]</email></person><person
Role="developer"><name>Tom
Watson</name><email>[EMAIL PROTECTED]</email></person><person Role="tech
writer"><name>Susan
Hardenbrook</name><email>[EMAIL PROTECTED]</email></person></contributors>
+];
my $perl = $Config{startperl};
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
