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/06/14 08:44:04 UTC
cvs commit: xml-xerces/perl/t DOMCount.t DOMCreate.t DOMParser.t DOMPrint.t SAX2Count.t SAXCount.t
jasons 01/06/13 23:44:04
Modified: perl/t DOMCount.t DOMCreate.t DOMParser.t DOMPrint.t
SAX2Count.t SAXCount.t
Log:
* t/SAXCount.t (Repository):
* t/SAX2Count.t (Repository):
* t/DOMPrint.t (Repository):
* t/DOMParser.t (Repository):
* t/DOMCreate.t (Repository):
* t/DOMCount.t (Repository):
removed 'using blib ...' warning
Revision Changes Path
1.3 +1 -1 xml-xerces/perl/t/DOMCount.t
Index: DOMCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCount.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- DOMCount.t 2001/06/14 05:45:11 1.2
+++ DOMCount.t 2001/06/14 06:44:02 1.3
@@ -51,7 +51,7 @@
print OUT $document;
close(OUT);
-my $output = `$Config{perlpath} -Mblib ./samples/DOMCount.pl $file`;
+my $output = `$Config{perlpath} -Mblib ./samples/DOMCount.pl $file 2>/dev/null`;
$output =~ /(\d+)/;
result($1 == 10);
1.4 +1 -1 xml-xerces/perl/t/DOMCreate.t
Index: DOMCreate.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCreate.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- DOMCreate.t 2001/04/13 22:25:45 1.3
+++ DOMCreate.t 2001/06/14 06:44:02 1.4
@@ -45,6 +45,6 @@
</contributors>];
-my $output = `$Config{perlpath} -Mblib samples/DOMCreate.pl`;
+my $output = `$Config{perlpath} -Mblib samples/DOMCreate.pl 2>/dev/null`;
result($document eq $output);
1.6 +1 -1 xml-xerces/perl/t/DOMParser.t
Index: DOMParser.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMParser.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- DOMParser.t 2001/06/14 05:44:17 1.5
+++ DOMParser.t 2001/06/14 06:44:02 1.6
@@ -67,7 +67,7 @@
EOT
# if we get an exit value of zero we succeeded
-system("perl $file");
+system("perl $file 2>/dev/null");
result(! $?);
END {unlink $file;}
1.4 +1 -1 xml-xerces/perl/t/DOMPrint.t
Index: DOMPrint.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMPrint.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- DOMPrint.t 2001/06/14 05:45:11 1.3
+++ DOMPrint.t 2001/06/14 06:44:02 1.4
@@ -49,7 +49,7 @@
print OUT $document;
close(OUT);
-my $output = `$Config{perlpath} -Mblib ./samples/DOMPrint.pl $file`;
+my $output = `$Config{perlpath} -Mblib ./samples/DOMPrint.pl $file 2>/dev/null`;
result($document eq $output);
1.2 +1 -1 xml-xerces/perl/t/SAX2Count.t
Index: SAX2Count.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/SAX2Count.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- SAX2Count.t 2001/06/14 05:24:42 1.1
+++ SAX2Count.t 2001/06/14 06:44:02 1.2
@@ -48,7 +48,7 @@
$file = '.domprint.xml';
open(OUT,">$file") or die "Couldn't open $file from writing";
print OUT $document;
-my @output = split(/\n/,`$Config{perlpath} -Mblib ./samples/SAX2Count.pl $file`);
+my @output = split(/\n/,`$Config{perlpath} -Mblib ./samples/SAX2Count.pl $file 2>/dev/null`);
$output[1] =~ /\s(\d+)/;
result($1 == 10);
$output[2] =~ /\b(\d+)\b/;
1.4 +1 -1 xml-xerces/perl/t/SAXCount.t
Index: SAXCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/SAXCount.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- SAXCount.t 2001/06/14 05:45:11 1.3
+++ SAXCount.t 2001/06/14 06:44:02 1.4
@@ -50,7 +50,7 @@
print OUT $document;
close(OUT);
-my @output = split(/\n/,`$Config{perlpath} -Mblib ./samples/SAXCount.pl $file`);
+my @output = split(/\n/,`$Config{perlpath} -Mblib ./samples/SAXCount.pl $file 2>/dev/null`);
$output[1] =~ /\s(\d+)/;
result($1 == 10);
$output[2] =~ /\b(\d+)\b/;
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org