Separates files in batches. Should help with #1951

Author: JJ

t/02-pod-valid.t

@@ -15,32 +15,37 @@ Ensure any text that isn't a code example has valid POD6
 
 my $max-jobs = %*ENV<TEST_THREADS> // 2;
 
-my @files = Test-Files.files.grep({$_.ends-with: '.pod6'|'.t'});
-
-plan +@files;
+my @files-pod = Test-Files.files.grep({$_.ends-with: '.pod6'});
+my @files-t = Test-Files.files.grep({$_.ends-with: '.t'});
+plan +@files-t + +@files-pod;
 
 my %data;
+test-files( @files-pod );
+test-files( @files-t );
 
 sub test-it($job) {
     my $file = $job.command[*-1];
     ok !$job.exitcode && !%data{$file}, "$file has clean POD6"
 }
 
-my @jobs;
-%data{@files} = 0 xx @files;
-for @files -> $file {
-    my $p =  Proc::Async.new($*EXECUTABLE-NAME, '--doc', $file);
-    $p.stdout.tap: {;};
-    $p.stderr.tap: {
-        %*ENV<P6_DOC_TEST_VERBOSE> and diag "$file STDERR: $_";
-        %data{$file} = 1;
-    }
-    push @jobs: $p.start;
-    if +@jobs > $max-jobs {
-        test-it(await @jobs.shift);
+sub test-files( @files ) {
+    my @jobs;
+    %data{@files} = 0 xx @files;
+    for @files -> $file {
+        my $p =  Proc::Async.new($*EXECUTABLE-NAME, '--doc', $file);
+        $p.stdout.tap: {;};
+        $p.stderr.tap: {
+            %*ENV<P6_DOC_TEST_VERBOSE> and diag "$file STDERR: $_";
+            %data{$file} = 1;
+        }
+        push @jobs: $p.start;
+        if +@jobs > $max-jobs {
+            test-it(await @jobs.shift);
+        }
     }
+
+    for @jobs.map: {await $_} -> $r { test-it($r) }
 }
 
-for @jobs.map: {await $_} -> $r { test-it($r) }
 
 # vim: expandtab shiftwidth=4 ft=perl6