projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
06eb04e
)
strict auf mandatory gestetzt, warnings auf TODO
author
Sven Schöling
<s.schoeling@linet-services.de>
Fri, 23 Oct 2009 15:30:57 +0000
(17:30 +0200)
committer
Sven Schöling
<s.schoeling@linet-services.de>
Fri, 23 Oct 2009 15:30:57 +0000
(17:30 +0200)
t/002goodperl.t
patch
|
blob
|
history
diff --git
a/t/002goodperl.t
b/t/002goodperl.t
index
d70ad89
..
cc39713
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;