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:41:03 UTC
cvs commit: xml-xerces/perl/t LocalFileInputSource.t
jasons 02/03/24 16:41:03
Modified: perl/t LocalFileInputSource.t
Log:
* t/LocalFileInputSource.t (Repository):
removed old DOM test
Revision Changes Path
1.10 +2 -5 xml-xerces/perl/t/LocalFileInputSource.t
Index: LocalFileInputSource.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/LocalFileInputSource.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- LocalFileInputSource.t 3 Nov 2001 05:28:03 -0000 1.9
+++ LocalFileInputSource.t 25 Mar 2002 00:41:03 -0000 1.10
@@ -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..6\n"; }
+BEGIN { $| = 1; print "1..5\n"; }
END {print "not ok 1\n" unless $loaded;}
use Carp;
# use blib;
@@ -15,7 +15,7 @@
use Cwd;
use lib 't';
-use TestUtils qw(result is_object $DOM $PERSONAL $PERSONAL_FILE_NAME $SAMPLE_DIR);
+use TestUtils qw(result is_object $DOM $PERSONAL_FILE_NAME $SAMPLE_DIR);
use vars qw($i $loaded $error);
use strict;
@@ -34,9 +34,6 @@
&& $is->isa('XML::Xerces::InputSource')
&& $is->isa('XML::Xerces::LocalFileInputSource')
);
-$DOM->parse($is);
-my $serialize = $DOM->getDocument->serialize;
-result($serialize eq $PERSONAL);
# test that a bogus relative path causes an exception
eval {
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org