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/14 00:25:46 UTC
cvs commit: xml-xerces/perl/t DOMCreate.t DOMParser.t DOMPrint.t DOM_NamedNodeMap.t DOM_NodeList.t LocalFileInputSource.t MemBufInputSource.t StdInInputSource.t TestUtils.pm URLInputSource.t actualCast.t domTest.t perlErrorHandler.t
jasons 01/04/13 15:25:46
Modified: perl/t DOMCreate.t DOMParser.t DOMPrint.t
DOM_NamedNodeMap.t DOM_NodeList.t
LocalFileInputSource.t MemBufInputSource.t
StdInInputSource.t TestUtils.pm URLInputSource.t
actualCast.t domTest.t perlErrorHandler.t
Log:
removed all $SIG{__WARN__} handlers
Revision Changes Path
1.3 +0 -3 xml-xerces/perl/t/DOMCreate.t
Index: DOMCreate.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCreate.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- DOMCreate.t 2001/04/12 05:04:58 1.2
+++ DOMCreate.t 2001/04/13 22:25:45 1.3
@@ -18,9 +18,6 @@
use vars qw($i $loaded);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
1.3 +2 -8 xml-xerces/perl/t/DOMParser.t
Index: DOMParser.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMParser.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- DOMParser.t 2001/04/12 05:04:58 1.2
+++ DOMParser.t 2001/04/13 22:25:45 1.3
@@ -15,12 +15,9 @@
use lib 't';
use TestUtils qw(result);
-use vars qw($i $loaded);
+use vars qw($i $loaded $file);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
@@ -39,7 +36,7 @@
# core dumps
#
-my $file = '.domparsetest';
+$file = '.domparsetest';
open(OUT,">$file")
or die "Couldn't open $file for writing\n";
@@ -50,9 +47,6 @@
use lib 't';
use TestUtils qw($DOM);
-
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
{
my $ERROR_HANDLER = XML::Xerces::perlErrorHandler->new();
1.2 +2 -5 xml-xerces/perl/t/DOMPrint.t
Index: DOMPrint.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMPrint.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- DOMPrint.t 2001/04/12 05:03:41 1.1
+++ DOMPrint.t 2001/04/13 22:25:45 1.2
@@ -15,12 +15,9 @@
use lib 't';
use TestUtils qw(result);
-use vars qw($i $loaded);
+use vars qw($i $loaded $file);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
@@ -47,7 +44,7 @@
</person>
</contributors>];
-my $file = '.domprint.xml';
+$file = '.domprint.xml';
open(OUT,">$file") or die "Couldn't open $file from writing";
print OUT $document;
my $output = `$Config{perlpath} -Mblib ./samples/DOMPrint.pl $file`;
1.4 +0 -3 xml-xerces/perl/t/DOM_NamedNodeMap.t
Index: DOM_NamedNodeMap.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOM_NamedNodeMap.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- DOM_NamedNodeMap.t 2001/04/12 05:04:58 1.3
+++ DOM_NamedNodeMap.t 2001/04/13 22:25:45 1.4
@@ -17,9 +17,6 @@
use vars qw($i $loaded);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
1.5 +1 -3 xml-xerces/perl/t/DOM_NodeList.t
Index: DOM_NodeList.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOM_NodeList.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- DOM_NodeList.t 2001/04/12 05:04:59 1.4
+++ DOM_NodeList.t 2001/04/13 22:25:45 1.5
@@ -10,15 +10,13 @@
END {print "not ok 1\n" unless $loaded;}
use Carp;
use Cwd;
+use blib;
use XML::Xerces;
use lib 't';
use TestUtils qw(result $DOM $PERSONAL_FILE_NAME);
use vars qw($i $loaded);
use strict;
-
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
$loaded = 1;
$i = 1;
1.6 +0 -3 xml-xerces/perl/t/LocalFileInputSource.t
Index: LocalFileInputSource.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/LocalFileInputSource.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- LocalFileInputSource.t 2001/04/12 05:04:59 1.5
+++ LocalFileInputSource.t 2001/04/13 22:25:45 1.6
@@ -17,9 +17,6 @@
use vars qw($i $loaded);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
1.5 +1 -4 xml-xerces/perl/t/MemBufInputSource.t
Index: MemBufInputSource.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/MemBufInputSource.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- MemBufInputSource.t 2001/04/12 05:04:59 1.4
+++ MemBufInputSource.t 2001/04/13 22:25:45 1.5
@@ -17,9 +17,6 @@
use vars qw($i $loaded);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
@@ -30,6 +27,6 @@
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-$DOM->parse( new XML::Xerces::MemBufInputSource($PERSONAL, 'foo') );
+$DOM->parse(XML::Xerces::MemBufInputSource->new($PERSONAL, 'foo'));
my $serialize = $DOM->getDocument->serialize;
result($serialize eq $PERSONAL);
1.6 +0 -3 xml-xerces/perl/t/StdInInputSource.t
Index: StdInInputSource.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/StdInInputSource.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- StdInInputSource.t 2001/04/12 05:05:00 1.5
+++ StdInInputSource.t 2001/04/13 22:25:45 1.6
@@ -17,9 +17,6 @@
use vars qw($i $loaded);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
1.8 +1 -0 xml-xerces/perl/t/TestUtils.pm
Index: TestUtils.pm
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/TestUtils.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- TestUtils.pm 2001/04/12 05:05:00 1.7
+++ TestUtils.pm 2001/04/13 22:25:45 1.8
@@ -17,6 +17,7 @@
@EXPORT_OK = qw(result
$DOM
+ $SAX
$PERSONAL_FILE_NAME
$PERSONAL);
1.7 +0 -3 xml-xerces/perl/t/URLInputSource.t
Index: URLInputSource.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/URLInputSource.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- URLInputSource.t 2001/04/12 05:05:00 1.6
+++ URLInputSource.t 2001/04/13 22:25:45 1.7
@@ -18,9 +18,6 @@
use vars qw($i $loaded);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
1.6 +0 -3 xml-xerces/perl/t/actualCast.t
Index: actualCast.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/actualCast.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- actualCast.t 2001/04/12 05:05:00 1.5
+++ actualCast.t 2001/04/13 22:25:45 1.6
@@ -17,9 +17,6 @@
use vars qw($i $loaded);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
1.6 +0 -3 xml-xerces/perl/t/domTest.t
Index: domTest.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/domTest.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- domTest.t 2001/04/12 05:05:01 1.5
+++ domTest.t 2001/04/13 22:25:45 1.6
@@ -16,9 +16,6 @@
use vars qw($i $loaded);
use strict;
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
1.6 +0 -3 xml-xerces/perl/t/perlErrorHandler.t
Index: perlErrorHandler.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/perlErrorHandler.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- perlErrorHandler.t 2001/04/12 05:04:42 1.5
+++ perlErrorHandler.t 2001/04/13 22:25:45 1.6
@@ -17,9 +17,6 @@
use subs qw(warning error fatal_error);
use vars qw($error $loaded $i);
-# turn off annoying warnings
-$SIG{__WARN__} = 'IGNORE';
-
$loaded = 1;
$i = 1;
result($loaded);
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org