TODOs etwas feiner granuliert.

diff --git a/t/002goodperl.t b/t/002goodperl.t
index f081ac7..75a378c 100644 (file)
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -127,10 +127,12 @@ foreach my $file (@testitems) {
     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.");
     }
 }
 

diff --git a/t/005no_tabs.t b/t/005no_tabs.t
index 75f5329..d89ee00 100644 (file)
--- a/t/005no_tabs.t
+++ b/t/005no_tabs.t
@@ -47,7 +47,9 @@ foreach my $file (@testitems) {
     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);
 }