Skip to content
Browse files

fixed color support for test suite. Now colors are shown as long as t…

…here is xterm somewhere inside the TERM env var
  • Loading branch information...
1 parent df50d70 commit 4a67d194e9437e48e076d15c746414d3d14faa35 @antirez committed Feb 22, 2011
Showing with 7 additions and 2 deletions.
  1. +7 −2 tests/support/test.tcl
View
9 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"

0 comments on commit 4a67d19

Please sign in to comment.
Something went wrong with that request. Please try again.