Regression Test files.

Not part of the build.


git-svn-id: svn://10.0.0.236/trunk@73536 18797224-902f-48f8-a5cc-f745e15eee43

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";
+ }
+}
+
+