Update Test-Harness to CPAN version 3.31
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 7 Jun 2014 22:08:32 +0000 (23:08 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 7 Jun 2014 22:08:32 +0000 (23:08 +0100)
  [DELTA]

3.31    2014-06-07
        - Implement external rulesfile for TAP::Harness (David Golden)
        - Add harness_class argument to TAP::Harness::Env (Leon Timmermans)
        - Make prove respect environmental variables #28 (Leon Timmermans)

52 files changed:
MANIFEST
Porting/Maintainers.pl
cpan/Test-Harness/lib/App/Prove.pm
cpan/Test-Harness/lib/App/Prove/State.pm
cpan/Test-Harness/lib/App/Prove/State/Result.pm
cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm
cpan/Test-Harness/lib/TAP/Base.pm
cpan/Test-Harness/lib/TAP/Formatter/Base.pm
cpan/Test-Harness/lib/TAP/Formatter/Color.pm
cpan/Test-Harness/lib/TAP/Formatter/Console.pm
cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm
cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm
cpan/Test-Harness/lib/TAP/Formatter/File.pm
cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm
cpan/Test-Harness/lib/TAP/Formatter/Session.pm
cpan/Test-Harness/lib/TAP/Harness.pm
cpan/Test-Harness/lib/TAP/Harness/Env.pm
cpan/Test-Harness/lib/TAP/Object.pm
cpan/Test-Harness/lib/TAP/Parser.pm
cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm
cpan/Test-Harness/lib/TAP/Parser/Grammar.pm
cpan/Test-Harness/lib/TAP/Parser/Iterator.pm
cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm
cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm
cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm
cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm
cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm
cpan/Test-Harness/lib/TAP/Parser/Result.pm
cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm
cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm
cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm
cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm
cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm
cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm
cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm
cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm
cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm
cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm
cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm
cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm
cpan/Test-Harness/lib/TAP/Parser/Source.pm
cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm
cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm
cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm
cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm
cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm
cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm
cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm
cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm
cpan/Test-Harness/lib/Test/Harness.pm
cpan/Test-Harness/t/prove.t
cpan/Test-Harness/t/proveenv.t [deleted file]

index baf405f..2b30273 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2117,7 +2117,6 @@ cpan/Test-Harness/t/parse.t                               Test::Harness test
 cpan/Test-Harness/t/perl5lib.t                         Test::Harness test
 cpan/Test-Harness/t/premature-bailout.t                        Test::Harness test
 cpan/Test-Harness/t/process.t                          Test::Harness test
-cpan/Test-Harness/t/proveenv.t                         Test::Harness test
 cpan/Test-Harness/t/proverc/emptyexec                  Test data for Test::Harness
 cpan/Test-Harness/t/proverc.t                          Test::Harness test
 cpan/Test-Harness/t/proverun.t                         Test::Harness test
index c09e183..7bf165d 100755 (executable)
@@ -1020,7 +1020,7 @@ use File::Glob qw(:case);
     },
 
     'Test::Harness' => {
-        'DISTRIBUTION' => 'LEONT/Test-Harness-3.30.tar.gz',
+        'DISTRIBUTION' => 'LEONT/Test-Harness-3.31.tar.gz',
         'FILES'        => q[cpan/Test-Harness],
         'EXCLUDED'     => [
             qr{^examples/},
index 44aaf6d..802cf93 100644 (file)
@@ -3,7 +3,7 @@ package App::Prove;
 use strict;
 use warnings;
 
-use TAP::Harness;
+use TAP::Harness::Env;
 use Text::ParseWords qw(shellwords);
 use File::Spec;
 use Getopt::Long;
@@ -18,11 +18,11 @@ App::Prove - Implements the C<prove> command.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
@@ -88,7 +88,6 @@ sub _initialize {
     for my $key (@is_array) {
         $self->{$key} = [];
     }
-    $self->{harness_class} = 'TAP::Harness';
 
     for my $attr (@ATTR) {
         if ( exists $args->{$attr} ) {
@@ -98,13 +97,6 @@ sub _initialize {
         }
     }
 
-    my %env_provides_default = (
-        HARNESS_TIMER => 'timer',
-    );
-
-    while ( my ( $env, $attr ) = each %env_provides_default ) {
-        $self->{$attr} = 1 if $ENV{$env};
-    }
     $self->state_class('App::Prove::State');
     return $self;
 }
@@ -386,8 +378,9 @@ sub _get_args {
         }
         $args{rules} = { par => [@rules] };
     }
+    $args{harness_class} = $self->{harness_class} if $self->{harness_class};
 
-    return ( \%args, $self->{harness_class} );
+    return \%args;
 }
 
 sub _find_module {
@@ -533,8 +526,8 @@ sub _get_tests {
 }
 
 sub _runtests {
-    my ( $self, $args, $harness_class, @tests ) = @_;
-    my $harness = $harness_class->new($args);
+    my ( $self, $args, @tests ) = @_;
+    my $harness = TAP::Harness::Env->create($args);
 
     my $state = $self->state_manager;
 
@@ -573,8 +566,6 @@ sub _get_switches {
         push @switches, '-w';
     }
 
-    push @switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} ) if defined $ENV{HARNESS_PERL_SWITCHES};
-
     return @switches ? \@switches : ();
 }
 
