Revision 9909696e
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| t/002goodperl.t | ||
|---|---|---|
| 109 | 109 |
# the estimate whether a file is dirty or not is still pretty helpful, as it will catch most of the closing tags. |
| 110 | 110 |
# if you are in doubt about a specific file, you still have to check it manually. |
| 111 | 111 |
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/; |
| 112 |
my $todo_files_re = qr{^bin/mozilla/ic\.pl$};
|
|
| 113 | 112 |
foreach my $file (@testitems) {
|
| 114 | 113 |
my $found_html_count = 0; |
| 115 | 114 |
my $found_html = ''; |
| ... | ... | |
| 135 | 134 |
ok(0,"$file contains at least $found_html_count html tags."); |
| 136 | 135 |
} |
| 137 | 136 |
} else {
|
| 138 |
if ($file =~ $todo_files_re) {
|
|
| 139 |
TODO: { local $TODO = q(This file is known to have lots of old cruft.);
|
|
| 140 |
ok(0,"$file contains at least $found_html_count html tags."); |
|
| 141 |
} |
|
| 142 |
} else {
|
|
| 143 |
ok(0,"$file contains at least $found_html_count html tags."); |
|
| 144 |
} |
|
| 137 |
ok(0,"$file contains at least $found_html_count html tags."); |
|
| 145 | 138 |
} |
| 146 | 139 |
} |
| 147 | 140 |
|
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.