cvs commit: xml-xerces/perl/t DOMWriter.t

[jasons]

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>[EMAIL PROTECTED]</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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]