Test::Run::Plugin::ColorSummary - A Test::Run plugin that

Test-Run-Plugin-ColorSummary documentation Contained in the Test-Run-Plugin-ColorSummary distribution.

Index

Code Index:

NAME

Top

Test::Run::Plugin::ColorSummary - A Test::Run plugin that colors the summary.

VERSION

Top

0.0121

SYNOPSIS

Top

    package MyTestRun;

    use vars qw(@ISA);

    @ISA = (qw(Test::Run::Plugin::ColorSummary Test::Run::Obj));

    my $tester = MyTestRun->new(
        {
            test_files => 
            [
                "t/sample-tests/one-ok.t",
                "t/sample-tests/several-oks.t"
            ],
        }
        );

    $tester->runtests();

EXTRA PARAMETERS TO NEW

Top

We accept two new named parameters to the new constructor:

summary_color_success

This is the color string for coloring the success line. The string itself conforms to the one specified in Term::ANSIColor.

summary_color_failure

This is the color string for coloring the summary line in case of failure. The string itself conforms to the one specified in Term::ANSIColor.

FUNCTIONS

Top

$tester->_handle_runtests_error()

We override _handle_runtests_error() to colour the errors in red. The rest of the documentation is the code.

AUTHOR

Top

Shlomi Fish, <shlomif@iglu.org.il>

BUGS

Top

Please report any bugs or feature requests to bug-test-run-plugin-colorsummary@rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Run-Plugin-ColorSummary. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

Top

You can find documentation for this module with the perldoc command.

    perldoc Test::Run::Plugin::ColorSummary

You can also look for information at:

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Test::Run::Plugin::ColorSummary

* CPAN Ratings

http://cpanratings.perl.org/d/Test::Run::Plugin::ColorSummary

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test::Run::Plugin::ColorSummary

* Search CPAN

http://search.cpan.org/dist/Test::Run::Plugin::ColorSummary/

SOURCE AVAILABILITY

Top

The latest source of Test::Run::Plugin::ColorSummary is available from the Test::Run BerliOS Subversion repository:

https://svn.berlios.de/svnroot/repos/web-cpan/Test-Harness-NG/

SEE ALSO

Top

Test::Run::Obj, Term::ANSIColor, Test::Run::CmdLine::Plugin::ColorSummary.

ACKNOWLEDGEMENTS

Top

COPYRIGHT & LICENSE

Top

Copyright 2005 Shlomi Fish, all rights reserved.

This program is released under the MIT X11 License.

Test-Run-Plugin-ColorSummary documentation Contained in the Test-Run-Plugin-ColorSummary distribution. 
package Test::Run::Plugin::ColorSummary;

use warnings;
use strict;

use Moose;

use MRO::Compat;
use Term::ANSIColor;
# Needed for ->autoflush()
use IO::Handle;

extends('Test::Run::Base');


our $VERSION = '0.0121';

has 'summary_color_failure' => (is => "rw", isa => "Str");
has 'summary_color_success' => (is => "rw", isa => "Str");


sub _get_failure_summary_color
{
    my $self = shift;
    return $self->summary_color_failure() || 
        $self->_get_default_failure_summary_color();
}

sub _get_default_failure_summary_color
{
    return "bold red";
}

sub _get_success_summary_color
{
    my $self = shift;
    return $self->summary_color_success() || 
        $self->_get_default_success_summary_color();
}

sub _get_default_success_summary_color
{
    return "bold blue";
}


sub _report_success
{
    my $self = shift;
    print color($self->_get_success_summary_color());
    $self->next::method();
    print color("reset");
}


sub _handle_runtests_error_text
{
    my ($self, $args) = @_;

    my $text = $args->{'text'};

    STDERR->autoflush();
    $text =~ s{\n\z}{};
    die color($self->_get_failure_summary_color()).$text.color("reset")."\n";  
}

1;