This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Everything in t/ can now run in parallel.
authorNicholas Clark <nick@ccl4.org>
Fri, 8 Aug 2008 10:15:33 +0000 (10:15 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 8 Aug 2008 10:15:33 +0000 (10:15 +0000)
p4raw-id: //depot/perl@34185

t/harness

index 18f66da..41e895a 100644 (file)
--- 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 => [