You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2002/03/25 01:42:10 UTC
cvs commit: xml-xerces/perl/t URLInputSource.t
jasons 02/03/24 16:42:10
Modified: perl/t URLInputSource.t
Log:
* t/URLInputSource.t (Repository):
removed old DOM test
Revision Changes Path
1.11 +2 -9 xml-xerces/perl/t/URLInputSource.t
Index: URLInputSource.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/URLInputSource.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- URLInputSource.t 10 Oct 2001 20:02:39 -0000 1.10
+++ URLInputSource.t 25 Mar 2002 00:42:10 -0000 1.11
@@ -7,7 +7,7 @@
# 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..9\n"; }
+BEGIN { $| = 1; print "1..8\n"; }
END {print "not ok 1\n" unless $loaded;}
use Carp;
# use blib;
@@ -16,7 +16,6 @@
use lib 't';
use TestUtils qw(result
is_object
- $DOM $PERSONAL
$PERSONAL_FILE_NAME);
use vars qw($i $loaded $error);
use strict;
@@ -38,15 +37,9 @@
my $is = XML::Xerces::URLInputSource->new($xml_url);
result(is_object($xml_url) && $is->isa('XML::Xerces::URLInputSource'));
-$DOM->parse($is);
-my $serialize = $DOM->getDocument->serialize;
-result($serialize eq $PERSONAL);
-
# now test the overloaded constructors
$is = XML::Xerces::URLInputSource->new('file:',"file:$PERSONAL_FILE_NAME");
-$DOM->parse($is);
-$serialize = $DOM->getDocument->serialize;
-result($serialize eq $PERSONAL);
+result(is_object($xml_url) && $is->isa('XML::Xerces::URLInputSource'));
$is = XML::Xerces::URLInputSource->new('file:',"file:$PERSONAL_FILE_NAME", 'foo');
result($is->getPublicId() eq 'foo');
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org