strict auf mandatory gestetzt, warnings auf TODO

[mfinanz.git] / t / 002goodperl.t

diff --git a/t/002goodperl.t b/t/002goodperl.t
index d70ad89fc7078696847c419e469413fc3965ff6b..cc397137293be8fffa63f0ce7bd144944239ef07 100644 (file)
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -70,7 +70,10 @@ foreach my $file (@testitems) {
             if ($file_line1 =~ m#\s-$flags#) {
                 ok(1,"$file uses standard perl location and -$flags");
             } else {
             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");
                 ok(0,"$file is MISSING -$flags --WARNING");

+              }

             }
         } else {
             ok(0,"$file uses non-standard perl location");
             }
         } else {
             ok(0,"$file uses non-standard perl location");


@@ -78,8 +81,6 @@ foreach my $file (@testitems) {
     }
 }
 
     }
 }
 

-TODO: {
-local $TODO = 'strict is not implemented thoroughly yet';

 foreach my $file (@testitems) {
     my $found_use_strict = 0;
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
 foreach my $file (@testitems) {
     my $found_use_strict = 0;
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)


@@ -101,6 +102,5 @@ foreach my $file (@testitems) {
         ok(0,"$file DOES NOT use strict --WARNING");
     }
 }
         ok(0,"$file DOES NOT use strict --WARNING");
     }
 }

-}

 
 exit 0;
 
 exit 0;