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 2002/02/21 04:06:47 UTC
cvs commit: xml-xerces/perl/t DOMCount.t DOMCreate.t DOMPrint.t IDOMCount.t IDOMPrint.t SAX2Count.t SAXCount.t
jasons 02/02/20 19:06:47
Modified: perl/t DOMCount.t DOMCreate.t DOMPrint.t IDOMCount.t
IDOMPrint.t SAX2Count.t SAXCount.t
Log:
* t/SAXCount.t (Repository):
* t/SAX2Count.t (Repository):
* t/IDOMPrint.t (Repository):
* t/IDOMCount.t (Repository):
* t/DOMPrint.t (Repository):
* t/DOMCreate.t (Repository):
* t/DOMCount.t (Repository):
Fixed the problem of knowing which perl binary to use
Revision Changes Path
1.5 +4 -1 xml-xerces/perl/t/DOMCount.t
Index: DOMCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCount.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- DOMCount.t 3 Nov 2001 05:28:03 -0000 1.4
+++ DOMCount.t 21 Feb 2002 03:06:47 -0000 1.5
@@ -50,7 +50,10 @@
open(OUT,">$file") or die "Couldn't open $file from writing";
print OUT $document;
close(OUT);
-my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/DOMCount.pl $file 2>/dev/null`;
+my $perl = $Config{startperl};
+$perl =~ s/^\#!//;
+my $output = `$perl -Mblib $SAMPLE_DIR/DOMCount.pl $file 2>/dev/null`;
+# my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/DOMCount.pl $file`;
$output =~ /(\d+)/;
result($1 == 10);
1.6 +3 -1 xml-xerces/perl/t/DOMCreate.t
Index: DOMCreate.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCreate.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- DOMCreate.t 3 Nov 2001 05:28:03 -0000 1.5
+++ DOMCreate.t 21 Feb 2002 03:06:47 -0000 1.6
@@ -45,6 +45,8 @@
</contributors>];
-my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/DOMCreate.pl 2>/dev/null`;
+my $perl = $Config{startperl};
+$perl =~ s/^\#!//;
+my $output = `$perl -Mblib $SAMPLE_DIR/DOMCreate.pl 2>/dev/null`;
result($document eq $output);
1.6 +3 -1 xml-xerces/perl/t/DOMPrint.t
Index: DOMPrint.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMPrint.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- DOMPrint.t 3 Nov 2001 05:28:03 -0000 1.5
+++ DOMPrint.t 21 Feb 2002 03:06:47 -0000 1.6
@@ -49,7 +49,9 @@
print OUT $document;
close(OUT);
-my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/DOMPrint.pl $file 2>/dev/null`;
+my $perl = $Config{startperl};
+$perl =~ s/^\#!//;
+my $output = `$perl -Mblib $SAMPLE_DIR/DOMPrint.pl $file 2>/dev/null`;
result($document eq $output);
1.2 +3 -1 xml-xerces/perl/t/IDOMCount.t
Index: IDOMCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/IDOMCount.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- IDOMCount.t 3 Nov 2001 02:54:11 -0000 1.1
+++ IDOMCount.t 21 Feb 2002 03:06:47 -0000 1.2
@@ -51,7 +51,9 @@
print OUT $document;
close(OUT);
-my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/IDOMCount.pl $file 2>/dev/null`;
+my $perl = $Config{startperl};
+$perl =~ s/^\#!//;
+my $output = `$perl -Mblib $SAMPLE_DIR/IDOMCount.pl $file 2>/dev/null`;
# print STDERR "Out <$output>\n";
$output =~ /(\d+) elems/;
result($1 == 10);
1.2 +3 -1 xml-xerces/perl/t/IDOMPrint.t
Index: IDOMPrint.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/IDOMPrint.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- IDOMPrint.t 3 Nov 2001 02:54:11 -0000 1.1
+++ IDOMPrint.t 21 Feb 2002 03:06:47 -0000 1.2
@@ -49,7 +49,9 @@
print OUT $document;
close(OUT);
-my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/IDOMPrint.pl $file 2>/dev/null`;
+my $perl = $Config{startperl};
+$perl =~ s/^\#!//;
+my $output = `$perl -Mblib $SAMPLE_DIR/IDOMPrint.pl $file 2>/dev/null`;
result($document eq $output);
END {unlink $file;}
1.5 +3 -2 xml-xerces/perl/t/SAX2Count.t
Index: SAX2Count.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/SAX2Count.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- SAX2Count.t 3 Nov 2001 05:28:03 -0000 1.4
+++ SAX2Count.t 21 Feb 2002 03:06:47 -0000 1.5
@@ -28,8 +28,9 @@
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-
-my @output = split(/\n/,`$Config{perlpath} -Mblib $SAMPLE_DIR/SAX2Count.pl $PERSONAL_FILE_NAME 2>/dev/null`);
+my $perl = $Config{startperl};
+$perl =~ s/^\#!//;
+my @output = split(/\n/,`$perl -Mblib $SAMPLE_DIR/SAX2Count.pl $PERSONAL_FILE_NAME 2>/dev/null`);
$output[1] =~ /\s(\d+)/;
result($1 == 37);
$output[2] =~ /\b(\d+)\b/;
1.7 +3 -1 xml-xerces/perl/t/SAXCount.t
Index: SAXCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/SAXCount.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- SAXCount.t 3 Nov 2001 05:28:03 -0000 1.6
+++ SAXCount.t 21 Feb 2002 03:06:47 -0000 1.7
@@ -29,7 +29,9 @@
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-my @output = split(/\n/,`$Config{perlpath} -Mblib $SAMPLE_DIR/SAXCount.pl $PERSONAL_FILE_NAME 2>/dev/null`);
+my $perl = $Config{startperl};
+$perl =~ s/^\#!//;
+my @output = split(/\n/,`$perl -Mblib $SAMPLE_DIR/SAXCount.pl $PERSONAL_FILE_NAME 2>/dev/null`);
$output[1] =~ /\s(\d+)/;
result($1 == 37);
$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