Skip Menu |
 

This queue is for tickets about the Test-Harness CPAN distribution.

Report information
The Basics
Id: 35749
Status: resolved
Priority: 0/
Queue: Test-Harness

People
Owner: Nobody in particular
Requestors: tokuhirom+cpan [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)



Subject: green color in successful message
Download (untitled) / with headers
text/plain 1.5k
I want to see the green color in reporting messages at successful case, like JUnit. screenshot: http://gyazo.com/cbe3c4ed8ef2f4c0c88fa9eb16f85000.png patche is follow: Show quoted text
>||
=== lib/TAP/Formatter/Console.pm ========================================================= ========= --- lib/TAP/Formatter/Console.pm (revision 13374) +++ lib/TAP/Formatter/Console.pm (local) @@ -301,7 +301,9 @@ # the exit status is nonzero if ( $aggregate->all_passed ) { + $self->_set_colors('green'); $self->_output("All tests successful.\n"); + $self->_set_colors('reset'); } # ~TODO option where $aggregate->skipped generates reports === t/harness.t ========================================================= ========= --- t/harness.t (revision 13374) +++ t/harness.t (local) @@ -117,7 +117,9 @@ 'ok 1 - this is a test', '[[reset]]', 'ok', + '[[green]]', 'All tests successful.', + '[[reset]]', ); my $status = pop @output; my $expected_status = qr{^Result: PASS$}; @@ -148,7 +150,9 @@ 'ok 1 - this is a test', '[[reset]]', 'ok', + '[[green]]', 'All tests successful.', + '[[reset]]', ); $status = pop @output; $expected_status = qr{^Result: PASS$}; @@ -187,7 +191,9 @@ 'ok 1 - this is a test', '[[reset]]', 'ok', + '[[green]]', 'All tests successful.', + '[[reset]]', ); $status = pop @output; $expected_status = qr{^Result: PASS$}; ||<
Thanks - r1294 adds green output for All tests successful.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.