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 2001/08/02 06:26:54 UTC
cvs commit: xml-xerces/perl/t PerlErrorHandler.t
jasons 01/08/01 21:26:54
Modified: perl/t PerlErrorHandler.t
Log:
minor syntax update
Revision Changes Path
1.4 +6 -5 xml-xerces/perl/t/PerlErrorHandler.t
Index: PerlErrorHandler.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/PerlErrorHandler.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- PerlErrorHandler.t 2001/07/09 15:22:48 1.3
+++ PerlErrorHandler.t 2001/08/02 04:26:54 1.4
@@ -123,13 +123,13 @@
{
$error = "";
- my $dom = new XML::Xerces::DOMParser;
+ my $dom = XML::Xerces::DOMParser->new();
my $error_handler = MyErrorHandler->new();
$dom->setErrorHandler($error_handler);
eval {
- $dom->parse( new XML::Xerces::MemBufInputSource($document, 'foo') );
+ $dom->parse(XML::Xerces::MemBufInputSource->new($document, 'foo') );
};
my $expected_error = <<EOE;
@@ -145,22 +145,23 @@
{
$error = "";
- my $dom = new XML::Xerces::DOMParser;
+ my $dom = XML::Xerces::DOMParser->new();
my $error_handler = MyErrorHandler->new();
$dom->setErrorHandler($error_handler);
$dom->setDoValidation(1);
eval {
- $dom->parse( new XML::Xerces::MemBufInputSource($document, 'foo') );
+ $dom->parse(XML::Xerces::MemBufInputSource->new($document, 'foo') );
};
my $expected_error = <<EOE;
ERROR:
LINE: 19
-COLUMN: 24
+COLUMN: 7
MESSAGE: Unknown element 'foo'
EOE
+#print STDERR "$error\n";
result($expected_error eq $error);
}
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org