Revision e9325e12
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| t/002goodperl.t | ||
|---|---|---|
| 70 | 70 |
if ($file_line1 =~ m#\s-$flags#) {
|
| 71 | 71 |
ok(1,"$file uses standard perl location and -$flags"); |
| 72 | 72 |
} else {
|
| 73 |
TODO: {
|
|
| 74 |
local $TODO = q(warning isn't supported globally); |
|
| 73 | 75 |
ok(0,"$file is MISSING -$flags --WARNING"); |
| 76 |
} |
|
| 74 | 77 |
} |
| 75 | 78 |
} else {
|
| 76 | 79 |
ok(0,"$file uses non-standard perl location"); |
| ... | ... | |
| 78 | 81 |
} |
| 79 | 82 |
} |
| 80 | 83 |
|
| 81 |
TODO: {
|
|
| 82 |
local $TODO = 'strict is not implemented thoroughly yet'; |
|
| 83 | 84 |
foreach my $file (@testitems) {
|
| 84 | 85 |
my $found_use_strict = 0; |
| 85 | 86 |
$file =~ s/\s.*$//; # nuke everything after the first space (#comment) |
| ... | ... | |
| 101 | 102 |
ok(0,"$file DOES NOT use strict --WARNING"); |
| 102 | 103 |
} |
| 103 | 104 |
} |
| 104 |
} |
|
| 105 | 105 |
|
| 106 | 106 |
exit 0; |
Auch abrufbar als: Unified diff
strict auf mandatory gestetzt, warnings auf TODO