Commits

Anonymous committed f2c5c9d

Modified Files:
t/05dombasic.t
+ test for Document::URI() return value.

  • Participants
  • Parent commits 7ae5e5c

Comments (0)

Files changed (1)

File t/05dombasic.t

 # `make test'. After `make install' it should work as `perl test.pl'
 
 use Test;
-BEGIN { plan tests=>19 }
+BEGIN { plan tests=>20 }
 END {ok(0) unless $loaded;}
 use XML::LibXML;
 $loaded = 1;
           $elem->getType() == XML_ELEMENT_NODE &&
           $elem->isa( "XML::LibXML::Element" ) );
       ok( $dom3->URI, $file );
-      $dom3->URI("foo.xml");
+      my $oldURI = $dom3->URI("foo.xml");
       ok( $dom3->URI, "foo.xml" );
+      ok( $oldURI, $file );
     }
 }