Skip to content
Permalink
Browse files

MDEV-19531 Add colors to mtr

Colors possibility auto detected. [ such ] stuff is colored.

Patch by Sergei Golubchik
  • Loading branch information...
kevgs authored and robertbindar committed May 27, 2019
1 parent 167da05 commit 15065a2398aa3ddc40625f150cf8646d505b692a
Showing with 25 additions and 1 deletion.
  1. +25 −1 mysql-test/lib/mtr_report.pm
@@ -36,6 +36,21 @@ use POSIX qw[ _exit ];
use IO::Handle qw[ flush ];
use mtr_results;

use Term::ANSIColor;

my %color_map = qw/pass green
retry-pass green
fail red
retry-fail red
disabled bright_black
skipped yellow
reset reset/;
sub xterm_color {
if (-t STDOUT and defined $ENV{TERM} and $ENV{TERM} =~ /xterm/) {
syswrite STDOUT, color($color_map{$_[0]});
}
}

my $tot_real_time= 0;

our $timestamp= 0;
@@ -494,7 +509,16 @@ sub mtr_print (@) {
sub mtr_report (@) {
if (defined $verbose)
{
print _name(). join(" ", @_). "\n";
my @s = split /\[ (\S+) \]/, _name() . "@_\n";
if (@s > 1) {
print $s[0];
xterm_color($s[1]);
print "[ $s[1] ]";
xterm_color('reset');
print $s[2];
} else {
print $s[0];
}
}
}

0 comments on commit 15065a2

Please sign in to comment.
You can’t perform that action at this time.