projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Volltext-Suche im Auftragsbericht
[kivitendo-erp.git]
/
t
/
structure
/
common_errors.t
diff --git
a/t/structure/common_errors.t
b/t/structure/common_errors.t
old mode 100644
(file)
new mode 100755
(executable)
index
6e73070
..
ab0ff3b
--- a/
t/structure/common_errors.t
+++ b/
t/structure/common_errors.t
@@
-1,8
+1,11
@@
#!/usr/bin/perl
use strict;
#!/usr/bin/perl
use strict;
+use threads;
use lib 't';
use Support::Files;
use lib 't';
use Support::Files;
+use Sys::CPU;
+use Thread::Pool::Simple;
my ($testcount);
my ($testcount);
@@
-32,15
+35,16
@@
my @testitems = @Support::Files::testitems;
my @common_errors = ([ '^\s*my\s+%[a-z0-9_]+\s*=\s*shift' ],
[ '^\s*my\s+\(.*\)\s*=\s*shift' ],
my @common_errors = ([ '^\s*my\s+%[a-z0-9_]+\s*=\s*shift' ],
[ '^\s*my\s+\(.*\)\s*=\s*shift' ],
- [ '^\s*my\s+\$
.*\s
*=\s*@_' ],
+ [ '^\s*my\s+\$
[^=]
*=\s*@_' ],
[ '@[a-z0-9_]+->' ],
[ 'uft8' ],
[ '\$slef' ],
);
[ '@[a-z0-9_]+->' ],
[ 'uft8' ],
[ '\$slef' ],
);
-foreach my $file (@testitems) {
+sub test_file {
+ my ($file) = @_;
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)
-
next if (!$file);
# skip null entries
+
return if (!$file);
# skip null entries
if (open (FILE, $file)) { # open the file for reading
$_->[1] = [] foreach @common_errors;
if (open (FILE, $file)) { # open the file for reading
$_->[1] = [] foreach @common_errors;
@@
-67,5
+71,15
@@
foreach my $file (@testitems) {
}
}
}
}
-exit 0;
+my $pool = Thread::Pool::Simple->new(
+ min => 2,
+ max => Sys::CPU::cpu_count() + 1,
+ do => [ \&test_file ],
+ passid => 0,
+);
+
+$pool->add($_) for @testitems;
+$pool->join;
+
+exit 0;