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/11/03 06:28:03 UTC
cvs commit: xml-xerces/perl/t DOMCount.t DOMCreate.t DOMPrint.t LocalFileInputSource.t SAX2Count.t SAXCount.t
jasons 01/11/02 21:28:03
Modified: perl/t DOMCount.t DOMCreate.t DOMPrint.t
LocalFileInputSource.t SAX2Count.t SAXCount.t
Log:
* t/DOMPrint.t (Repository):
* t/DOMCreate.t (Repository):
* t/DOMCount.t (Repository):
* t/LocalFileInputSource.t (Repository):
* t/SAX2Count.t (Repository):
* t/SAXCount.t (Repository):
Uses $SAMPLE_DIR to be directory independent
Revision Changes Path
1.4 +2 -3 xml-xerces/perl/t/DOMCount.t
Index: DOMCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCount.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- DOMCount.t 2001/06/14 06:44:02 1.3
+++ DOMCount.t 2001/11/03 05:28:03 1.4
@@ -15,7 +15,7 @@
use Config;
use lib 't';
-use TestUtils qw(result);
+use TestUtils qw(result $SAMPLE_DIR);
use vars qw($i $loaded $file);
use strict;
@@ -50,8 +50,7 @@
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 2>/dev/null`;
+my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/DOMCount.pl $file 2>/dev/null`;
$output =~ /(\d+)/;
result($1 == 10);
1.5 +2 -2 xml-xerces/perl/t/DOMCreate.t
Index: DOMCreate.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMCreate.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- DOMCreate.t 2001/06/14 06:44:02 1.4
+++ DOMCreate.t 2001/11/03 05:28:03 1.5
@@ -14,7 +14,7 @@
use Config;
use lib 't';
-use TestUtils qw(result);
+use TestUtils qw(result $SAMPLE_DIR);
use vars qw($i $loaded);
use strict;
@@ -45,6 +45,6 @@
</contributors>];
-my $output = `$Config{perlpath} -Mblib samples/DOMCreate.pl 2>/dev/null`;
+my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/DOMCreate.pl 2>/dev/null`;
result($document eq $output);
1.5 +2 -2 xml-xerces/perl/t/DOMPrint.t
Index: DOMPrint.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOMPrint.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- DOMPrint.t 2001/06/14 06:44:02 1.4
+++ DOMPrint.t 2001/11/03 05:28:03 1.5
@@ -14,7 +14,7 @@
use Config;
use lib 't';
-use TestUtils qw(result);
+use TestUtils qw(result $SAMPLE_DIR);
use vars qw($i $loaded $file);
use strict;
@@ -49,7 +49,7 @@
print OUT $document;
close(OUT);
-my $output = `$Config{perlpath} -Mblib ./samples/DOMPrint.pl $file 2>/dev/null`;
+my $output = `$Config{perlpath} -Mblib $SAMPLE_DIR/DOMPrint.pl $file 2>/dev/null`;
result($document eq $output);
1.9 +3 -3 xml-xerces/perl/t/LocalFileInputSource.t
Index: LocalFileInputSource.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/LocalFileInputSource.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- LocalFileInputSource.t 2001/10/10 20:03:55 1.8
+++ LocalFileInputSource.t 2001/11/03 05:28:03 1.9
@@ -15,7 +15,7 @@
use Cwd;
use lib 't';
-use TestUtils qw(result is_object $DOM $PERSONAL $PERSONAL_FILE_NAME);
+use TestUtils qw(result is_object $DOM $PERSONAL $PERSONAL_FILE_NAME $SAMPLE_DIR);
use vars qw($i $loaded $error);
use strict;
@@ -48,11 +48,11 @@
$error->isa('XML::Xerces::XMLException'));
# test that relative paths work
-$is = XML::Xerces::LocalFileInputSource->new('./samples/personal.xml');
+$is = XML::Xerces::LocalFileInputSource->new("$SAMPLE_DIR/personal.xml");
result(is_object($is) && $is->isa('XML::Xerces::LocalFileInputSource'));
# test the overloaded constructor
# this currently segfaults
my $cwd = cwd();
-# $is = XML::Xerces::LocalFileInputSource->new($cwd, './samples/personal.xml');
+# $is = XML::Xerces::LocalFileInputSource->new($cwd, "$SAMPLE_DIR/personal.xml");
result(is_object($is) && $is->isa('XML::Xerces::LocalFileInputSource'));
1.4 +2 -2 xml-xerces/perl/t/SAX2Count.t
Index: SAX2Count.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/SAX2Count.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- SAX2Count.t 2001/10/10 20:03:02 1.3
+++ SAX2Count.t 2001/11/03 05:28:03 1.4
@@ -15,7 +15,7 @@
use Config;
use lib 't';
-use TestUtils qw(result $PERSONAL_FILE_NAME);
+use TestUtils qw(result $PERSONAL_FILE_NAME $SAMPLE_DIR);
use vars qw($i $loaded $file);
use strict;
@@ -29,7 +29,7 @@
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-my @output = split(/\n/,`$Config{perlpath} -Mblib ./samples/SAX2Count.pl $PERSONAL_FILE_NAME 2>/dev/null`);
+my @output = split(/\n/,`$Config{perlpath} -Mblib $SAMPLE_DIR/SAX2Count.pl $PERSONAL_FILE_NAME 2>/dev/null`);
$output[1] =~ /\s(\d+)/;
result($1 == 37);
$output[2] =~ /\b(\d+)\b/;
1.6 +2 -2 xml-xerces/perl/t/SAXCount.t
Index: SAXCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/SAXCount.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- SAXCount.t 2001/10/10 20:03:15 1.5
+++ SAXCount.t 2001/11/03 05:28:03 1.6
@@ -15,7 +15,7 @@
use Config;
use lib 't';
-use TestUtils qw(result $PERSONAL_FILE_NAME);
+use TestUtils qw(result $PERSONAL_FILE_NAME $SAMPLE_DIR);
use vars qw($i $loaded $file);
use strict;
@@ -29,7 +29,7 @@
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-my @output = split(/\n/,`$Config{perlpath} -Mblib ./samples/SAXCount.pl $PERSONAL_FILE_NAME 2>/dev/null`);
+my @output = split(/\n/,`$Config{perlpath} -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