From 9909696e2940d138d39e35df8822b6d0bf7bd95b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Thu, 4 Aug 2016 13:29:22 +0200 Subject: [PATCH] =?utf8?q?Tests:=20ic.pl=20nicht=20mehr=20vom=20html-tag?= =?utf8?q?=20counter=20ausschlie=C3=9Fen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Nachdem top100 rausgeflogen ist, ist das mit 13 tags sogar noch gut im Mittelfeld der Sünder. --- t/002goodperl.t | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/t/002goodperl.t b/t/002goodperl.t index 1f3a611d8..951790115 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -109,7 +109,6 @@ foreach my $file (@testitems) { # the estimate whether a file is dirty or not is still pretty helpful, as it will catch most of the closing tags. # if you are in doubt about a specific file, you still have to check it manually. my $tags = qr/b|i|u|h[1-6]|a href.*|input|form|br|textarea|table|tr|td|th|body|head|html|p|button|select|option|script/; -my $todo_files_re = qr{^bin/mozilla/ic\.pl$}; foreach my $file (@testitems) { my $found_html_count = 0; my $found_html = ''; @@ -135,13 +134,7 @@ foreach my $file (@testitems) { ok(0,"$file contains at least $found_html_count html tags."); } } else { - if ($file =~ $todo_files_re) { - TODO: { local $TODO = q(This file is known to have lots of old cruft.); - ok(0,"$file contains at least $found_html_count html tags."); - } - } else { - ok(0,"$file contains at least $found_html_count html tags."); - } + ok(0,"$file contains at least $found_html_count html tags."); } } -- 2.20.1