index 519ba01..1f05645 100644 (file)
@@ -25,11 +25,11 @@ App::Prove::State - State storage for the C<prove> command.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 8e44ea3..6dbf0eb 100644 (file)
@@ -14,11 +14,11 @@ App::Prove::State::Result - Individual test suite results.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 21f20a1..cb00dbe 100644 (file)
@@ -9,11 +9,11 @@ App::Prove::State::Result::Test - Individual test results.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 02f8b5e..544b00c 100644 (file)
@@ -12,11 +12,11 @@ and L<TAP::Harness>
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 use constant GOT_TIME_HIRES => do {
     eval 'use Time::HiRes qw(time);';
index 1bb357d..21ba260 100644 (file)
@@ -58,11 +58,11 @@ TAP::Formatter::Base - Base class for harness output delegates
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index d22752e..a65d894 100644 (file)
@@ -71,11 +71,11 @@ TAP::Formatter::Color - Run Perl test scripts with color
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 5ac9fa1..92d2c0a 100644 (file)
@@ -11,11 +11,11 @@ TAP::Formatter::Console - Harness output delegate for default console output
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index f9cd7af..2f054bb 100644 (file)
@@ -41,11 +41,11 @@ TAP::Formatter::Console::ParallelSession - Harness output delegate for parallel
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 16ce971..17881e3 100644 (file)
@@ -26,11 +26,11 @@ TAP::Formatter::Console::Session - Harness output delegate for default console o
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 2e72d91..100c909 100644 (file)
@@ -13,11 +13,11 @@ TAP::Formatter::File - Harness output delegate for file output
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 4719f22..22f95be 100644 (file)
@@ -10,11 +10,11 @@ TAP::Formatter::File::Session - Harness output delegate for file output
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 120b495..e8802cb 100644 (file)
@@ -23,11 +23,11 @@ TAP::Formatter::Session - Abstract base class for harness output delegate
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 METHODS
 
index 53d8d18..c66997c 100644 (file)
@@ -16,11 +16,11 @@ TAP::Harness - Run test scripts with statistics
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 $ENV{HARNESS_ACTIVE}  = 1;
 $ENV{HARNESS_VERSION} = $VERSION;
@@ -81,6 +81,7 @@ BEGIN {
         test_args         => sub { shift; shift },
         ignore_exit       => sub { shift; shift },
         rules             => sub { shift; shift },
+        rulesfile         => sub { shift; shift },
         sources           => sub { shift; shift },
         version           => sub { shift; shift },
         trap              => sub { shift; shift },
@@ -328,8 +329,12 @@ run only one test at a time.
 =item * C<rules>
 
 A reference to a hash of rules that control which tests may be executed in
-parallel. If no rules are declared, all tests are eligible for being run in
-parallel. Here some simple examples. For the full details of the data structure
+parallel. If no rules are declared and L<CPAN::Meta::YAML> is available,
+C<TAP::Harness> attempts to load rules from a YAML file specified by the
+C<rulesfile> parameter. If no rules file exists, the default is for all
+tests to be eligible to be run in parallel.
+
+Here some simple examples. For the full details of the data structure
 and the related glob-style pattern matching, see
 L<TAP::Parser::Scheduler/"Rules data structure">.
 
@@ -338,6 +343,10 @@ L<TAP::Parser::Scheduler/"Rules data structure">.
         par => 't/p*.t'
     });
 
+    # Equivalent YAML file
+    ---
+    par: t/p*.t
+
     # Run all tests in parallel, except those starting with "p"
     $harness->rules({
         seq => [
@@ -346,6 +355,12 @@ L<TAP::Parser::Scheduler/"Rules data structure">.
                ],
     });
 
