Hi all,
I've just released TAPx::Parser 0.20 and it should be hitting the CPAN soon.
From the Changes file:
0.20 2 September 2006
- Fixed bug reported by GEOFFR. When no tap output was found, an
"Unitialized value" warning occurred.
- Updated tprove to now report a test failure when no tap output
found.
- Removed examples/tprove_color2 as tprove_color now works.
- Vastly improved callback system and updated the docs for how to use
them.
- Changed TAPx::Parser::Source::Perl to use Symbol::gensym() instead
of a hard-to-guess filehandle name.
Note that tprove_color works just find and produces incredibly hideous output.
However, it does show how the callback system works. Further, though I don't
know Tk or other windowing systems well enough, it should now be fairly easy to
slap a GUI on TAPx::Parser.
Also, the callback system previously required that you provide a callback for
every result type lest it be ignored. Now there are two new types of
callbacks, "ELSE" and "ALL". ELSE will be triggered if a callback for a
specific result type is not found. ALL will be triggered for all result types
and is guaranteed to be triggered for each result after other callbacks, if
any, are triggered. For example, if you're using Term::ANSIColor, the
following callbacks make colored test output easy:
my %callbacks = (
test => sub {
my $test = shift;
if ( $test->passed && not $test->directive ) {
# normal passing test
print color 'green';
}
elsif ( !$test->passed ) { # even if it's TODO
print color 'white on_red';
}
elsif ( $test->has_skip ) {
print color 'white on_blue';
}
elsif ( $test->has_todo ) {
print color 'white';
}
},
ELSE => sub {
# plan, comment, and so on (anything which isn't a test line)
print color 'black on_white';
},
ALL => sub {
# now print them
print shift->as_string;
print color 'reset';
print "\n";
},
);
See examples/tprove_color for more information.
Cheers,
Ovid
--
Buy the book -- http://www.oreilly.com/catalog/perlhks/
Perl and CGI -- http://users.easystreet.com/ovid/cgi_course/
