redhellothere
+
+
+
+ blue
+
+
+
+
+
+
+ green
+
+
+ |
+ orange
+
+
+
+
diff --git a/mozilla/htmlparser/tests/html/UrlGen.pl b/mozilla/htmlparser/tests/html/UrlGen.pl
new file mode 100644
index 00000000000..c3f728b1271
--- /dev/null
+++ b/mozilla/htmlparser/tests/html/UrlGen.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use Cwd;
+
+$curr_dir=`cd`;
+
+open(OUTFILE,">url_list.txt") || die "Can't open url.txt $!";
+opendir(D,".");
+
+@files=readdir(D);
+$curr_dir=~s/\\/\//g;
+chomp($curr_dir);
+
+foreach $file(@files) {
+ if($file=~m/\.htm/) {
+ print OUTFILE "file:///$curr_dir/$file\n";
+ }
+}
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/19116.html b/mozilla/parser/htmlparser/tests/html/19116.html
new file mode 100644
index 00000000000..b53ddd86c5f
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/19116.html
@@ -0,0 +1,10 @@
+
+
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/24184.html b/mozilla/parser/htmlparser/tests/html/24184.html
new file mode 100644
index 00000000000..43243a54606
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/24184.html
@@ -0,0 +1,38 @@
+
+
+
+
+
+testcase 4
+
+[span class z]
+[span class a]
+
+[span class z]
+[span class a]
+
+[span class z]
+[span class a]
+
+[span class z]
+[span class a]
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/24462.html b/mozilla/parser/htmlparser/tests/html/24462.html
new file mode 100644
index 00000000000..b73ed779f4d
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/24462.html
@@ -0,0 +1,20 @@
+
+
+
+
+ |
+
+
+ UNSER ANGEBOT
+ |
+
+ Foo
+ |
+
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/27490.html b/mozilla/parser/htmlparser/tests/html/27490.html
new file mode 100644
index 00000000000..9a589e50e8f
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/27490.html
@@ -0,0 +1,17 @@
+
+
+
+
+
+ |
+
+ Test
+ |
+
+
+ Test
+ |
+
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/40143.html b/mozilla/parser/htmlparser/tests/html/40143.html
new file mode 100644
index 00000000000..1b8246af16c
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/40143.html
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/40713.html b/mozilla/parser/htmlparser/tests/html/40713.html
new file mode 100644
index 00000000000..3b28ca529d8
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/40713.html
@@ -0,0 +1,19 @@
+
+
+
+
+
+
+
+
+ SHOULD BE HELVETICA
+
+
+
+
+
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/6148.html b/mozilla/parser/htmlparser/tests/html/6148.html
new file mode 100644
index 00000000000..7965768f5c9
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/6148.html
@@ -0,0 +1,29 @@
+
+
+Bug
+
+
+
+BUG:
+
+<SPAN>
+<DIV>
+<SPAN>
+</SPAN>
+</DIV>
+</SPAN>
+
+
+
+NO BUG:
+
+<SPAN>
+<DIV>
+<B>
+</B>
+</DIV>
+</SPAN>
+
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/Entity.html b/mozilla/parser/htmlparser/tests/html/Entity.html
new file mode 100644
index 00000000000..c84831fc6d8
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/Entity.html
@@ -0,0 +1,10 @@
+
+
+
+ Welcome to MSN.com
+
+
+
+ fidelity
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/RTestDTD.pl b/mozilla/parser/htmlparser/tests/html/RTestDTD.pl
new file mode 100644
index 00000000000..70c11158c1e
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/RTestDTD.pl
@@ -0,0 +1,94 @@
+#/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() {
+ ($url,$document1)=split/;/;
+ push(@url1,$url);
+ push(@documents1,$document1);
+ }
+ while() {
+ ($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";
+ }
+}
diff --git a/mozilla/parser/htmlparser/tests/html/Table_illegal_1.html b/mozilla/parser/htmlparser/tests/html/Table_illegal_1.html
new file mode 100644
index 00000000000..8e7b151c4d6
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/Table_illegal_1.html
@@ -0,0 +1,62 @@
+
+
+ Bad Content
+
+
+
+
+
+
+ |
+ some text
+ two |
+
+
+
+
+
+
+ one
+
+
+ last
+
+ two
+
+
+
+ three
+
+
+ |
+ three last
+
+
+ |
+ two last
+
+
+ |
+ one last
+
+
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/Table_illegal_2.html b/mozilla/parser/htmlparser/tests/html/Table_illegal_2.html
new file mode 100644
index 00000000000..6423ec9df0d
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/Table_illegal_2.html
@@ -0,0 +1,41 @@
+
+
+ Bad Content
+
+
+
+
+ redhellothere
+
+
+
+ blue
+
+
+
+
+
+
+ green
+
+
+ |
+ orange
+
+
+
+
diff --git a/mozilla/parser/htmlparser/tests/html/UrlGen.pl b/mozilla/parser/htmlparser/tests/html/UrlGen.pl
new file mode 100644
index 00000000000..c3f728b1271
--- /dev/null
+++ b/mozilla/parser/htmlparser/tests/html/UrlGen.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use Cwd;
+
+$curr_dir=`cd`;
+
+open(OUTFILE,">url_list.txt") || die "Can't open url.txt $!";
+opendir(D,".");
+
+@files=readdir(D);
+$curr_dir=~s/\\/\//g;
+chomp($curr_dir);
+
+foreach $file(@files) {
+ if($file=~m/\.htm/) {
+ print OUTFILE "file:///$curr_dir/$file\n";
+ }
+}
+
+
| | | | | |
![+ fidelity + + diff --git a/mozilla/htmlparser/tests/html/RTestDTD.pl b/mozilla/htmlparser/tests/html/RTestDTD.pl new file mode 100644 index 00000000000..70c11158c1e --- /dev/null +++ b/mozilla/htmlparser/tests/html/RTestDTD.pl @@ -0,0 +1,94 @@ +#/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() { + ($url,$document1)=split/;/; + push(@url1,$url); + push(@documents1,$document1); + } + while() { + ($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"; + } +} diff --git a/mozilla/htmlparser/tests/html/Table_illegal_1.html b/mozilla/htmlparser/tests/html/Table_illegal_1.html new file mode 100644 index 00000000000..8e7b151c4d6 --- /dev/null +++ b/mozilla/htmlparser/tests/html/Table_illegal_1.html @@ -0,0 +1,62 @@ + + + Bad Content + + + + + + + + some text + two + + + + + ss + three + + + + + + one + + + last + + two + + + + three + + + + + 4TD + + + + + three last + + + + two last + + + + one last + + + + + diff --git a/mozilla/htmlparser/tests/html/Table_illegal_2.html b/mozilla/htmlparser/tests/html/Table_illegal_2.html new file mode 100644 index 00000000000..6423ec9df0d --- /dev/null +++ b/mozilla/htmlparser/tests/html/Table_illegal_2.html @@ -0,0 +1,41 @@ + + + Bad Content + + + + + redhellothere + + + + blue + + + + + + + green + + + + + HELLO + + + + + orange + + + + diff --git a/mozilla/htmlparser/tests/html/UrlGen.pl b/mozilla/htmlparser/tests/html/UrlGen.pl new file mode 100644 index 00000000000..c3f728b1271 --- /dev/null +++ b/mozilla/htmlparser/tests/html/UrlGen.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use Cwd; + +$curr_dir=`cd`; + +open(OUTFILE,">url_list.txt") || die "Can't open url.txt $!"; +opendir(D,"."); + +@files=readdir(D); +$curr_dir=~s/\\/\//g; +chomp($curr_dir); + +foreach $file(@files) { + if($file=~m/\.htm/) { + print OUTFILE "file:///$curr_dir/$file\n"; + } +} + + diff --git a/mozilla/parser/htmlparser/tests/html/19116.html b/mozilla/parser/htmlparser/tests/html/19116.html new file mode 100644 index 00000000000..b53ddd86c5f --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/19116.html @@ -0,0 +1,10 @@ + + + + + diff --git a/mozilla/parser/htmlparser/tests/html/24184.html b/mozilla/parser/htmlparser/tests/html/24184.html new file mode 100644 index 00000000000..43243a54606 --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/24184.html @@ -0,0 +1,38 @@ + + + + + +testcase 4 + +[span class z] +[span class a] + +[span class z] +[span class a] + +[span class z] +[span class a] + +[span class z] +[span class a] + + + diff --git a/mozilla/parser/htmlparser/tests/html/24462.html b/mozilla/parser/htmlparser/tests/html/24462.html new file mode 100644 index 00000000000..b73ed779f4d --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/24462.html @@ -0,0 +1,20 @@ + + + + + + + + UNSER ANGEBOT + + + Foo + + + + + diff --git a/mozilla/parser/htmlparser/tests/html/27490.html b/mozilla/parser/htmlparser/tests/html/27490.html new file mode 100644 index 00000000000..9a589e50e8f --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/27490.html @@ -0,0 +1,17 @@ + + + + + + + + Test + + + + Test + + + + + diff --git a/mozilla/parser/htmlparser/tests/html/40143.html b/mozilla/parser/htmlparser/tests/html/40143.html new file mode 100644 index 00000000000..1b8246af16c --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/40143.html @@ -0,0 +1,15 @@ + + + + +This should be the only text visible and it should be red + + + + diff --git a/mozilla/parser/htmlparser/tests/html/40713.html b/mozilla/parser/htmlparser/tests/html/40713.html new file mode 100644 index 00000000000..3b28ca529d8 --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/40713.html @@ -0,0 +1,19 @@ + + + + + + SHOULD BE TIMES ROMAN + + + + + SHOULD BE HELVETICA + + + + + + + + diff --git a/mozilla/parser/htmlparser/tests/html/6148.html b/mozilla/parser/htmlparser/tests/html/6148.html new file mode 100644 index 00000000000..7965768f5c9 --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/6148.html @@ -0,0 +1,29 @@ + + +Bug + + + +BUG: + +<SPAN> +<DIV> +<SPAN> +</SPAN> +</DIV> +</SPAN> + + + +NO BUG: + +<SPAN> +<DIV> +<B> +</B> +</DIV> +</SPAN> + + + + diff --git a/mozilla/parser/htmlparser/tests/html/Entity.html b/mozilla/parser/htmlparser/tests/html/Entity.html new file mode 100644 index 00000000000..c84831fc6d8 --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/Entity.html @@ -0,0 +1,10 @@ + + + + Welcome to MSN.com + + + + fidelity + + diff --git a/mozilla/parser/htmlparser/tests/html/RTestDTD.pl b/mozilla/parser/htmlparser/tests/html/RTestDTD.pl new file mode 100644 index 00000000000..70c11158c1e --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/RTestDTD.pl @@ -0,0 +1,94 @@ +#/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() { + ($url,$document1)=split/;/; + push(@url1,$url); + push(@documents1,$document1); + } + while() { + ($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"; + } +} diff --git a/mozilla/parser/htmlparser/tests/html/Table_illegal_1.html b/mozilla/parser/htmlparser/tests/html/Table_illegal_1.html new file mode 100644 index 00000000000..8e7b151c4d6 --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/Table_illegal_1.html @@ -0,0 +1,62 @@ + + + Bad Content + + + + + + + + some text + two + + + + + ss + three + + + + + + one + + + last + + two + + + + three + + + + + 4TD + + + + + three last + + + + two last + + + + one last + + + + + diff --git a/mozilla/parser/htmlparser/tests/html/Table_illegal_2.html b/mozilla/parser/htmlparser/tests/html/Table_illegal_2.html new file mode 100644 index 00000000000..6423ec9df0d --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/Table_illegal_2.html @@ -0,0 +1,41 @@ + + + Bad Content + + + + + redhellothere + + + + blue + + + + + + + green + + + + + HELLO + + + + + orange + + + + diff --git a/mozilla/parser/htmlparser/tests/html/UrlGen.pl b/mozilla/parser/htmlparser/tests/html/UrlGen.pl new file mode 100644 index 00000000000..c3f728b1271 --- /dev/null +++ b/mozilla/parser/htmlparser/tests/html/UrlGen.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use Cwd; + +$curr_dir=`cd`; + +open(OUTFILE,">url_list.txt") || die "Can't open url.txt $!"; +opendir(D,"."); + +@files=readdir(D); +$curr_dir=~s/\\/\//g; +chomp($curr_dir); + +foreach $file(@files) { + if($file=~m/\.htm/) { + print OUTFILE "file:///$curr_dir/$file\n"; + } +} + +](http://ads.msn.com/ads/adredir.asp?url=http://www.fidelity.com&image=http://ads.msn.com/ads/MSNBTA/FI610001_TR.gif){kind=link}