From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 8 Aug 2008 10:15:33 +0000 (+0000)
Subject: Everything in t/ can now run in parallel.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67d8fe77dde42ec7ef8beb57080a549b242ef2db;p=p5sagit%2Fp5-mst-13.2.git

Everything in t/ can now run in parallel.

p4raw-id: //depot/perl@34185
---

diff --git a/t/harness b/t/harness
index 18f66da..41e895a 100644
--- a/t/harness
+++ b/t/harness
@@ -55,16 +55,6 @@ sub _populate_hash {
     return map {$_, 1} split /\s+/, $_[0];
 }
 
-sub _glob_and_parallelise {
-    my @dirs;
-    # Run the tests in each of these directories in sequence, but the
-    # directories themselves can be parallelised.
-    foreach (@_) {
-	push @dirs, { seq => "$_/*.t" };
-    }
-    { par =>  \@dirs };
-}
-
 # Generate T::H schedule rules that run the contents of each directory
 # sequentially.
 sub _seq_dir_rules {
@@ -136,8 +126,7 @@ if (@ARGV) {
 	my @seq;
 	push @seq, <base/*.t>;
 
-	push @seq, _glob_and_parallelise qw(comp cmd run io);
-	my @next = qw(op uni mro lib);
+	my @next = qw(comp cmd run io op uni mro lib);
 	push @next, 'japh' if $torture;
 	push @next, 'win32' if $^O eq 'MSWin32';
 	push @seq, { par => [