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/10/10 22:03:15 UTC
cvs commit: xml-xerces/perl/t SAXCount.t
jasons 01/10/10 13:03:15
Modified: perl/t SAXCount.t
Log:
* t/SAXCount.t (Repository):
* t/SAX2Count.t (Repository):
Now uses personal.xml
Revision Changes Path
1.5 +6 -29 xml-xerces/perl/t/SAXCount.t
Index: SAXCount.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/SAXCount.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- SAXCount.t 2001/06/14 06:44:02 1.4
+++ SAXCount.t 2001/10/10 20:03:15 1.5
@@ -15,7 +15,7 @@
use Config;
use lib 't';
-use TestUtils qw(result);
+use TestUtils qw(result $PERSONAL_FILE_NAME);
use vars qw($i $loaded $file);
use strict;
@@ -29,35 +29,12 @@
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
-my $document = q[<?xml version="1.0" encoding="utf-8"?>
-<contributors>
- <person Role="manager">
- <name>Mike Pogue</name>
- <email>mpogue@us.ibm.com</email>
- </person>
- <person Role="developer">
- <name>Tom Watson</name>
- <email>rtwatson@us.ibm.com</email>
- </person>
- <person Role="tech writer">
- <name>Susan Hardenbrook</name>
- <email>susanhar@us.ibm.com</email>
- </person>
-</contributors>];
-
-$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 2>/dev/null`);
+my @output = split(/\n/,`$Config{perlpath} -Mblib ./samples/SAXCount.pl $PERSONAL_FILE_NAME 2>/dev/null`);
$output[1] =~ /\s(\d+)/;
-result($1 == 10);
+result($1 == 37);
$output[2] =~ /\b(\d+)\b/;
-result($1 == 0);
+result($1 == 12);
$output[3] =~ /\b(\d+)\b/;
-result($1 == 0);
+result($1 == 134);
$output[4] =~ /\b(\d+)\b/;
-result($1 == 123);
-
-END {unlink $file;}
+result($1 == 134);
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org