fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-03-31 14:51:04 +00:00
Code Issues Projects Releases Wiki Activity

fixed color support for test suite. Now colors are shown as long as there is xterm somewhere inside the TERM env var

Browse Source
This commit is contained in:
antirez 2011-02-22 16:40:24 +01:00
parent df50d707f3
commit 4a67d194e9
1 changed files with 7 additions and 2 deletions

9
tests/support/test.tcl

@ -44,9 +44,14 @@ proc assert_type {type key} {
assert_equal $type [r 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 # This is called before starting the test
proc announce_test {s} { proc announce_test {s} {
if {[info exists ::env(TERM)] && [string match $::env(TERM) xterm]} { if {[color_term]} {
puts -nonewline "$s\033\[0K" puts -nonewline "$s\033\[0K"
flush stdout flush stdout
set ::backward_count [string length $s] set ::backward_count [string length $s]
@ -55,7 +60,7 @@ proc announce_test {s} {
# This is called after the test finished # This is called after the test finished
proc colored_dot {tags passed} { 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. # Go backward and delete what announc_test function printed.
puts -nonewline "\033\[${::backward_count}D\033\[0K\033\[J" puts -nonewline "\033\[${::backward_count}D\033\[0K\033\[J"