X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1d91e75c53e7da5bf2c1b334f5aeecf241dc5ec4..fce441db:/t/002goodperl.t

diff --git a/t/002goodperl.t b/t/002goodperl.t
index 3196d0057..cc3971372 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -32,7 +32,7 @@ use lib 't';
 
 use Support::Files;
 
-use Test::More tests => (scalar(@Support::Files::testitems) * 3);
+use Test::More tests => scalar @Support::Files::testitems * 2;
 
 my @testitems = @Support::Files::testitems; # get the files to test.
 
@@ -70,7 +70,10 @@ foreach my $file (@testitems) {
             if ($file_line1 =~ m#\s-$flags#) {
                 ok(1,"$file uses standard perl location and -$flags");
             } else {
+              TODO: {
+                local $TODO = q(warning isn't supported globally);
                 ok(0,"$file is MISSING -$flags --WARNING");
+              }
             }
         } else {
             ok(0,"$file uses non-standard perl location");
@@ -100,30 +103,4 @@ foreach my $file (@testitems) {
     }
 }
 
-# Check to see that all error messages use tags (for l10n reasons.)
-foreach my $file (@testitems) {
-    $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
-    next if (!$file); # skip null entries
-    if (! open (FILE, $file)) {
-        ok(0,"could not open $file --WARNING");
-        next;
-    }
-    my $lineno = 0;
-    my $error = 0;
-
-    while (!$error && (my $file_line = <FILE>)) {
-        $lineno++;
-        if ($file_line =~ /Throw.*Error\("(.*?)"/) {
-            if ($1 =~ /\s/) {
-                ok(0,"$file has a Throw*Error call on line $lineno which doesn't use a tag --ERROR");
-                $error = 1;
-            }
-        }
-    }
-
-    ok(1,"$file uses Throw*Error calls correctly") if !$error;
-
-    close(FILE);
-}
-
 exit 0;