r13021 - in /branches/upstream/libtest-harness-perl/current: ./ lib/App/ lib/App/Prove/ lib/TAP/ lib/TAP/Formatter/ lib/TAP/Formatter/Console/ lib/TAP/Parser/ lib/TAP/Parser/Iterator/ lib/TAP/Parser/Result/ lib/TAP/Parser/Source/ lib/TAP/Parser/YAMLish/ lib/Test/

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Fri Jan 18 22:59:44 UTC 2008


Author: gregoa-guest
Date: Fri Jan 18 22:59:44 2008
New Revision: 13021

URL: http://svn.debian.org/wsvn/?sc=1&rev=13021
Log:
[svn-upgrade] Integrating new upstream version, libtest-harness-perl (3.07)

Modified:
    branches/upstream/libtest-harness-perl/current/Changes
    branches/upstream/libtest-harness-perl/current/META.yml
    branches/upstream/libtest-harness-perl/current/lib/App/Prove.pm
    branches/upstream/libtest-harness-perl/current/lib/App/Prove/State.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Base.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Color.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/ParallelSession.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/Session.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Harness.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Aggregator.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Grammar.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Array.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Process.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Stream.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Multiplexer.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Bailout.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Comment.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Plan.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Test.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Unknown.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Version.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/YAML.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source/Perl.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Reader.pm
    branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Writer.pm
    branches/upstream/libtest-harness-perl/current/lib/Test/Harness.pm

Modified: branches/upstream/libtest-harness-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/Changes?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/Changes (original)
+++ branches/upstream/libtest-harness-perl/current/Changes Fri Jan 18 22:59:44 2008
@@ -1,4 +1,8 @@
 Revision history for Test-Harness
+
+3.07	2008-01-13
+        - prove now supports HARNESS_PERL_SWITCHES.
+        - restored TEST_VERBOSE to prove.
 
 3.06    2008-01-01
         - Skip t/unicode.t if PERL_UNICODE set. Fixes #31731.

Modified: branches/upstream/libtest-harness-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/META.yml?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/META.yml (original)
+++ branches/upstream/libtest-harness-perl/current/META.yml Fri Jan 18 22:59:44 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Test-Harness
-version:             3.06
+version:             3.07
 abstract:            ~
 license:             perl
 author:              ~

Modified: branches/upstream/libtest-harness-perl/current/lib/App/Prove.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/App/Prove.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/App/Prove.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/App/Prove.pm Fri Jan 18 22:59:44 2008
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 
@@ -190,6 +190,7 @@
             'b|blib'      => \$self->{blib},
             's|shuffle'   => \$self->{shuffle},
             'color!'      => \$self->{color},
+            'colour!'     => \$self->{color},
             'c'           => \$self->{color},
             'harness=s'   => \$self->{harness},
             'formatter=s' => \$self->{formatter},
@@ -407,6 +408,7 @@
 
         $self->_shuffle(@tests) if $self->shuffle;
         @tests = reverse @tests if $self->backwards;
+        local $ENV{TEST_VERBOSE} = 1 if $self->verbose;
 
         $self->_runtests( $self->_get_args, @tests );
     }
@@ -449,6 +451,10 @@
         push @switches, '-w';
     }
 
+    if ( defined( my $hps = $ENV{HARNESS_PERL_SWITCHES} ) ) {
+        push @switches, $hps;
+    }
+
     return @switches ? \@switches : ();
 }
 

