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 07:45:11 UTC
cvs commit: xml-xerces/perl/t DOMCount.t DOMPrint.t SAXCount.t
jasons 01/06/13 22:45:11
Modified: perl/t DOMCount.t DOMPrint.t SAXCount.t
Log:
* t/SAXCount.t (Repository):
* t/DOMPrint.t (Repository):
* t/DOMCount.t (Repository):
needed to close filehandle to flush buffer before calling external
method for Perl prior to 5.6
Revision Changes Path
1.2 +3 -0 xml-xerces/perl/t/DOMCount.t
Index: DOMCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCount.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- DOMCount.t 2001/04/13 22:24:11 1.1
+++ DOMCount.t 2001/06/14 05:45:11 1.2
@@ -46,8 +46,11 @@
</contributors>];
$file = '.domprint.xml';
+
open(OUT,">$file") or die "Couldn't open $file from writing";
print OUT $document;
+close(OUT);
+
my $output = `$Config{perlpath} -Mblib ./samples/DOMCount.pl $file`;
$output =~ /(\d+)/;
result($1 == 10);
1.3 +2 -0 xml-xerces/perl/t/DOMPrint.t
Index: DOMPrint.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMPrint.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- DOMPrint.t 2001/04/13 22:25:45 1.2
+++ DOMPrint.t 2001/06/14 05:45:11 1.3
@@ -47,6 +47,8 @@
$file = '.domprint.xml';
open(OUT,">$file") or die "Couldn't open $file from writing";
print OUT $document;
+close(OUT);
+
my $output = `$Config{perlpath} -Mblib ./samples/DOMPrint.pl $file`;
result($document eq $output);
1.3 +2 -0 xml-xerces/perl/t/SAXCount.t
Index: SAXCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/SAXCount.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- SAXCount.t 2001/04/16 03:25:09 1.2
+++ SAXCount.t 2001/06/14 05:45:11 1.3
@@ -48,6 +48,8 @@
$file = '.domprint.xml';
open(OUT,">$file") or die "Couldn't open $file from writing";
print OUT $document;
+close(OUT);
+
my @output = split(/\n/,`$Config{perlpath} -Mblib ./samples/SAXCount.pl $file`);
$output[1] =~ /\s(\d+)/;
result($1 == 10);
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org