package Test::Run::Plugin::ColorFileVerdicts;
use warnings;
use strict;
use MRO::Compat;
use Term::ANSIColor;
use Moose;
extends('Test::Run::Plugin::ColorFileVerdicts::ColorBase');
use Test::Run::Plugin::ColorFileVerdicts::CanonFailedObj;
=head1 NAME
Test::Run::Plugin::ColorFileVerdicts - make the file verdict ("ok", "NOT OK")
colorful.
=head1 VERSION
Version 0.0122
=cut
our $VERSION = '0.0122';
=head1 SYNOPSIS
package MyTestRun;
use vars qw(@ISA);
@ISA = (qw(Test::Run::Plugin::ColorFileVerdicts Test::Run::Obj));
my $tester = MyTestRun->new(
{
test_files =>
[
"t/sample-tests/one-ok.t",
"t/sample-tests/several-oks.t"
],
}
);
$tester->runtests();
=cut
=head1 METHODS
=cut
has 'individual_test_file_verdict_colors' =>
(is => "rw", isa => "Maybe[HashRef]")
;
sub _report_all_ok_test
{
my ($self, $args) = @_;
my $test = $self->last_test_obj;
my $elapsed = $self->last_test_elapsed;
my $color = $self->_get_individual_test_file_color("success");
$self->output()->print_message($test->ml().color($color)."ok$elapsed".color("reset"));
}
sub _get_dubious_verdict_message
{
my $self = shift;
return color($self->_get_individual_test_file_color("dubious"))
. $self->next::method() .
color("reset");
}
sub _get_canonfailed_params
{
my $self = shift;
return
[
@{$self->next::method()},
individual_test_file_verdict_colors =>
$self->individual_test_file_verdict_colors(),
];
}
=head2 $self->private_canon_failed_obj_plugins()
A method that specifies the extra plugins for the CanonFailedObj helper
object. Required by the pluggable helper semantics.
=cut
sub private_canon_failed_obj_plugins
{
my $self = shift;
return [qw(Test::Run::Plugin::ColorFileVerdicts::CanonFailedObj)];
}
=head1 AUTHOR
Shlomi Fish, C<< <shlomif at cpan.org> >>
=head1 BUGS
Please report any bugs or feature requests to
C<bug-test-run-plugin-colorfileverdicts at rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Run-Plugin-ColorFileVerdicts>.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Test::Run::Plugin::ColorFileVerdicts
You can also look for information at:
=over 4
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/Test-Run-Plugin-ColorFileVerdicts>
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/Test-Run-Plugin-ColorFileVerdicts>
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Run-Plugin-ColorFileVerdicts>
=item * Search CPAN
L<http://search.cpan.org/dist/Test-Run-Plugin-ColorFileVerdicts>
=back
=head1 ACKNOWLEDGEMENTS
=head1 COPYRIGHT & LICENSE
Copyright 2007 Shlomi Fish, all rights reserved.
This program is released under the following license: MIT X11
=cut
1; # End of Test::Run::Plugin::ColorFileVerdicts