Revision f6e8c87b
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| t/002goodperl.t | ||
|---|---|---|
| 127 | 127 |
close (FILE); |
| 128 | 128 |
if (!$found_html_count) {
|
| 129 | 129 |
ok(1,"$file does not contain HTML"); |
| 130 |
} else {
|
|
| 131 |
TODO: { local $TODO = q(Templating is not final.);
|
|
| 130 |
} elsif ($found_html_count < 50) {
|
|
| 131 |
TODO: { local $TODO = q(Even slow amounts should go away....);
|
|
| 132 | 132 |
ok(0,"$file contains at least $found_html_count html tags."); |
| 133 | 133 |
} |
| 134 |
} else {
|
|
| 135 |
ok(0,"$file contains at least $found_html_count html tags."); |
|
| 134 | 136 |
} |
| 135 | 137 |
} |
| 136 | 138 |
|
Auch abrufbar als: Unified diff
TODOs etwas feiner granuliert.