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/04/12 07:04:43 UTC
cvs commit: xml-xerces/perl/t perlErrorHandler.t
jasons 01/04/11 22:04:43
Modified: perl/t perlErrorHandler.t
Log:
* t/perlErrorHandler.t (Repository):
* t/domTest.t (Repository):
* t/actualCast.t (Repository):
* t/URLInputSource.t (Repository):
* t/TestUtils.pm (Repository):
* t/StdInInputSource.t (Repository):
* t/MemBufInputSource.t (Repository):
* t/LocalFileInputSource.t (Repository):
* t/DOM_NodeList.t (Repository):
* t/DOM_NamedNodeMap.t (Repository):
* t/DOMParser.t (Repository):
* t/DOMCreate.t (Repository):
new result() idiom
Revision Changes Path
1.5 +5 -5 xml-xerces/perl/t/perlErrorHandler.t
Index: perlErrorHandler.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/perlErrorHandler.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- perlErrorHandler.t 2001/03/15 05:55:57 1.4
+++ perlErrorHandler.t 2001/04/12 05:04:42 1.5
@@ -15,14 +15,14 @@
use lib 't';
use TestUtils qw(result $DOM $PERSONAL);
use subs qw(warning error fatal_error);
-use vars qw($error);
+use vars qw($error $loaded $i);
# turn off annoying warnings
$SIG{__WARN__} = 'IGNORE';
$loaded = 1;
-my $i = 1;
-result(1,$i), $i++;
+$i = 1;
+result($loaded);
######################### End of black magic.
@@ -97,7 +97,7 @@
COLUMN: 11
MESSAGE: Expected end of tag 'foo'
EOE
- result($expected_error eq $error, $i), $i++;
+ result($expected_error eq $error);
}
@@ -123,7 +123,7 @@
COLUMN: 7
MESSAGE: Unknown element 'foo'
EOE
- result($expected_error eq $error, $i), $i++;
+ result($expected_error eq $error);
}
sub warning {
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org