Run t/uni/*.t t/mro/*.t t/lib/*.t fully in parallel.
Nicholas Clark [Thu, 7 Aug 2008 07:45:31 +0000 (07:45 +0000)]
p4raw-id: //depot/perl@34176

t/harness

index d137701..bcf6809 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -137,10 +137,13 @@ if (@ARGV) {
        push @seq, <base/*.t>;
 
        push @seq, _glob_and_parallelise qw(comp cmd run io);
-       my @next = qw(op uni mro lib);
+       my @next = qw(uni mro lib);
        push @next, 'japh' if $torture;
        push @next, 'win32' if $^O eq 'MSWin32';
-       push @seq, _glob_and_parallelise @next;
+       push @seq, { par => [
+                            {seq => [ glob "op/*.t" ]},
+                            map { glob "$_/*.t" } @next
+                           ] };
 
        my @last;
        use Config;