[Bps-public-commit] r12266 - in TAP-Harness-Remote: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon May 12 15:07:19 2008
New Revision: 12266

Modified:
   TAP-Harness-Remote/   (props changed)
   TAP-Harness-Remote/lib/TAP/Harness/Remote.pm

Log:
 r31565 at kohr-ah:  chmrr | 2008-05-12 15:07:04 -0400
  * Make "jobs" be per-host, not divided among hosts


Modified: TAP-Harness-Remote/lib/TAP/Harness/Remote.pm
==============================================================================
--- TAP-Harness-Remote/lib/TAP/Harness/Remote.pm	(original)
+++ TAP-Harness-Remote/lib/TAP/Harness/Remote.pm	Mon May 12 15:07:19 2008
@@ -72,9 +72,8 @@
 
 If you farm of remote hosts, you may change the C<host> configuration
 variable to be an array reference of hostnames.  Tests will be
-distributed in a round-robin manner across the hosts.  You should
-ensure that you tell L<TAP::Harness> to run at least as many parallel
-tests as you have hosts, using C<-j>.
+distributed in a round-robin manner across the hosts.  Each host will
+run as many tests in parallel as you specified with C<-j>.
 
 =head1 METHODS
 
@@ -97,6 +96,8 @@
       if $change =~ /^\.\./;
     $ENV{HARNESS_PERL} = $self->remote_config("ssh");
 
+    $self->jobs( $self->jobs * @{$self->remote_config("host")});
+
     $self->callback(before_runtests => sub {$self->rsync(@_)});
     $self->callback(parser_args => sub {$self->change_switches(@_)});
     return $self;