Modified: branches/upstream/libtest-harness-perl/current/lib/App/Prove/State.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/App/Prove/State.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/App/Prove/State.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/App/Prove/State.pm Fri Jan 18 22:59:44 2008
@@ -20,11 +20,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Base.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Base.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Base.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Base.pm Fri Jan 18 22:59:44 2008
@@ -9,11 +9,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 my $GOT_TIME_HIRES;
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Color.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Color.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Color.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Color.pm Fri Jan 18 22:59:44 2008
@@ -70,11 +70,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console.pm Fri Jan 18 22:59:44 2008
@@ -52,11 +52,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/ParallelSession.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/ParallelSession.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/ParallelSession.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/ParallelSession.pm Fri Jan 18 22:59:44 2008
@@ -48,11 +48,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/Session.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/Session.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/Session.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Formatter/Console/Session.pm Fri Jan 18 22:59:44 2008
@@ -36,11 +36,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Harness.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Harness.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Harness.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Harness.pm Fri Jan 18 22:59:44 2008
@@ -22,11 +22,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 $ENV{HARNESS_ACTIVE}  = 1;
 $ENV{HARNESS_VERSION} = $VERSION;

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser.pm Fri Jan 18 22:59:44 2008
@@ -19,11 +19,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 my $DEFAULT_TAP_VERSION = 12;
 my $MAX_TAP_VERSION     = 13;

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Aggregator.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Aggregator.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Aggregator.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Aggregator.pm Fri Jan 18 22:59:44 2008
@@ -10,11 +10,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Grammar.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Grammar.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Grammar.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Grammar.pm Fri Jan 18 22:59:44 2008
@@ -12,11 +12,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator.pm Fri Jan 18 22:59:44 2008
@@ -13,11 +13,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Array.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Array.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Array.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Array.pm Fri Jan 18 22:59:44 2008
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Process.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Process.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Process.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Process.pm Fri Jan 18 22:59:44 2008
@@ -19,11 +19,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Stream.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Stream.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Stream.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Iterator/Stream.pm Fri Jan 18 22:59:44 2008
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Multiplexer.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Multiplexer.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Multiplexer.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Multiplexer.pm Fri Jan 18 22:59:44 2008
@@ -14,11 +14,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result.pm Fri Jan 18 22:59:44 2008
@@ -27,11 +27,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 =head2 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Bailout.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Bailout.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Bailout.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Bailout.pm Fri Jan 18 22:59:44 2008
@@ -12,11 +12,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Comment.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Comment.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Comment.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Comment.pm Fri Jan 18 22:59:44 2008
@@ -12,11 +12,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Plan.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Plan.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Plan.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Plan.pm Fri Jan 18 22:59:44 2008
@@ -12,11 +12,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Test.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Test.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Test.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Test.pm Fri Jan 18 22:59:44 2008
@@ -14,11 +14,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Unknown.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Unknown.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Unknown.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Unknown.pm Fri Jan 18 22:59:44 2008
@@ -14,11 +14,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Version.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Version.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Version.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/Version.pm Fri Jan 18 22:59:44 2008
@@ -12,11 +12,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/YAML.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/YAML.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/YAML.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Result/YAML.pm Fri Jan 18 22:59:44 2008
@@ -12,11 +12,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source.pm Fri Jan 18 22:59:44 2008
@@ -14,11 +14,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source/Perl.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source/Perl.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source/Perl.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/Source/Perl.pm Fri Jan 18 22:59:44 2008
@@ -16,11 +16,11 @@
 
 =head1 VERSION
 
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Reader.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Reader.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Reader.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Reader.pm Fri Jan 18 22:59:44 2008
@@ -4,7 +4,7 @@
 
 use vars qw{$VERSION};
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 # TODO:
 #   Handle blessed object syntax
@@ -277,7 +277,7 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Writer.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Writer.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Writer.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/TAP/Parser/YAMLish/Writer.pm Fri Jan 18 22:59:44 2008
@@ -4,7 +4,7 @@
 
 use vars qw{$VERSION};
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 my $ESCAPE_CHAR = qr{ [ \x00-\x1f \" ] }x;
 
@@ -147,7 +147,7 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libtest-harness-perl/current/lib/Test/Harness.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-harness-perl/current/lib/Test/Harness.pm?rev=13021&op=diff
==============================================================================
--- branches/upstream/libtest-harness-perl/current/lib/Test/Harness.pm (original)
+++ branches/upstream/libtest-harness-perl/current/lib/Test/Harness.pm Fri Jan 18 22:59:44 2008
@@ -21,6 +21,7 @@
   $Verbose $Switches $Debug
   $verbose $switches $debug
   $Columns
+  $Color
   $Directives
   $Timer
   $Strap
@@ -40,11 +41,11 @@
 
 =head1 VERSION
 
-Version 3.06
+Version 3.07
 
 =cut
 
-$VERSION = '3.06';
+$VERSION = '3.07';
 
 # Backwards compatibility for exportable variable names.
 *verbose  = *Verbose;
@@ -71,6 +72,7 @@
 $Columns = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
 $Columns--;    # Some shells have trouble with a full line of text.
 $Timer = $ENV{HARNESS_TIMER} || 0;
+$Color = $ENV{HARNESS_COLOR} || 0;
 
 =head1 SYNOPSIS
 
@@ -237,12 +239,16 @@
     # Do things the old way on VMS...
     push @lib, _filtered_inc() if IS_VMS;
 
+    # If $Verbose isn't numeric default to 1. This helps core.
+    my $verbosity = ( $Verbose ? ( $Verbose !~ /\d/ ) ? 1 : $Verbose : 0 );
+
     my $args = {
         timer      => $Timer,
         directives => $Directives,
         lib        => \@lib,
         switches   => \@switches,
-        verbosity  => $Verbose,
+        color      => $Color,
+        verbosity  => $verbosity,
     };
 
     if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) {
@@ -252,6 +258,9 @@
             }
             elsif ( $opt eq 'f' ) {
                 $args->{fork} = 1;
+            }
+            elsif ( $opt eq 'c' ) {
+                $args->{color} = 1;
             }
             else {
                 die "Unknown HARNESS_OPTIONS item: $opt\n";




More information about the Pkg-perl-cvs-commits mailing list