TODOs etwas feiner granuliert.

diff --git a/t/002goodperl.t b/t/002goodperl.t
index f081ac719e4ba34277ef33eed9dff0604ae93ad1..75a378c1e85eed5b4a89bab93a9cee7caeb9e4e3 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");
     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.");
       }
         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 75f532956211f26c9c2dd85dfd45121cbad733d3..d89ee004286b7d7c2d784fe3725aa3eb54815e02 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 {
     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");
         ok(1, "$file has no tabs");

+      }

     }
     close (FILE);
 }
     }
     close (FILE);
 }