Revision f6e8c87b
Von Sven Schöling vor etwa 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 |
|
| t/005no_tabs.t | ||
|---|---|---|
| 47 | 47 |
if (grep /\t/, <FILE>) {
|
| 48 | 48 |
ok(0, "$file contains tabs --WARNING"); |
| 49 | 49 |
} else {
|
| 50 |
TODO: { local $TODO = q(Tabfreeness is not enforced at the moment.);
|
|
| 50 | 51 |
ok(1, "$file has no tabs"); |
| 52 |
} |
|
| 51 | 53 |
} |
| 52 | 54 |
close (FILE); |
| 53 | 55 |
} |
Auch abrufbar als: Unified diff
TODOs etwas feiner granuliert.