1. Shlomi Fish
  2. perl-XML-LibXML

Commits

Shlomi Fish  committed e779722

Convert '\t' to whitespace.

  • Participants
  • Parent commits 15f1dd6
  • Branches default

Comments (0)

Files changed (1)

File t/03doc.t

View file
  • Ignore whitespace
         is($pi->nodeType, XML_PI_NODE, ' TODO : Add test name');
         # TEST
         is($pi->nodeName, "foo", ' TODO : Add test name');
-	my $data = $pi->textContent;
-	# undef or "" depending on libxml2 version
+        my $data = $pi->textContent;
+        # undef or "" depending on libxml2 version
         # TEST
         ok( is_empty_str($data), ' TODO : Add test name' );
-	$data = $pi->getData;
+        $data = $pi->getData;
         # TEST
         ok( is_empty_str($data), ' TODO : Add test name' );
-	$pi->setData(q(bar&));
-	# TEST
-	is( $pi->getData, q(bar&), ' TODO : Add test name');
+        $pi->setData(q(bar&));
+        # TEST
+        is( $pi->getData, q(bar&), ' TODO : Add test name');
         # TEST
         is($pi->textContent, q(bar&), ' TODO : Add test name');
     }
     my $node2 = $doc->createElement( "bar" );
     { my $warn;
       eval {
-	local $SIG{__WARN__} = sub { $warn = 1 };
-	# TEST
-	ok( !defined($doc->appendChild($node2)), ' TODO : Add test name' );
+        local $SIG{__WARN__} = sub { $warn = 1 };
+        # TEST
+        ok( !defined($doc->appendChild($node2)), ' TODO : Add test name' );
       };
       # TEST
       ok(($@ or $warn), ' TODO : Add test name');
             is( scalar( @as ), 3, ' TODO : Add test name');
         }
         {
-	    $parser2->recover(1);
-	    local $SIG{'__WARN__'} = sub { 
-   	       print "warning caught: @_\n";
-	    }; 
+            $parser2->recover(1);
+            local $SIG{'__WARN__'} = sub { 
+                  print "warning caught: @_\n";
+            }; 
             my $doc2 = $parser2->parse_string($string4);
 #            my @as   = $doc2->getElementsByTagName( "C:A" );
 #            ok( scalar( @as ), 3);
             # TEST
             is( scalar( @as ), 2, ' TODO : Add test name');
 
-	    my $A = $doc2->getDocumentElement;
+            my $A = $doc2->getDocumentElement;
             @as   = $A->getChildrenByTagName( "A" );
-	    # TEST
-	    is( scalar( @as ), 1, ' TODO : Add test name');
+            # TEST
+            is( scalar( @as ), 1, ' TODO : Add test name');
             @as   = $A->getChildrenByTagName( "C:A" );
-	    # TEST
-	    is( scalar( @as ), 1, ' TODO : Add test name');
+            # TEST
+            is( scalar( @as ), 1, ' TODO : Add test name');
             @as   = $A->getChildrenByTagName( "C:B" );
-	    # TEST
-	    is( scalar( @as ), 0, ' TODO : Add test name');
+            # TEST
+            is( scalar( @as ), 0, ' TODO : Add test name');
             @as   = $A->getChildrenByTagName( "*" );
-	    # TEST
-	    is( scalar( @as ), 2, ' TODO : Add test name');
+            # TEST
+            is( scalar( @as ), 2, ' TODO : Add test name');
             @as   = $A->getChildrenByTagNameNS( "*", "A" );
-	    # TEST
-	    is( scalar( @as ), 2, ' TODO : Add test name');
+            # TEST
+            is( scalar( @as ), 2, ' TODO : Add test name');
             @as   = $A->getChildrenByTagNameNS( "xml://D", "*" );
-	    # TEST
-	    is( scalar( @as ), 1, ' TODO : Add test name');
+            # TEST
+            is( scalar( @as ), 1, ' TODO : Add test name');
             @as   = $A->getChildrenByTagNameNS( "*", "*" );
             # TEST
             is( scalar( @as ), 2, ' TODO : Add test name');