diff options
author | Karl Berry <karl@freefriends.org> | 2014-04-23 21:46:20 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-04-23 21:46:20 +0000 |
commit | 300c1eb6d37d46078d448d6d58938d5a80cd68ff (patch) | |
tree | 23a0a8b9f8f5460b405119c4d3c163d2d488ca5e /Master/tlpkg/tlperl/lib/Test | |
parent | ed55d86b7c5e18f6eccce80a1fb1423ca40a23b5 (diff) |
(tl)perl 5.18.2 for windows from siep
git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Harness.pm | 28 |
1 files changed, 24 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test/Harness.pm b/Master/tlpkg/tlperl/lib/Test/Harness.pm index 53bc92a741c..fe11d1432ad 100644 --- a/Master/tlpkg/tlperl/lib/Test/Harness.pm +++ b/Master/tlpkg/tlperl/lib/Test/Harness.pm @@ -46,11 +46,11 @@ Test::Harness - Run Perl standard test scripts with statistics =head1 VERSION -Version 3.23 +Version 3.26 =cut -$VERSION = '3.23'; +$VERSION = '3.26'; # Backwards compatibility for exportable variable names. *verbose = *Verbose; @@ -73,7 +73,7 @@ END { $Verbose = $ENV{HARNESS_VERBOSE} || 0; $Debug = $ENV{HARNESS_DEBUG} || 0; -$Switches = '-w'; +$Switches = ''; $Columns = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80; $Columns--; # Some shells have trouble with a full line of text. $Timer = $ENV{HARNESS_TIMER} || 0; @@ -238,6 +238,7 @@ sub _new_harness { $args->{stdout} = $sub_args->{out} if exists $sub_args->{out}; + my $class = $ENV{HARNESS_SUBCLASS} || 'TAP::Harness'; if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) { for my $opt ( split /:/, $env_opt ) { if ( $opt =~ /^j(\d*)$/ ) { @@ -246,13 +247,22 @@ sub _new_harness { elsif ( $opt eq 'c' ) { $args->{color} = 1; } + elsif ( $opt =~ m/^f(.*)$/ ) { + my $fmt = $1; + $fmt =~ s/-/::/g; + $args->{formatter_class} = $fmt; + } + elsif ( $opt =~ m/^a(.*)$/ ) { + my $archive = $1; + $class = "TAP::Harness::Archive"; + $args->{archive} = $archive; + } else { die "Unknown HARNESS_OPTIONS item: $opt\n"; } } } - my $class = $ENV{HARNESS_SUBCLASS} || 'TAP::Harness'; return TAP::Harness->_construct( $class, $args ); } @@ -535,6 +545,16 @@ Run <n> (default 9) parallel jobs. Try to color output. See L<TAP::Formatter::Base/"new">. +=item C<< a<file.tgz> >> + +Will use L<TAP::Harness::Archive> as the harness class, and save the TAP to +C<file.tgz> + +=item C<< fPackage-With-Dashes >> + +Set the formatter_class of the harness being run. Since the C<HARNESS_OPTIONS> +is seperated by C<:>, we use C<-> instead. + =back Multiple options may be separated by colons: |