Commit c02bda32 authored by antirez's avatar antirez
Browse files

fixed color support for test suite. Now colors are shown as long as there is...

fixed color support for test suite. Now colors are shown as long as there is xterm somewhere inside the TERM env var
parent 1afef16d
...@@ -44,9 +44,14 @@ proc assert_type {type key} { ...@@ -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} { ...@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment