Revision 9909696e
Von Sven Schöling vor fast 9 Jahren hinzugefügt
| t/002goodperl.t | ||
|---|---|---|
|
# the estimate whether a file is dirty or not is still pretty helpful, as it will catch most of the closing tags.
|
||
|
# if you are in doubt about a specific file, you still have to check it manually.
|
||
|
my $tags = qr/b|i|u|h[1-6]|a href.*|input|form|br|textarea|table|tr|td|th|body|head|html|p|button|select|option|script/;
|
||
|
my $todo_files_re = qr{^bin/mozilla/ic\.pl$};
|
||
|
foreach my $file (@testitems) {
|
||
|
my $found_html_count = 0;
|
||
|
my $found_html = '';
|
||
| ... | ... | |
|
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.");
|
||
|
}
|
||
|
ok(0,"$file contains at least $found_html_count html tags.");
|
||
|
}
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Tests: ic.pl nicht mehr vom html-tag counter ausschließen
Nachdem top100 rausgeflogen ist, ist das mit 13 tags sogar noch gut im
Mittelfeld der Sünder.