Change 34185 by [EMAIL PROTECTED] on 2008/08/08 10:15:33
Everything in t/ can now run in parallel.
Affected files ...
... //depot/perl/t/harness#50 edit
Differences ...
==== //depot/perl/t/harness#50 (text) ====
Index: perl/t/harness
--- perl/t/harness#49~34181~ 2008-08-07 03:36:32.000000000 -0700
+++ perl/t/harness 2008-08-08 03:15:33.000000000 -0700
@@ -55,16 +55,6 @@
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 => [EMAIL PROTECTED] };
-}
-
# Generate T::H schedule rules that run the contents of each directory
# sequentially.
sub _seq_dir_rules {
@@ -136,8 +126,7 @@
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 => [
End of Patch.
