From f6e8c87bc23cb8b31a554ce89af51d2c3b0a5efd Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 10 Dec 2009 17:04:17 +0100
Subject: [PATCH] TODOs etwas feiner granuliert.

---
 t/002goodperl.t | 6 ++++--
 t/005no_tabs.t  | 2 ++
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/t/002goodperl.t b/t/002goodperl.t
index f081ac719..75a378c1e 100644
--- 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 75f532956..d89ee0042 100644
--- 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);
 }
-- 
2.20.1