Commits

Shlomi Fish committed 218c9a9

Remove redundant prints.

  • Participants
  • Parent commits 86627c2

Comments (0)

Files changed (1)

 }
 
 {
-    print "# 1. Document Attributes\n";
+    # Document Attributes
 
     my $doc = XML::LibXML::Document->createDocument();
     # TEST
 }
 
 {
-    print "# 2. Creating Elements\n";
+    # 2. Creating Elements
     my $doc = XML::LibXML::Document->new();
     {
         my $node = $doc->createDocumentFragment();
     _check_created_element($doc, 'foo', 'foo', 'Simple Element');
     
     {
-        print "# document with encoding\n";
+        # document with encoding
         my $encdoc = XML::LibXML::Document->new( "1.0" );
         $encdoc->setEncoding( "iso-8859-1" );
 
             $encdoc, 'foo', 'foo', 'Encdoc Element creation'
         );
 
-        print "# SAX style document with encoding\n";
+        # SAX style document with encoding
         my $node_def = {
             Name => "object",
             LocalName => "object",
     }
 
     {
-        print "# bad element creation\n";
+        # bad element creation
         # TEST:$badnames_count=5;
         my @badnames = ( ";", "&", "<><", "/", "1A");
 
         is($node->toString, "<![CDATA[foo]]>", ' TODO : Add test name');
     }
 
-    print "# 2.1 Create Attributes\n";
+    # -> Create Attributes
     {
         my $attr = $doc->createAttribute("foo", "bar");
         # TEST
         is( $content->nodeType, XML_TEXT_NODE, ' TODO : Add test name' );
     }
     {
-        print "# bad attribute creation\n";
+        # bad attribute creation
         # TEST:$badnames_count=5;
         my @badnames = ( ";", "&", "<><", "/", "1A");
 
       $elem->removeAttribute('attr');
       $attr = $doc->createAttributeNS(undef,'attr2' => 'a & b');
       $elem->addChild($attr);
-      print $elem->toString(),"\n";
       # TEST
       ok ($elem->toString() eq '<foo attr2="a &amp; b"/>', ' TODO : Add test name');
     }
         is($attr->getValue, q(bar&amp;), ' TODO : Add test name' );
     }
     {
-        print "# bad attribute creation\n";
+        # bad attribute creation
         # TEST:$badnames_count=5;
         my @badnames = ( ";", "&", "<><", "/", "1A");
 
 
     }
 
-    print "# 2.2 Create PIs\n";
+    # -> Create PIs
     {
         my $pi = $doc->createProcessingInstruction( "foo", "bar" );
         # TEST
 }
 
 {
-    print "# 3.  Document Manipulation\n";
-    print "# 3.1 Document Elements\n"; 
+    # Document Manipulation
+    # -> Document Elements 
 
     my $doc = XML::LibXML::Document->new();
     my $node = $doc->createElement( "foo" );
     # TEST
     ok($node3, ' TODO : Add test name');
 
-    print "# 3.2 Processing Instructions\n"; 
+    # -> Processing Instructions
     {
         my $pi = $doc->createProcessingInstruction( "foo", "bar" );
         $doc->appendChild( $pi );
         $pi->setData( foo=>"foo" );
         # TEST
         is( $pi->textContent, 'foo="foo"', ' TODO : Add test name');
-        
     }
-
-    print "# 3.3 Comment Nodes\n"; 
-
-    print "# 3.4 DTDs\n";
 }
 
 {
-    print "# 4. Document Storing\n";
+    # Document Storing
     my $parser = XML::LibXML->new;
     my $doc = $parser->parse_string("<foo>bar</foo>");  
 
 
     ok( $doc, ' TODO : Add test name' );
 
-    print "# 4.1 to file handle\n";
+    # -> to file handle
+
     {
         require IO::File;
         my $fh = new IO::File;
         }
     }
 
-    print "# 4.2 to named file\n";
+    # -> to named file
     {
         $doc->toFile( "example/testrun.xml" );
         # TEST
         unlink "example/testrun.xml" ;        
     }
 
-    print "# 5 ELEMENT LIKE FUNCTIONS\n";
+    # ELEMENT LIKE FUNCTIONS
     {
         my $parser2 = XML::LibXML->new();
         my $string1 = "<A><A><B/></A><A><B/></A></A>";
         }
     }
 }
+
 {
-    print "# 5. Bug fixes (to be used with valgrind)\n";
+    # Bug fixes (to be used with valgrind)
     {  
        my $doc=XML::LibXML->createDocument(); # create a doc
        my $x=$doc->createPI(foo=>"bar");      # create a PI
     # The count.
     # TEST:$c=0;
     for my $enc (qw(UTF-16 UTF-16LE UTF-16BE)) {
-        print "------------------\n";
-        print $enc,"\n";
         my $xml = Encode::encode($enc,qq{<?xml version="1.0" encoding="$enc"?>
             <test foo="bar"/>
             });