X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8332f18114bf31468d886c634cfc889647bae8ef..f942a47abc0f2d930bc97002fd0cbefe8df58b83:/t/002goodperl.t

diff --git a/t/002goodperl.t b/t/002goodperl.t
index f081ac719..fa205b17c 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 little amounts of HTML 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.");
     }
 }