Change 32673 by [EMAIL PROTECTED] on 2007/12/20 18:25:46
Subject: [PATCH] bring Test::Harness up to 3.06
From: Andy Armstrong <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
Date: Thu, 20 Dec 2007 17:49:07 +0000
Affected files ...
... //depot/perl/Porting/Maintainers.pl#95 edit
... //depot/perl/lib/App/Prove.pm#2 edit
... //depot/perl/lib/App/Prove/State.pm#2 edit
... //depot/perl/lib/TAP/Base.pm#2 edit
... //depot/perl/lib/TAP/Formatter/Color.pm#2 edit
... //depot/perl/lib/TAP/Formatter/Console.pm#2 edit
... //depot/perl/lib/TAP/Formatter/Console/ParallelSession.pm#2 edit
... //depot/perl/lib/TAP/Formatter/Console/Session.pm#2 edit
... //depot/perl/lib/TAP/Harness.pm#2 edit
... //depot/perl/lib/TAP/Parser.pm#2 edit
... //depot/perl/lib/TAP/Parser/Aggregator.pm#2 edit
... //depot/perl/lib/TAP/Parser/Grammar.pm#2 edit
... //depot/perl/lib/TAP/Parser/Iterator.pm#2 edit
... //depot/perl/lib/TAP/Parser/Iterator/Array.pm#2 edit
... //depot/perl/lib/TAP/Parser/Iterator/Process.pm#2 edit
... //depot/perl/lib/TAP/Parser/Iterator/Stream.pm#2 edit
... //depot/perl/lib/TAP/Parser/Multiplexer.pm#2 edit
... //depot/perl/lib/TAP/Parser/Result.pm#2 edit
... //depot/perl/lib/TAP/Parser/Result/Bailout.pm#2 edit
... //depot/perl/lib/TAP/Parser/Result/Comment.pm#2 edit
... //depot/perl/lib/TAP/Parser/Result/Plan.pm#2 edit
... //depot/perl/lib/TAP/Parser/Result/Test.pm#2 edit
... //depot/perl/lib/TAP/Parser/Result/Unknown.pm#2 edit
... //depot/perl/lib/TAP/Parser/Result/Version.pm#2 edit
... //depot/perl/lib/TAP/Parser/Result/YAML.pm#2 edit
... //depot/perl/lib/TAP/Parser/Source.pm#2 edit
... //depot/perl/lib/TAP/Parser/Source/Perl.pm#2 edit
... //depot/perl/lib/TAP/Parser/YAMLish/Reader.pm#2 edit
... //depot/perl/lib/TAP/Parser/YAMLish/Writer.pm#2 edit
... //depot/perl/lib/Test/Harness.pm#97 edit
... //depot/perl/lib/Test/Harness/Changes#28 edit
... //depot/perl/lib/Test/Harness/bin/prove#10 edit
... //depot/perl/lib/Test/Harness/t/harness.t#3 edit
... //depot/perl/lib/Test/Harness/t/nofork-mux.t#2 edit
... //depot/perl/lib/Test/Harness/t/regression.t#3 edit
... //depot/perl/lib/Test/Harness/t/state.t#2 edit
... //depot/perl/lib/Test/Harness/t/unicode.t#2 edit
... //depot/perl/t/lib/sample-tests/empty#3 edit
Differences ...
==== //depot/perl/Porting/Maintainers.pl#95 (text) ====
Index: perl/Porting/Maintainers.pl
--- perl/Porting/Maintainers.pl#94~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/Porting/Maintainers.pl 2007-12-20 10:25:46.000000000 -0800
@@ -14,7 +14,7 @@
'abigail' => 'Abigail <[EMAIL PROTECTED]>',
'ams' => 'Abhijit Menon-Sen <[EMAIL PROTECTED]>',
'andk' => 'Andreas J. Koenig <[EMAIL PROTECTED]>',
- 'andya' => 'Andy Armstrong <[EMAIL PROTECTED]>',
+ 'andya' => 'Andy Armstrong <[EMAIL PROTECTED]>',
'arandal' => 'Allison Randal <[EMAIL PROTECTED]>',
'audreyt' => 'Audrey Tang <[EMAIL PROTECTED]>',
'avar' => 'Ævar Arnfjörð Bjarmason <[EMAIL PROTECTED]>',
==== //depot/perl/lib/App/Prove.pm#2 (text) ====
Index: perl/lib/App/Prove.pm
--- perl/lib/App/Prove.pm#1~32660~ 2007-12-19 10:26:03.000000000 -0800
+++ perl/lib/App/Prove.pm 2007-12-20 10:25:46.000000000 -0800
@@ -15,11 +15,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/App/Prove/State.pm#2 (text) ====
Index: perl/lib/App/Prove/State.pm
--- perl/lib/App/Prove/State.pm#1~32660~ 2007-12-19 10:26:03.000000000
-0800
+++ perl/lib/App/Prove/State.pm 2007-12-20 10:25:46.000000000 -0800
@@ -20,11 +20,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
@@ -178,20 +178,10 @@
$self->_select( order => sub { $_->{elapsed} } );
},
new => sub {
- $self->_select(
- order => sub {
- ( $_->{total_failures} || 0 )
- + ( $_->{total_passes} || 0 );
- }
- );
+ $self->_select( order => sub { -$_->{mtime} } );
},
old => sub {
- $self->_select(
- order => sub {
- -( ( $_->{total_failures} || 0 )
- + ( $_->{total_passes} || 0 ) );
- }
- );
+ $self->_select( order => sub { $_->{mtime} } );
},
save => sub {
$self->{should_save}++;
@@ -259,6 +249,7 @@
# Select
for my $test ( sort keys %$tests ) {
+ next unless -f $test;
local $_ = $tests->{$test};
push @got, $test if $where->();
}
@@ -296,7 +287,7 @@
}
push @tests,
- sort -d $arg
+ sort -d $arg
? $recurse
? $self->_expand_dir_recursive($arg)
: glob( File::Spec->catfile( $arg, '*.t' ) )
@@ -405,9 +396,22 @@
# $writer->write( $self->{tests} || {}, \*FH );
close FH;
$self->_regen_seq;
+ $self->_prune_and_stamp;
$self->{_}->{generation}++;
}
+sub _prune_and_stamp {
+ my $self = shift;
+ for my $name ( keys %{ $self->{_}->{tests} || {} } ) {
+ if ( my @stat = stat $name ) {
+ $self->{_}->{tests}->{$name}->{mtime} = $stat[9];
+ }
+ else {
+ delete $self->{_}->{tests}->{$name};
+ }
+ }
+}
+
sub _regen_seq {
my $self = shift;
for my $rec ( values %{ $self->{_}->{tests} || {} } ) {
==== //depot/perl/lib/TAP/Base.pm#2 (text) ====
Index: perl/lib/TAP/Base.pm
--- perl/lib/TAP/Base.pm#1~32659~ 2007-12-19 10:18:04.000000000 -0800
+++ perl/lib/TAP/Base.pm 2007-12-20 10:25:46.000000000 -0800
@@ -9,11 +9,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
my $GOT_TIME_HIRES;
==== //depot/perl/lib/TAP/Formatter/Color.pm#2 (text) ====
Index: perl/lib/TAP/Formatter/Color.pm
--- perl/lib/TAP/Formatter/Color.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Formatter/Color.pm 2007-12-20 10:25:46.000000000 -0800
@@ -70,11 +70,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Formatter/Console.pm#2 (text) ====
Index: perl/lib/TAP/Formatter/Console.pm
--- perl/lib/TAP/Formatter/Console.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Formatter/Console.pm 2007-12-20 10:25:46.000000000 -0800
@@ -20,7 +20,7 @@
errors => sub { shift; shift },
color => sub { shift; shift },
jobs => sub { shift; shift },
- stdout => sub {
+ stdout => sub {
my ( $self, $ref ) = @_;
$self->_croak("option 'stdout' needs a filehandle")
unless ( ref $ref || '' ) eq 'GLOB'
@@ -52,11 +52,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
@@ -312,8 +312,9 @@
$self->_printed_summary_header(0);
my ($parser) = $aggregate->parsers($test);
$self->_output_summary_failure(
- 'failed', " Failed test number(s): ",
- $test, $parser
+ 'failed',
+ [ ' Failed test: ', ' Failed tests: ' ],
+ $test, $parser
);
$self->_output_summary_failure(
'todo_passed',
@@ -363,10 +364,12 @@
# ugly hack. Must rethink this :(
my $output = $method eq 'failed' ? '_failure_output' : '_output';
- if ( $parser->$method() ) {
+ if ( my @r = $parser->$method() ) {
$self->_summary_test_header( $test, $parser );
- $self->$output($name);
- my @results = $self->_balanced_range( 40, $parser->$method() );
+ my ( $singular, $plural )
+ = 'ARRAY' eq ref $name ? @$name : ( $name, $name );
+ $self->$output( @r == 1 ? $singular : $plural );
+ my @results = $self->_balanced_range( 40, @r );
$self->$output( sprintf "%s\n" => shift @results );
my $spaces = ' ' x 16;
while (@results) {
==== //depot/perl/lib/TAP/Formatter/Console/ParallelSession.pm#2 (text) ====
Index: perl/lib/TAP/Formatter/Console/ParallelSession.pm
--- perl/lib/TAP/Formatter/Console/ParallelSession.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Formatter/Console/ParallelSession.pm 2007-12-20
10:25:46.000000000 -0800
@@ -48,11 +48,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Formatter/Console/Session.pm#2 (text) ====
Index: perl/lib/TAP/Formatter/Console/Session.pm
--- perl/lib/TAP/Formatter/Console/Session.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Formatter/Console/Session.pm 2007-12-20 10:25:46.000000000
-0800
@@ -36,11 +36,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Harness.pm#2 (text) ====
Index: perl/lib/TAP/Harness.pm
--- perl/lib/TAP/Harness.pm#1~32659~ 2007-12-19 10:18:04.000000000 -0800
+++ perl/lib/TAP/Harness.pm 2007-12-20 10:25:46.000000000 -0800
@@ -22,11 +22,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
$ENV{HARNESS_ACTIVE} = 1;
$ENV{HARNESS_VERSION} = $VERSION;
@@ -431,7 +431,13 @@
while ( defined( my $result = $parser->next ) ) {
$session->result($result);
- exit 1 if $result->is_bailout;
+ if ( $result->is_bailout ) {
+
+ # Keep reading until input is exhausted in the hope
+ # of allowing any pending diagnostics to show up.
+ 1 while $parser->next;
+ exit 1;
+ }
}
$self->finish_parser( $parser, $session );
==== //depot/perl/lib/TAP/Parser.pm#2 (text) ====
Index: perl/lib/TAP/Parser.pm
--- perl/lib/TAP/Parser.pm#1~32659~ 2007-12-19 10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser.pm 2007-12-20 10:25:46.000000000 -0800
@@ -19,11 +19,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
my $DEFAULT_TAP_VERSION = 12;
my $MAX_TAP_VERSION = 13;
@@ -865,7 +865,8 @@
sub has_problems {
my $self = shift;
- return $self->failed
+ return
+ $self->failed
|| $self->parse_errors
|| $self->wait
|| $self->exit;
==== //depot/perl/lib/TAP/Parser/Aggregator.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Aggregator.pm
--- perl/lib/TAP/Parser/Aggregator.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Aggregator.pm 2007-12-20 10:25:46.000000000 -0800
@@ -10,11 +10,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 SYNOPSIS
@@ -249,7 +249,8 @@
sub all_passed {
my $self = shift;
- return $self->total
+ return
+ $self->total
&& $self->total == $self->passed
&& !$self->has_errors;
}
@@ -370,7 +371,8 @@
sub has_errors {
my $self = shift;
- return $self->failed
+ return
+ $self->failed
|| $self->parse_errors
|| $self->exit
|| $self->wait;
==== //depot/perl/lib/TAP/Parser/Grammar.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Grammar.pm
--- perl/lib/TAP/Parser/Grammar.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Grammar.pm 2007-12-20 10:25:46.000000000 -0800
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Iterator.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Iterator.pm
--- perl/lib/TAP/Parser/Iterator.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Iterator.pm 2007-12-20 10:25:46.000000000 -0800
@@ -13,11 +13,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 SYNOPSIS
==== //depot/perl/lib/TAP/Parser/Iterator/Array.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Iterator/Array.pm
--- perl/lib/TAP/Parser/Iterator/Array.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/Iterator/Array.pm 2007-12-20 10:25:46.000000000
-0800
@@ -11,11 +11,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 SYNOPSIS
==== //depot/perl/lib/TAP/Parser/Iterator/Process.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Iterator/Process.pm
--- perl/lib/TAP/Parser/Iterator/Process.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/Iterator/Process.pm 2007-12-20 10:25:46.000000000
-0800
@@ -19,11 +19,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 SYNOPSIS
==== //depot/perl/lib/TAP/Parser/Iterator/Stream.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Iterator/Stream.pm
--- perl/lib/TAP/Parser/Iterator/Stream.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/Iterator/Stream.pm 2007-12-20 10:25:46.000000000
-0800
@@ -11,11 +11,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 SYNOPSIS
==== //depot/perl/lib/TAP/Parser/Multiplexer.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Multiplexer.pm
--- perl/lib/TAP/Parser/Multiplexer.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Multiplexer.pm 2007-12-20 10:25:46.000000000 -0800
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 SYNOPSIS
==== //depot/perl/lib/TAP/Parser/Result.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Result.pm
--- perl/lib/TAP/Parser/Result.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Result.pm 2007-12-20 10:25:46.000000000 -0800
@@ -27,11 +27,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head2 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Result/Bailout.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Result/Bailout.pm
--- perl/lib/TAP/Parser/Result/Bailout.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/Result/Bailout.pm 2007-12-20 10:25:46.000000000
-0800
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Result/Comment.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Result/Comment.pm
--- perl/lib/TAP/Parser/Result/Comment.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/Result/Comment.pm 2007-12-20 10:25:46.000000000
-0800
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Result/Plan.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Result/Plan.pm
--- perl/lib/TAP/Parser/Result/Plan.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Result/Plan.pm 2007-12-20 10:25:46.000000000 -0800
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Result/Test.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Result/Test.pm
--- perl/lib/TAP/Parser/Result/Test.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Result/Test.pm 2007-12-20 10:25:46.000000000 -0800
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Result/Unknown.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Result/Unknown.pm
--- perl/lib/TAP/Parser/Result/Unknown.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/Result/Unknown.pm 2007-12-20 10:25:46.000000000
-0800
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Result/Version.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Result/Version.pm
--- perl/lib/TAP/Parser/Result/Version.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/Result/Version.pm 2007-12-20 10:25:46.000000000
-0800
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Result/YAML.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Result/YAML.pm
--- perl/lib/TAP/Parser/Result/YAML.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Result/YAML.pm 2007-12-20 10:25:46.000000000 -0800
@@ -12,11 +12,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Source.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Source.pm
--- perl/lib/TAP/Parser/Source.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Source.pm 2007-12-20 10:25:46.000000000 -0800
@@ -14,11 +14,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
==== //depot/perl/lib/TAP/Parser/Source/Perl.pm#2 (text) ====
Index: perl/lib/TAP/Parser/Source/Perl.pm
--- perl/lib/TAP/Parser/Source/Perl.pm#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/TAP/Parser/Source/Perl.pm 2007-12-20 10:25:46.000000000 -0800
@@ -16,11 +16,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
=head1 DESCRIPTION
@@ -272,7 +272,7 @@
sub _get_perl {
my $proto = shift;
- return $ENV{HARNESS_PERL} if defined $ENV{HARNESS_PERL};
+ return $ENV{HARNESS_PERL} if defined $ENV{HARNESS_PERL};
return Win32::GetShortPathName($^X) if IS_WIN32;
return $^X;
}
==== //depot/perl/lib/TAP/Parser/YAMLish/Reader.pm#2 (text) ====
Index: perl/lib/TAP/Parser/YAMLish/Reader.pm
--- perl/lib/TAP/Parser/YAMLish/Reader.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/YAMLish/Reader.pm 2007-12-20 10:25:46.000000000
-0800
@@ -4,7 +4,7 @@
use vars qw{$VERSION};
-$VERSION = '3.05';
+$VERSION = '3.06';
# TODO:
# Handle blessed object syntax
@@ -277,7 +277,7 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=head1 SYNOPSIS
==== //depot/perl/lib/TAP/Parser/YAMLish/Writer.pm#2 (text) ====
Index: perl/lib/TAP/Parser/YAMLish/Writer.pm
--- perl/lib/TAP/Parser/YAMLish/Writer.pm#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/TAP/Parser/YAMLish/Writer.pm 2007-12-20 10:25:46.000000000
-0800
@@ -4,7 +4,7 @@
use vars qw{$VERSION};
-$VERSION = '3.05';
+$VERSION = '3.06';
my $ESCAPE_CHAR = qr{ [ \x00-\x1f \" ] }x;
@@ -147,7 +147,7 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=head1 SYNOPSIS
==== //depot/perl/lib/Test/Harness.pm#97 (text) ====
Index: perl/lib/Test/Harness.pm
--- perl/lib/Test/Harness.pm#96~32659~ 2007-12-19 10:18:04.000000000 -0800
+++ perl/lib/Test/Harness.pm 2007-12-20 10:25:46.000000000 -0800
@@ -40,11 +40,11 @@
=head1 VERSION
-Version 3.05
+Version 3.06
=cut
-$VERSION = '3.05';
+$VERSION = '3.06';
# Backwards compatibility for exportable variable names.
*verbose = *Verbose;
==== //depot/perl/lib/Test/Harness/Changes#28 (text) ====
Index: perl/lib/Test/Harness/Changes
--- perl/lib/Test/Harness/Changes#27~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/Test/Harness/Changes 2007-12-20 10:25:46.000000000 -0800
@@ -1,5 +1,13 @@
Revision history for Test-Harness
+3.06
+ - Skip t/unicode.t if PERL_UNICODE set. Fixes #31731.
+ Thanks Lukas.
+ - App::Prove::State no longer complains about tests that
+ are deleted.
+ - --state=new and --state=old now consider the modification time
+ of test scripts.
+
3.05 2007-12-09
- Skip unicode.t if Encode unavailable
- Support for .proverc files.
==== //depot/perl/lib/Test/Harness/bin/prove#10 (text) ====
Index: perl/lib/Test/Harness/bin/prove
--- perl/lib/Test/Harness/bin/prove#9~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/Test/Harness/bin/prove 2007-12-20 10:25:46.000000000 -0800
@@ -164,7 +164,7 @@
Run only the tests that failed on the last run.
# Run all tests
-e $ prove -b --state=save
+ $ prove -b --state=save
# Run failures
$ prove -b --state=failed
==== //depot/perl/lib/Test/Harness/t/harness.t#3 (text) ====
Index: perl/lib/Test/Harness/t/harness.t
--- perl/lib/Test/Harness/t/harness.t#2~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/Test/Harness/t/harness.t 2007-12-20 10:25:46.000000000 -0800
@@ -286,7 +286,7 @@
't/source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)',
'[[reset]]',
'[[red]]',
- 'Failed test number(s):',
+ 'Failed test:',
'[[reset]]',
'[[red]]',
'2',
@@ -309,7 +309,7 @@
'Test Summary Report',
'-------------------',
't/source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)',
- 'Failed test number(s):',
+ 'Failed test:',
'2',
);
@@ -330,7 +330,7 @@
'Test Summary Report',
'-------------------',
't/source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)',
- 'Failed test number(s):',
+ 'Failed test:',
'2',
);
@@ -434,7 +434,7 @@
't/source_tests/harness_badtap (Wstat: 0 Tests: 2 Failed: 1)',
'[[reset]]',
'[[red]]',
- 'Failed test number(s):',
+ 'Failed test:',
'[[reset]]',
'[[red]]',
'2',
@@ -469,7 +469,7 @@
'Test Summary Report',
'-------------------',
't/source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)',
- 'Failed test number(s):',
+ 'Failed test:',
'2',
);
==== //depot/perl/lib/Test/Harness/t/nofork-mux.t#2 (text) ====
Index: perl/lib/Test/Harness/t/nofork-mux.t
--- perl/lib/Test/Harness/t/nofork-mux.t#1~32659~ 2007-12-19
10:18:04.000000000 -0800
+++ perl/lib/Test/Harness/t/nofork-mux.t 2007-12-20 10:25:46.000000000
-0800
@@ -1,17 +1,17 @@
#!/usr/bin/perl -w
-
BEGIN {
- if( $ENV{PERL_CORE} ) {
+ if ( $ENV{PERL_CORE} ) {
chdir 't';
- @INC = ('../lib', 'lib');
+ @INC = ( '../lib', 'lib' );
}
else {
- use lib 't/lib';
+ use lib 't/lib';
}
}
use strict;
use NoFork;
-require ($ENV{PERL_CORE} && '../lib/Test/Harness/') . 't/multiplexer.t';
+require(
+ ( $ENV{PERL_CORE} ? '../lib/Test/Harness/' : '' ) . 't/multiplexer.t' );
==== //depot/perl/lib/Test/Harness/t/regression.t#3 (text) ====
Index: perl/lib/Test/Harness/t/regression.t
--- perl/lib/Test/Harness/t/regression.t#2~32663~ 2007-12-20
01:40:13.000000000 -0800
+++ perl/lib/Test/Harness/t/regression.t 2007-12-20 10:25:46.000000000
-0800
@@ -2357,45 +2357,44 @@
wait => 0,
version => 12,
},
-
- # switches => {
- # results => [
- # { is_plan => TRUE,
- # passed => TRUE,
- # is_ok => TRUE,
- # raw => '1..1',
- # tests_planned => 1,
- # },
- # { actual_passed => TRUE,
- # is_actual_ok => TRUE,
- # passed => TRUE,
- # is_ok => TRUE,
- # is_test => TRUE,
- # has_skip => FALSE,
- # has_todo => FALSE,
- # number => 1,
- # description => "",
- # explanation => '',
- # },
- # ],
- # __ARGS__ => { switches => ['-Mstrict'] },
- # plan => '1..1',
- # passed => [1],
- # actual_passed => [1],
- # failed => [],
- # actual_failed => [],
- # todo => [],
- # todo_passed => [],
- # skipped => [],
- # good_plan => TRUE,
- # is_good_plan => TRUE,
- # tests_planned => 1,
- # tests_run => TRUE,
- # parse_errors => [],
- # 'exit' => 0,
- # wait => 0,
- # version => 12,
- # },
+ switches => {
+ results => [
+ { is_plan => TRUE,
+ passed => TRUE,
+ is_ok => TRUE,
+ raw => '1..1',
+ tests_planned => 1,
+ },
+ { actual_passed => TRUE,
+ is_actual_ok => TRUE,
+ passed => TRUE,
+ is_ok => TRUE,
+ is_test => TRUE,
+ has_skip => FALSE,
+ has_todo => FALSE,
+ number => 1,
+ description => "",
+ explanation => '',
+ },
+ ],
+ __ARGS__ => { switches => ['-Mstrict'] },
+ plan => '1..1',
+ passed => [1],
+ actual_passed => [1],
+ failed => [],
+ actual_failed => [],
+ todo => [],
+ todo_passed => [],
+ skipped => [],
+ good_plan => TRUE,
+ is_good_plan => TRUE,
+ tests_planned => 1,
+ tests_run => TRUE,
+ parse_errors => [],
+ 'exit' => 0,
+ wait => 0,
+ version => 12,
+ },
inc_taint => {
results => [
{ is_plan => TRUE,
==== //depot/perl/lib/Test/Harness/t/state.t#2 (text) ====
Index: perl/lib/Test/Harness/t/state.t
--- perl/lib/Test/Harness/t/state.t#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/Test/Harness/t/state.t 2007-12-20 10:25:46.000000000 -0800
@@ -1,21 +1,25 @@
#!/usr/bin/perl -w
-use strict;
-use lib 't/lib';
+BEGIN {
+ if ( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = '../lib';
+ }
+ else {
+ unshift @INC, 't/lib';
+ }
+}
+use strict;
use Test::More;
use App::Prove::State;
-my @schedule = (
+sub mn {
+ my $pfx = $ENV{PERL_CORE} ? '../lib/Test/Harness/' : '';
+ return map {"$pfx$_"} @_;
+}
- # last => sub {
- # failed => sub {
- # passed => sub {
- # all => sub {
- # todo => sub {
- # hot => sub {
- # save => sub {
- # adrian => sub {
+my @schedule = (
{ options => 'all',
get_tests_args => [],
expect => [
@@ -127,23 +131,23 @@
{ options => 'old',
get_tests_args => [],
expect => [
- 't/compat/env.t',
- 't/compat/failure.t',
+ 't/source.t',
't/compat/inc_taint.t',
't/compat/version.t',
- 't/source.t',
't/yamlish-writer.t',
+ 't/compat/failure.t',
+ 't/compat/env.t',
],
},
{ options => 'new',
get_tests_args => [],
expect => [
- 't/source.t',
- 't/yamlish-writer.t',
- 't/compat/inc_taint.t',
- 't/compat/version.t',
't/compat/env.t',
't/compat/failure.t',
+ 't/yamlish-writer.t',
+ 't/compat/version.t',
+ 't/compat/inc_taint.t',
+ 't/source.t',
],
},
);
@@ -162,11 +166,11 @@
$options = [$options] unless 'ARRAY' eq ref $options;
$state->apply_switch(@$options);
- my @got = $state->get_tests( @{ $test->{get_tests_args} } );
-
- unless ( is_deeply [EMAIL PROTECTED], $test->{expect}, "$desc: order OK" )
{
+ my @got = $state->get_tests( @{ $test->{get_tests_args} } );
+ my @expect = mn( @{ $test->{expect} } );
+ unless ( is_deeply [EMAIL PROTECTED], [EMAIL PROTECTED], "$desc: order OK"
) {
use Data::Dumper;
- diag( Dumper( { got => [EMAIL PROTECTED], want => $test->{expect} } )
);
+ diag( Dumper( { got => [EMAIL PROTECTED], want => [EMAIL PROTECTED] }
) );
}
}
@@ -174,7 +178,7 @@
return {
'generation' => '51',
'tests' => {
- 't/compat/failure.t' => {
+ mn('t/compat/failure.t') => {
'last_result' => '0',
'last_run_time' => '1196371471.57738',
'last_pass_time' => '1196371471.57738',
@@ -182,9 +186,10 @@
'seq' => '1549',
'gen' => '51',
'elapsed' => 0.1230,
- 'last_todo' => '1'
+ 'last_todo' => '1',
+ 'mtime' => 1196285623,
},
- 't/yamlish-writer.t' => {
+ mn('t/yamlish-writer.t') => {
'last_result' => '0',
'last_run_time' => '1196371480.5761',
'last_pass_time' => '1196371480.5761',
@@ -193,9 +198,10 @@
'seq' => '1578',
'gen' => '49',
'elapsed' => 12.2983,
- 'last_todo' => '0'
+ 'last_todo' => '0',
+ 'mtime' => 1196285400,
},
- 't/compat/env.t' => {
+ mn('t/compat/env.t') => {
'last_result' => '0',
'last_run_time' => '1196371471.42967',
'last_pass_time' => '1196371471.42967',
@@ -204,9 +210,10 @@
'seq' => '1548',
'gen' => '52',
'elapsed' => 3.1290,
- 'last_todo' => '0'
+ 'last_todo' => '0',
+ 'mtime' => 1196285739,
},
- 't/compat/version.t' => {
+ mn('t/compat/version.t') => {
'last_result' => '2',
'last_run_time' => '1196371472.96476',
'last_pass_time' => '1196371472.96476',
@@ -215,9 +222,10 @@
'seq' => '1555',
'gen' => '51',
'elapsed' => 0.2363,
- 'last_todo' => '4'
+ 'last_todo' => '4',
+ 'mtime' => 1196285239,
},
- 't/compat/inc_taint.t' => {
+ mn('t/compat/inc_taint.t') => {
'last_result' => '3',
'last_run_time' => '1196371471.89682',
'last_pass_time' => '1196371471.89682',
@@ -225,9 +233,10 @@
'seq' => '1551',
'gen' => '51',
'elapsed' => 1.6938,
- 'last_todo' => '0'
+ 'last_todo' => '0',
+ 'mtime' => 1196185639,
},
- 't/source.t' => {
+ mn('t/source.t') => {
'last_result' => '0',
'last_run_time' => '1196371479.72508',
'last_pass_time' => '1196371479.72508',
@@ -235,7 +244,8 @@
'seq' => '1570',
'gen' => '51',
'elapsed' => 0.0143,
- 'last_todo' => '0'
+ 'last_todo' => '0',
+ 'mtime' => 1186285639,
},
}
};
==== //depot/perl/lib/Test/Harness/t/unicode.t#2 (text) ====
Index: perl/lib/Test/Harness/t/unicode.t
--- perl/lib/Test/Harness/t/unicode.t#1~32659~ 2007-12-19 10:18:04.000000000
-0800
+++ perl/lib/Test/Harness/t/unicode.t 2007-12-20 10:25:46.000000000 -0800
@@ -12,6 +12,9 @@
plan skip_all => "unicode on Perl < 5.8.0"
unless $] > 5.008;
+ plan skip_all => "PERL_UNICODE set"
+ if $ENV{PERL_UNICODE};
+
eval "use File::Temp";
plan skip_all => "File::Temp unavailable"
if $@;
==== //depot/perl/t/lib/sample-tests/empty#3 (text) ====
Index: perl/t/lib/sample-tests/empty
--- perl/t/lib/sample-tests/empty#2~32668~ 2007-12-20 04:23:14.000000000
-0800
+++ perl/t/lib/sample-tests/empty 2007-12-20 10:25:46.000000000 -0800
@@ -1 +1,2 @@
__END__
+Used to exercise the "empty test" case.
End of Patch.