+    # Equivalent YAML file
+    ---
+    seq:
+        - seq: t/p*.t
+        - par: **
+
     # Run some  startup tests in sequence, then some parallel tests than some
     # teardown tests in sequence.
     $harness->rules({
@@ -357,8 +372,25 @@ L<TAP::Parser::Scheduler/"Rules data structure">.
 
     });
 
+    # Equivalent YAML file
+    ---
+    seq:
+        - seq: t/startup/*.t
+        - par:
+            - t/a/*.t
+            - t/b/*.t
+            - t/c/*.t
+        - seq: t/shutdown/*.t
+
 This is an experimental feature and the interface may change.
 
+=item * C<rulesfiles>
+
+This specifies where to find a YAML file of test scheduling rules.  If not
+provided, it looks for a default file to use.  It first checks for a file given
+in the C<HARNESS_RULESFILE> environment variable, then it checks for
+F<testrules.yml> and then F<t/testrules.yml>.
+
 =item * C<stdout>
 
 A filehandle for catching standard output.
@@ -415,6 +447,10 @@ Any keys for which the value is C<undef> will be ignored.
 
         $self->jobs(1) unless defined $self->jobs;
 
+        if ( ! defined $self->rules ) {
+            $self->_maybe_load_rulesfile;
+        }
+
         local $default_class{formatter_class} = 'TAP::Formatter::File'
           unless -t ( $arg_for{stdout} || \*STDOUT ) && !$ENV{HARNESS_NOTTY};
 
@@ -445,6 +481,29 @@ Any keys for which the value is C<undef> will be ignored.
 
         return $self;
     }
+
+    sub _maybe_load_rulesfile {
+        my ($self) = @_;
+
+        my ($rulesfile) =   defined $self->rulesfile ? $self->rulesfile :
+                            defined($ENV{HARNESS_RULESFILE}) ? $ENV{HARNESS_RULESFILE} :
+                            grep { -r } qw(./testrules.yml t/testrules.yml);
+
+        if ( defined $rulesfile && -r $rulesfile ) {
+            if ( ! eval { require CPAN::Meta::YAML; 1} ) {
+               warn "CPAN::Meta::YAML required to process $rulesfile" ;
+               return;
+            }
+            my $layer = $] lt "5.008" ? "" : ":encoding(UTF-8)";
+            open my $fh, "<$layer", $rulesfile
+                or die "Couldn't open $rulesfile: $!";
+            my $yaml_text = do { local $/; <$fh> };
+            my $yaml = CPAN::Meta::YAML->read_string($yaml_text)
+                or die CPAN::Meta::YAML->errstr;
+            $self->rules( $yaml->[0] );
+        }
+        return;
+    }
 }
 
 ##############################################################################
index 1a9d719..6a45c0b 100644 (file)
@@ -7,7 +7,7 @@ use constant IS_VMS => ( $^O eq 'VMS' );
 use TAP::Object;
 use Text::ParseWords qw/shellwords/;
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 # Get the parts of @INC which are changed from the stock list AND
 # preserve reordering of stock directories.
@@ -91,7 +91,7 @@ sub create {
         ignore_exit => $ENV{HARNESS_IGNORE_EXIT} || 0,
     );
 
-    my $class = $ENV{HARNESS_SUBCLASS} || 'TAP::Harness';
+    my $class = $input{harness_class} || $ENV{HARNESS_SUBCLASS} || 'TAP::Harness';
     if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) {
         for my $opt ( split /:/, $env_opt ) {
             if ( $opt =~ /^j(\d*)$/ ) {
@@ -126,7 +126,7 @@ TAP::Harness::Env - Parsing harness related environmental variables where approp
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =head1 SYNOPSIS
 
index 21c53dc..007b309 100644 (file)
@@ -9,11 +9,11 @@ TAP::Object - Base class that provides common functionality to all C<TAP::*> mod
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 1ebb0db..359d4df 100644 (file)
@@ -27,11 +27,11 @@ TAP::Parser - Parse L<TAP|Test::Harness::TAP> output
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 my $DEFAULT_TAP_VERSION = 12;
 my $MAX_TAP_VERSION     = 13;
index ee4befd..ff04525 100644 (file)
@@ -12,11 +12,11 @@ TAP::Parser::Aggregator - Aggregate TAP::Parser results
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index fe1b9ad..dbced37 100644 (file)
@@ -14,11 +14,11 @@ TAP::Parser::Grammar - A grammar for the Test Anything Protocol.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 886f5f4..8ab38c5 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Iterator - Base class for TAP source iterators
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 929b100..5a6ebec 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Iterator::Array - Iterator for array-based TAP sources
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index aaf6b6c..3097a35 100644 (file)
@@ -16,11 +16,11 @@ TAP::Parser::Iterator::Process - Iterator for process-based TAP sources
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 9181fc7..cf15ff7 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Iterator::Stream - Iterator for filehandle-based TAP sources
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 8b75724..ca3ee17 100644 (file)
@@ -16,11 +16,11 @@ TAP::Parser::IteratorFactory - Figures out which SourceHandler objects to use fo
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 65cd46d..8d67875 100644 (file)
@@ -17,11 +17,11 @@ TAP::Parser::Multiplexer - Multiplex multiple TAP::Parsers
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index eaad1d2..1b2fce1 100644 (file)
@@ -24,11 +24,11 @@ TAP::Parser::Result - Base class for TAP::Parser output objects
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 2ae35d6..f7671fe 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Result::Bailout - Bailout result token.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index d69ec51..560c24d 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Result::Comment - Comment result token.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index d85243c..e1b1cf1 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Result::Plan - Plan result token.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 1479e88..c50f51d 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Result::Pragma - TAP pragma token.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 749f26c..35d13ff 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Result::Test - Test result token.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 3e1a611..240c90d 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Result::Unknown - Unknown result token.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 8b08e33..de5f0a5 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Result::Version - TAP syntax version token.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index a6f86e3..832a7f1 100644 (file)
@@ -11,11 +11,11 @@ TAP::Parser::Result::YAML - YAML result token.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 DESCRIPTION
 
index 65d31d2..73b06fb 100644 (file)
@@ -29,11 +29,11 @@ TAP::Parser::ResultFactory - Factory for creating TAP::Parser output objects
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head2 DESCRIPTION
 
index 7c5cedf..82e1d5b 100644 (file)
@@ -13,11 +13,11 @@ TAP::Parser::Scheduler - Schedule tests during parallel testing
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 6375a7b..ebc894c 100644 (file)
@@ -10,11 +10,11 @@ TAP::Parser::Scheduler::Job - A single testing job.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index f590ea5..c74acf7 100644 (file)
@@ -10,11 +10,11 @@ TAP::Parser::Scheduler::Spinner - A no-op job.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 0e2da09..d00b1c5 100644 (file)
@@ -14,11 +14,11 @@ TAP::Parser::Source - a TAP source & meta data about it
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index dc257e0..5a9e704 100644 (file)
@@ -12,11 +12,11 @@ TAP::Parser::SourceHandler - Base class for different TAP source handlers
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 5522625..2c1316f 100644 (file)
@@ -16,11 +16,11 @@ TAP::Parser::SourceHandler::Executable - Stream output from an executable TAP so
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index b48660f..73a58bb 100644 (file)
@@ -16,11 +16,11 @@ TAP::Parser::SourceHandler::File - Stream TAP from a text file.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 944fb2a..4fb35ef 100644 (file)
@@ -16,11 +16,11 @@ TAP::Parser::SourceHandler::Handle - Stream TAP from an IO::Handle or a GLOB.
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 1a1867b..6ab0859 100644 (file)
@@ -21,11 +21,11 @@ TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 627a1e1..c4c5332 100644 (file)
@@ -16,11 +16,11 @@ TAP::Parser::SourceHandler::RawTAP - Stream output from raw TAP in a scalar/arra
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 =head1 SYNOPSIS
 
index 8a61a4b..ca402c1 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 
 use base 'TAP::Object';
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 # TODO:
 #   Handle blessed object syntax
@@ -269,7 +269,7 @@ TAP::Parser::YAMLish::Reader - Read YAMLish data from iterator
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =head1 SYNOPSIS
 
index 811c190..f220572 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 
 use base 'TAP::Object';
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 my $ESCAPE_CHAR = qr{ [ \x00-\x1f \" ] }x;
 my $ESCAPE_KEY  = qr{ (?: ^\W ) | $ESCAPE_CHAR }x;
@@ -146,7 +146,7 @@ TAP::Parser::YAMLish::Writer - Write YAMLish data
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =head1 SYNOPSIS
 
index aa54574..e80cf09 100644 (file)
@@ -31,11 +31,11 @@ Test::Harness - Run Perl standard test scripts with statistics
 
 =head1 VERSION
 
-Version 3.30
+Version 3.31
 
 =cut
 
-our $VERSION = '3.30';
+our $VERSION = '3.31';
 
 # Backwards compatibility for exportable variable names.
 *verbose  = *Verbose;
index 327fe85..75718f6 100644 (file)
@@ -174,7 +174,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -193,7 +192,6 @@ BEGIN {    # START PLAN
         #     runlog => [
         #         [   {   archive => 1,
         #             },
-        #             'TAP::Harness',
         #             'one', 'two',
         #             'three'
         #         ]
@@ -209,7 +207,6 @@ BEGIN {    # START PLAN
             runlog => [
                 [   '_runtests',
                     { verbosity => 0, show_count => 1 },
-                    'TAP::Harness',
                     'one', 'two',
                     'three'
                 ]
@@ -229,7 +226,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -249,7 +245,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -269,7 +264,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -288,7 +282,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -307,7 +300,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -327,7 +319,6 @@ BEGIN {    # START PLAN
                         verbosity       => 0,
                         show_count      => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -347,7 +338,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -366,7 +356,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -385,7 +374,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -404,7 +392,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -422,7 +409,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => -1,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -440,7 +426,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => -2,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -458,7 +443,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -476,7 +460,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'three', 'two', 'one'
                 ]
             ],
@@ -495,7 +478,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'xxxone', 'xxxtwo',
                     'xxxthree'
                 ]
@@ -515,7 +497,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -534,7 +515,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -552,7 +532,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 1,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -571,7 +550,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -590,7 +568,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     'one', 'two', 'three'
                 ]
             ],
@@ -610,7 +587,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 1,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -629,7 +605,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 1,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -647,7 +622,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -665,7 +639,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -683,7 +656,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -701,7 +673,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -719,7 +690,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -737,7 +707,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -754,7 +723,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     "xxx$dummy_test"
                 ]
             ],
@@ -771,7 +739,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     "xxx$dummy_test"
                 ]
             ],
@@ -789,7 +756,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -806,7 +772,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -823,7 +788,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -840,7 +804,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     reverse @dummy_tests
                 ]
             ],
@@ -860,7 +823,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -880,7 +842,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -897,7 +858,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => -1,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -914,7 +874,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => -1,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -931,7 +890,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => -2,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -948,7 +906,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => -2,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -966,7 +923,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -984,7 +940,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1002,7 +957,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1022,7 +976,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1041,7 +994,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1060,7 +1012,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1079,7 +1030,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1094,7 +1044,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                 ]
             ],
         },
@@ -1108,7 +1057,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                 ]
             ],
         },
@@ -1130,7 +1078,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1178,7 +1125,6 @@ BEGIN {    # START PLAN
                         verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1204,7 +1150,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1233,7 +1178,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1258,7 +1202,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1299,7 +1242,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1324,7 +1266,6 @@ BEGIN {    # START PLAN
                     {   verbosity  => 0,
                         show_count => 1,
                     },
-                    'TAP::Harness',
                     $dummy_test
                 ]
             ],
@@ -1341,7 +1282,6 @@ BEGIN {    # START PLAN
         #     runlog   => [
         #         [   '_runtests',
         #             {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1355,7 +1295,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1368,7 +1307,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1382,7 +1320,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1396,7 +1333,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1410,7 +1346,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1424,7 +1359,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1438,7 +1372,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1468,7 +1401,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1482,7 +1414,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1496,7 +1427,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1510,7 +1440,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
@@ -1524,7 +1453,6 @@ BEGIN {    # START PLAN
         #     expect   => {},
         #     runlog   => [
         #         [   {},
-        #             'TAP::Harness',
         #             $dummy_test
         #         ]
         #     ],
diff --git a/cpan/Test-Harness/t/proveenv.t b/cpan/Test-Harness/t/proveenv.t
deleted file mode 100644 (file)
index 1af22a0..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-#!perl
-use strict;
-use warnings;
-use lib 't/lib';
-use Test::More tests => 2;
-use App::Prove;
-
-{
-    local $ENV{HARNESS_TIMER} = 0;
-    my $prv = App::Prove->new;
-    ok !$prv->timer, 'timer set via HARNESS_TIMER';
-}
-
-{
-    local $ENV{HARNESS_TIMER} = 1;
-    my $prv = App::Prove->new;
-    ok $prv->timer, 'timer set via HARNESS_TIMER';
-}