File Coverage

blib/lib/Test/Run/Plugin/ColorFileVerdicts.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	1	1	100.0
total	41	41	100.0

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.0125

=cut

our $VERSION = '0.0125';

=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 * 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 * MetaCPAN

L<http://metacpan.org/releaseTest-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 Expat

=cut

1; # End of Test::Run::Plugin::ColorFileVerdicts