+ close (FILE);
+ if (!$found_html_count) {
+ ok(1,"$file does not contain HTML");
+ } elsif ($found_html_count < 50) {
+ TODO: { local $TODO = q(Even little amounts of HTML should go away....);
+ ok(0,"$file contains at least $found_html_count html tags.");
+ }
+ } else {
+ if ($file =~ $todo_files_re) {
+ TODO: { local $TODO = q(This file is known to have lots of old cruft.);
+ ok(0,"$file contains at least $found_html_count html tags.");
+ }
+ } else {
+ ok(0,"$file contains at least $found_html_count html tags.");
+ }
+ }