Revision e9325e12
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| t/002goodperl.t | ||
|---|---|---|
|
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");
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
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)
|
||
| ... | ... | |
|
ok(0,"$file DOES NOT use strict --WARNING");
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
exit 0;
|
||
Auch abrufbar als: Unified diff
strict auf mandatory gestetzt, warnings auf TODO