Permalink
Browse files

Tagged 2.99_09, version bump

  • Loading branch information...
AndyA committed Nov 5, 2007
1 parent 44f4981 commit 894a8dfb9ad6862757fc8ca11d1700ebaf568227
View
@@ -1,5 +1,11 @@
Revision history for Test-Harness
+2.99_09 2007-11-05
+ - Implemented TODO-in-PLAN syntax for TAP version 12 and earlier.
+
+2.99_08 2007-11-04
+ - Tiny changes. New version pushed to get some smoke coverage.
+
2.99_07 2007-11-01
- Fix for #21938: Unable to handle circular links
- Fix for #24926: prove -b and -l should use absolute paths
View
@@ -1,6 +1,6 @@
---
name: Test-Harness
-version: 2.99_08
+version: 2.99_09
author:
- 'Andy Armstrong C<< <andy@hexten.net> >>'
abstract: Run Perl standard test scripts with statistics
@@ -18,88 +18,88 @@ recommends:
provides:
App::Prove:
file: lib/App/Prove.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Base:
file: lib/TAP/Base.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Formatter::Color:
file: lib/TAP/Formatter/Color.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Formatter::Console:
file: lib/TAP/Formatter/Console.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Formatter::Console::ParallelSession:
file: lib/TAP/Formatter/Console/ParallelSession.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Formatter::Console::Session:
file: lib/TAP/Formatter/Console/Session.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Harness:
file: lib/TAP/Harness.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser:
file: lib/TAP/Parser.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Aggregator:
file: lib/TAP/Parser/Aggregator.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Grammar:
file: lib/TAP/Parser/Grammar.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Iterator:
file: lib/TAP/Parser/Iterator.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Iterator::Array:
file: lib/TAP/Parser/Iterator/Array.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Iterator::Process:
file: lib/TAP/Parser/Iterator/Process.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Iterator::Stream:
file: lib/TAP/Parser/Iterator/Stream.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Multiplexer:
file: lib/TAP/Parser/Multiplexer.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Result:
file: lib/TAP/Parser/Result.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Result::Bailout:
file: lib/TAP/Parser/Result/Bailout.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Result::Comment:
file: lib/TAP/Parser/Result/Comment.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Result::Plan:
file: lib/TAP/Parser/Result/Plan.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Result::Test:
file: lib/TAP/Parser/Result/Test.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Result::Unknown:
file: lib/TAP/Parser/Result/Unknown.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Result::Version:
file: lib/TAP/Parser/Result/Version.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Result::YAML:
file: lib/TAP/Parser/Result/YAML.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Source:
file: lib/TAP/Parser/Source.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::Source::Perl:
file: lib/TAP/Parser/Source/Perl.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::YAMLish::Reader:
file: lib/TAP/Parser/YAMLish/Reader.pm
- version: 2.99_08
+ version: 2.99_09
TAP::Parser::YAMLish::Writer:
file: lib/TAP/Parser/YAMLish/Writer.pm
- version: 2.99_08
+ version: 2.99_09
Test::Harness:
file: lib/Test/Harness.pm
- version: 2.99_08
+ version: 2.99_09
generated_by: Module::Build version 0.2808
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
View
2 README
@@ -1,4 +1,4 @@
-Test-Harness 2.99_08
+Test-Harness 2.99_09
INSTALLATION
View
@@ -15,11 +15,11 @@ App::Prove - Implements the C<prove> command.
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
=head1 DESCRIPTION
View
@@ -9,11 +9,11 @@ TAP::Base - Base class that provides common functionality to L<TAP::Parser> and
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
my $GOT_TIME_HIRES;
@@ -70,11 +70,11 @@ TAP::Formatter::Color - Run Perl test scripts with color
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
=head1 DESCRIPTION
@@ -52,11 +52,11 @@ TAP::Formatter::Console - Harness output delegate for default console output
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
=head1 DESCRIPTION
@@ -48,11 +48,11 @@ TAP::Formatter::Console::ParallelSession - Harness output delegate for parallel
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
=head1 DESCRIPTION
@@ -36,11 +36,11 @@ TAP::Formatter::Console::Session - Harness output delegate for default console o
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
=head1 DESCRIPTION
@@ -121,7 +121,7 @@ sub _get_output_result {
],
},
{ test => sub { $_->is_test && $_->has_todo },
- colors => ['white'],
+ colors => ['yellow'],
},
);
View
@@ -22,11 +22,11 @@ TAP::Harness - Run test scripts with statistics
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
$ENV{HARNESS_ACTIVE} = 1;
$ENV{HARNESS_VERSION} = $VERSION;
View
@@ -19,11 +19,11 @@ TAP::Parser - Parse L<TAP|Test::Harness::TAP> output
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
my $DEFAULT_TAP_VERSION = 12;
my $MAX_TAP_VERSION = 13;
@@ -950,6 +950,7 @@ sub _add_error {
sub _make_state_table {
my $self = shift;
my %states;
+ my %planned_todo = ();
# These transitions are defaults for all states
my %state_globals = (
@@ -976,16 +977,23 @@ sub _make_state_table {
$self->skip_all( $plan->explanation
|| '(no reason given)' );
}
+
+ $planned_todo{$_}++ for @{ $plan->todo_list };
},
},
test => {
act => sub {
my ($test) = @_;
- my ( $has_todo, $number, $tests_run ) = (
- $test->has_todo, $test->number,
- ++$self->{tests_run}
- );
+ my ( $number, $tests_run )
+ = ( $test->number, ++$self->{tests_run} );
+
+ # Fake TODO state
+ if ( defined $number && delete $planned_todo{$number} ) {
+ $test->set_directive('TODO');
+ }
+
+ my $has_todo = $test->has_todo;
$self->in_todo($has_todo);
if ( defined( my $tests_planned = $self->tests_planned ) ) {
@@ -1021,7 +1029,6 @@ sub _make_state_table {
: 'actual_failed'
}
} => $number;
-
},
},
yaml => {
@@ -1090,7 +1097,6 @@ sub _make_state_table {
"Plan ($line) must be at the beginning or end of the TAP output"
);
$self->is_good_plan(0);
-
},
continue => 'PLANNED'
},
@@ -1168,6 +1174,7 @@ sub _iter {
}
}
}
+ return $token;
};
if ( $self->_has_callbacks ) {
@@ -1176,7 +1183,7 @@ sub _iter {
$self->_add_error($@) if $@;
if ( defined $result ) {
- $next_state->($result);
+ $result = $next_state->($result);
if ( my $code = $self->_callback_for( $result->type ) ) {
$_->($result) for @{$code};
@@ -1207,7 +1214,7 @@ sub _iter {
$self->_add_error($@) if $@;
if ( defined $result ) {
- $next_state->($result);
+ $result = $next_state->($result);
# Echo TAP to spool file
print {$spool} $result->raw, "\n" if $spool;
@@ -10,11 +10,11 @@ TAP::Parser::Aggregator - Aggregate TAP::Parser results
=head1 VERSION
-Version 2.99_08
+Version 2.99_09
=cut
-$VERSION = '2.99_08';
+$VERSION = '2.99_09';
=head1 SYNOPSIS
Oops, something went wrong.

0 comments on commit 894a8df

Please sign in to comment.