From: Karl Williamson <khw@cpan.org>
Date: Wed, 22 Mar 2017 03:52:33 +0000 (-0600)
Subject: t/harness: Run APItests in parallel
X-Git-Tag: v5.27.1~174
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/7d24ce13858cd4a442f7b74228dfbbe808147063?ds=sidebyside

t/harness: Run APItests in parallel

This commit changes these tests to be run like the tests in t/lib, in
parallel with each other, when available.  This is the longest running
directory, and prior to this commit, on many-core systems it can be the
final thing chugging along, a test at-a-time, while the other cores are
idle.
---

diff --git a/t/harness b/t/harness
index 0ff4d85..3fc3ae08 100644
--- a/t/harness
+++ b/t/harness
@@ -163,7 +163,9 @@ if (@ARGV) {
 		s,\\,/,g; # canonicalize path
 	    };
 	    # Treat every file matching lib/*.t as a "directory"
-	    m!\A(\.\./lib/[^/]+\.t\z|.*[/])! or die "'$_'";
+	    m! \A ( \.\. / (?: lib | ext/XS-APItest/t )
+                         / [^/]+ \.t \z | .* [/] ) !x
+                or die "'$_'";
 	    push @{$dir{$1}}, $_;
 	    $total_time{$1} += $times{$_} || 0;
 	}