Revision f6e8c87b
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| t/002goodperl.t | ||
|---|---|---|
|
close (FILE);
|
||
|
if (!$found_html_count) {
|
||
|
ok(1,"$file does not contain HTML");
|
||
|
} else {
|
||
|
TODO: { local $TODO = q(Templating is not final.);
|
||
|
} elsif ($found_html_count < 50) {
|
||
|
TODO: { local $TODO = q(Even slow amounts should go away....);
|
||
|
ok(0,"$file contains at least $found_html_count html tags.");
|
||
|
}
|
||
|
} else {
|
||
|
ok(0,"$file contains at least $found_html_count html tags.");
|
||
|
}
|
||
|
}
|
||
|
|
||
| t/005no_tabs.t | ||
|---|---|---|
|
if (grep /\t/, <FILE>) {
|
||
|
ok(0, "$file contains tabs --WARNING");
|
||
|
} else {
|
||
|
TODO: { local $TODO = q(Tabfreeness is not enforced at the moment.);
|
||
|
ok(1, "$file has no tabs");
|
||
|
}
|
||
|
}
|
||
|
close (FILE);
|
||
|
}
|
||
Auch abrufbar als: Unified diff
TODOs etwas feiner granuliert.