Change 34314 by [EMAIL PROTECTED] on 2008/09/07 22:10:58
Subject: [PATCH?] $ENV{TEST_JOBS} vs $ENV{HARNESS_OPTIONS}
From: Bram <[EMAIL PROTECTED]>
Date: Tue, 12 Aug 2008 20:50:47 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/harness#53 edit
Differences ...
==== //depot/perl/t/harness#53 (text) ====
Index: perl/t/harness
--- perl/t/harness#52~34192~ 2008-08-09 13:11:55.000000000 -0700
+++ perl/t/harness 2008-09-07 15:10:58.000000000 -0700
@@ -101,7 +101,23 @@
}
my $jobs = $ENV{TEST_JOBS};
-my ($rules, $state);
+my ($fork, $rules, $state);
+if ($ENV{HARNESS_OPTIONS}) {
+ for my $opt ( split /:/, $ENV{HARNESS_OPTIONS} ) {
+ if ( $opt =~ /^j(\d*)$/ ) {
+ $jobs ||= $1 || 9;
+ }
+ elsif ( $opt eq 'f' ) {
+ $fork = 1;
+ }
+ elsif ( $opt eq 'c' ) {
+# $args->{color} = 1;
+ }
+ else {
+ die "Unknown HARNESS_OPTIONS item: $opt\n";
+ }
+ }
+}
if (@ARGV) {
# If you want these run in speed order, just use prove
@@ -210,7 +226,10 @@
if ($jobs) {
eval 'use TAP::Harness 3.13; 1' or die $@;
- my $h = TAP::Harness->new({ jobs => $jobs, rules => $rules});
+
+ # Test::Harness parses $ENV{HARNESS_OPTIONS}, TAP::Harness does not
+ local $ENV{HARNESS_OPTIONS};
+ my $h = TAP::Harness->new({ jobs => $jobs, rules => $rules, ($fork ? (fork
=> $fork) : ())});
if ($state) {
$h->callback(
after_test => sub {
End of Patch.
