gecko-dev/parser/htmlparser/tests/html/RTestDTD.pl

95 строки
2.3 KiB
Perl

#/usr/bin/perl
die "\nUsage: perl RtestDTD.pl [FLAG] url_list.txt.
FLAGS:
-v = verify ( would create rtest_html.veri )
-b = baseline ( would create rtest_html.base )
-help = info. on running the script\n"
if( @ARGV[0]!~/-help/ && ((@ARGV >2 || @ARGV < 2) || ($ARGV[0]!~m/-v/ && $ARGV[0]!~m/-b/)));
if($ARGV[0]=~m/-help/) {
print "
1. \"url_list.txt\" can be generated by running UrlGen.pl
Ex. perl UrlGen.pl.
2. Run base line (-b) before making changes in your tree.
This will generate rtest_html.base file [DO NOT CHANGE THIS].
3. Run verification (-v) after making changes in your tree.
This will generate rtest_html.veri file and will compare
rtest_html.base and rtest_html.veri.
NOTE: Need perl version 5.0 or greater. \n";
exit(0);
}
use Cwd;
$ENV{"PARSER_DUMP_CONTENT"}=1;
($drive,@path)=split(/:/,`cd`);
system("$drive:\\mozilla\\dist\\win32_d.obj\\bin\\viewer.exe -f $ARGV[1]");
if($ARGV[0]=~m/-b/) {
rename("rtest_html.txt","rtest_html.base");
}
elsif($ARGV[0]=~m/-v/) {
rename("rtest_html.txt","rtest_html.veri");
@result=CompareFiles("rtest_html.base","rtest_html.veri");
Display(@result);
}
sub CompareFiles {
open(BASE,"<$_[0]") || die "Can't output $_[0] $!";
open(VERI,"<$_[1]") || die "Can't output $_[1] $!";
#Separate file contents into URL and DOCUMENT
while(<BASE>) {
($url,$document1)=split/;/;
push(@url1,$url);
push(@documents1,$document1);
}
while(<VERI>) {
($url,$document2)=split/;/;
push(@url2,$url);
push(@documents2,$document2);
}
#Search for documents that don't match
for($i=0;$i<=$#documents1+1;$i++) {
if($documents1[$i] !~ /$documents2[$i]/) {
(@string1)=split(//,$documents1[$i]);
(@string2)=split(//,$documents2[$i]);
for($j=0;$j<=$#string1;$j++) {
# Find the character that failed
if($string1[$j] !~ /$string2[$j]/) {
push(@result,$url1[$i],$string2[$j],$j);
$j=@string1; # Stop looping
}
}
}
}
close(BASE);
close(VERI);
return @result;
}
sub Display {
for($i=0;$i<@_;$i++) {
print "\n $_[$i++] failed on character '$_[$i++]' at location $_[$i]";
}
print "\n--------------------\n";
$count=@_/3;
if(($count)>0) {
print "$count url(s) failed\n";
}
else {
print "\nALL SUCCEEDED\n";
}
}