diff options
| author | antirez <antirez@gmail.com> | 2011-02-22 16:40:24 +0100 |
|---|---|---|
| committer | antirez <antirez@gmail.com> | 2011-02-22 16:41:27 +0100 |
| commit | 4a67d194e9437e48e076d15c746414d3d14faa35 (patch) | |
| tree | af0b1a16a1a7d7c9b7a5d819b2c88de6820671a7 /tests/support/test.tcl | |
| parent | df50d707f3a361327e55dce83fb342dc08390c69 (diff) | |
| download | redis-4a67d194e9437e48e076d15c746414d3d14faa35.tar.gz | |
fixed color support for test suite. Now colors are shown as long as there is xterm somewhere inside the TERM env var
Diffstat (limited to 'tests/support/test.tcl')
| -rw-r--r-- | tests/support/test.tcl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index 724646a3a..dff2d2976 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -44,9 +44,14 @@ proc assert_type {type key} { assert_equal $type [r type $key] } +# Test if TERM looks like to support colors +proc color_term {} { + expr {[info exists ::env(TERM)] && [string match *xterm* $::env(TERM)]} +} + # This is called before starting the test proc announce_test {s} { - if {[info exists ::env(TERM)] && [string match $::env(TERM) xterm]} { + if {[color_term]} { puts -nonewline "$s\033\[0K" flush stdout set ::backward_count [string length $s] @@ -55,7 +60,7 @@ proc announce_test {s} { # This is called after the test finished proc colored_dot {tags passed} { - if {[info exists ::env(TERM)] && [string match $::env(TERM) xterm]} { + if {[color_term]} { # Go backward and delete what announc_test function printed. puts -nonewline "\033\[${::backward_count}D\033\[0K\033\[J" |