r13023 - in /trunk/libtest-harness-perl: ./ debian/ 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 23:01:00 UTC 2008
Author: gregoa-guest
Date: Fri Jan 18 23:00:59 2008
New Revision: 13023
URL: http://svn.debian.org/wsvn/?sc=1&rev=13023
Log:
New upstream release.
Modified:
trunk/libtest-harness-perl/Changes
trunk/libtest-harness-perl/META.yml
trunk/libtest-harness-perl/debian/changelog
trunk/libtest-harness-perl/lib/App/Prove.pm
trunk/libtest-harness-perl/lib/App/Prove/State.pm
trunk/libtest-harness-perl/lib/TAP/Base.pm
trunk/libtest-harness-perl/lib/TAP/Formatter/Color.pm
trunk/libtest-harness-perl/lib/TAP/Formatter/Console.pm
trunk/libtest-harness-perl/lib/TAP/Formatter/Console/ParallelSession.pm
trunk/libtest-harness-perl/lib/TAP/Formatter/Console/Session.pm
trunk/libtest-harness-perl/lib/TAP/Harness.pm
trunk/libtest-harness-perl/lib/TAP/Parser.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Aggregator.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Grammar.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Iterator.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Array.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Process.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Stream.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Multiplexer.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Result.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Result/Bailout.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Result/Comment.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Result/Plan.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Result/Test.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Result/Unknown.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Result/Version.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Result/YAML.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Source.pm
trunk/libtest-harness-perl/lib/TAP/Parser/Source/Perl.pm
trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Reader.pm
trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Writer.pm
trunk/libtest-harness-perl/lib/Test/Harness.pm
Modified: trunk/libtest-harness-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/Changes?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/Changes (original)
+++ trunk/libtest-harness-perl/Changes Fri Jan 18 23:00:59 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: trunk/libtest-harness-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/META.yml?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/META.yml (original)
+++ trunk/libtest-harness-perl/META.yml Fri Jan 18 23:00:59 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Test-Harness
-version: 3.06
+version: 3.07
abstract: ~
license: perl
author: ~
Modified: trunk/libtest-harness-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/debian/changelog?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/debian/changelog (original)
+++ trunk/libtest-harness-perl/debian/changelog Fri Jan 18 23:00:59 2008
@@ -1,3 +1,9 @@
+libtest-harness-perl (3.07-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Fri, 18 Jan 2008 23:59:47 +0100
+
libtest-harness-perl (3.06-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libtest-harness-perl/lib/App/Prove.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/App/Prove.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/App/Prove.pm (original)
+++ trunk/libtest-harness-perl/lib/App/Prove.pm Fri Jan 18 23:00:59 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: trunk/libtest-harness-perl/lib/App/Prove/State.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/App/Prove/State.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/App/Prove/State.pm (original)
+++ trunk/libtest-harness-perl/lib/App/Prove/State.pm Fri Jan 18 23:00:59 2008
@@ -20,11 +20,11 @@
=head1 VERSION
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Base.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Base.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Base.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Base.pm Fri Jan 18 23:00:59 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: trunk/libtest-harness-perl/lib/TAP/Formatter/Color.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Formatter/Color.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Formatter/Color.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Formatter/Color.pm Fri Jan 18 23:00:59 2008
@@ -70,11 +70,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Formatter/Console.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Formatter/Console.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Formatter/Console.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Formatter/Console.pm Fri Jan 18 23:00:59 2008
@@ -52,11 +52,11 @@
=head1 VERSION
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Formatter/Console/ParallelSession.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Formatter/Console/ParallelSession.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Formatter/Console/ParallelSession.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Formatter/Console/ParallelSession.pm Fri Jan 18 23:00:59 2008
@@ -48,11 +48,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Formatter/Console/Session.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Formatter/Console/Session.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Formatter/Console/Session.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Formatter/Console/Session.pm Fri Jan 18 23:00:59 2008
@@ -36,11 +36,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Harness.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Harness.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Harness.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Harness.pm Fri Jan 18 23:00:59 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: trunk/libtest-harness-perl/lib/TAP/Parser.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser.pm Fri Jan 18 23:00:59 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: trunk/libtest-harness-perl/lib/TAP/Parser/Aggregator.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Aggregator.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Aggregator.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Aggregator.pm Fri Jan 18 23:00:59 2008
@@ -10,11 +10,11 @@
=head1 VERSION
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
=head1 SYNOPSIS
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Grammar.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Grammar.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Grammar.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Grammar.pm Fri Jan 18 23:00:59 2008
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Iterator.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Iterator.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Iterator.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Iterator.pm Fri Jan 18 23:00:59 2008
@@ -13,11 +13,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 SYNOPSIS
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Array.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Array.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Array.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Array.pm Fri Jan 18 23:00:59 2008
@@ -11,11 +11,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 SYNOPSIS
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Process.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Process.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Process.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Process.pm Fri Jan 18 23:00:59 2008
@@ -19,11 +19,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 SYNOPSIS
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Stream.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Stream.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Stream.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Iterator/Stream.pm Fri Jan 18 23:00:59 2008
@@ -11,11 +11,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 SYNOPSIS
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Multiplexer.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Multiplexer.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Multiplexer.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Multiplexer.pm Fri Jan 18 23:00:59 2008
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 SYNOPSIS
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Result.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Result.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Result.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Result.pm Fri Jan 18 23:00:59 2008
@@ -27,11 +27,11 @@
=head1 VERSION
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
=head2 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Result/Bailout.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Result/Bailout.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Result/Bailout.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Result/Bailout.pm Fri Jan 18 23:00:59 2008
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Result/Comment.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Result/Comment.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Result/Comment.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Result/Comment.pm Fri Jan 18 23:00:59 2008
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Result/Plan.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Result/Plan.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Result/Plan.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Result/Plan.pm Fri Jan 18 23:00:59 2008
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Result/Test.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Result/Test.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Result/Test.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Result/Test.pm Fri Jan 18 23:00:59 2008
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Result/Unknown.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Result/Unknown.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Result/Unknown.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Result/Unknown.pm Fri Jan 18 23:00:59 2008
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Result/Version.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Result/Version.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Result/Version.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Result/Version.pm Fri Jan 18 23:00:59 2008
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Result/YAML.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Result/YAML.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Result/YAML.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Result/YAML.pm Fri Jan 18 23:00:59 2008
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Source.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Source.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Source.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Source.pm Fri Jan 18 23:00:59 2008
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 3.06
+Version 3.07
=cut
-$VERSION = '3.06';
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/Source/Perl.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/Source/Perl.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/Source/Perl.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/Source/Perl.pm Fri Jan 18 23:00:59 2008
@@ -16,11 +16,11 @@
=head1 VERSION
-Version 3.06
-
-=cut
-
-$VERSION = '3.06';
+Version 3.07
+
+=cut
+
+$VERSION = '3.07';
=head1 DESCRIPTION
Modified: trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Reader.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Reader.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Reader.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Reader.pm Fri Jan 18 23:00:59 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: trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Writer.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Writer.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Writer.pm (original)
+++ trunk/libtest-harness-perl/lib/TAP/Parser/YAMLish/Writer.pm Fri Jan 18 23:00:59 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: trunk/libtest-harness-perl/lib/Test/Harness.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-harness-perl/lib/Test/Harness.pm?rev=13023&op=diff
==============================================================================
--- trunk/libtest-harness-perl/lib/Test/Harness.pm (original)
+++ trunk/libtest-harness-perl/lib/Test/Harness.pm Fri Jan 18 23:00:59 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