From: Moritz Bunkus Date: Fri, 10 Feb 2017 16:11:06 +0000 (+0100) Subject: Tests: t/structure/no_indirect_object_notation.t parallelisiert X-Git-Tag: release-3.5.4~1485 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=388e410dd6c9b800e1d857e5cb1643b2acd73ca5;p=kivitendo-erp.git Tests: t/structure/no_indirect_object_notation.t parallelisiert --- diff --git a/t/structure/no_indirect_object_notation.t b/t/structure/no_indirect_object_notation.t index f0a54d9f6..d3e5fe06d 100644 --- a/t/structure/no_indirect_object_notation.t +++ b/t/structure/no_indirect_object_notation.t @@ -1,7 +1,10 @@ use strict; +use threads; use lib 't'; use Support::Files; +use Sys::CPU; use Test::More; +use Thread::Pool::Simple; if (eval { require PPI; 1 }) { plan tests => scalar(@Support::Files::testitems); @@ -11,7 +14,9 @@ if (eval { require PPI; 1 }) { my @testitems = @Support::Files::testitems; -foreach my $file (@testitems) { +sub test_file { + my ($file) = @_; + my $clean = 1; my $source; { @@ -56,3 +61,14 @@ foreach my $file (@testitems) { ok $clean, $file; } + +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;