projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'b-3.6.1' of ../kivitendo-erp_20220811
[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
c23c6b4
..
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);
@@
-38,9
+41,10
@@
my @common_errors = ([ '^\s*my\s+%[a-z0-9_]+\s*=\s*shift' ],
[ '\$slef' ],
);
[ '\$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;