diff options
author | antirez <antirez@gmail.com> | 2010-12-15 10:44:36 +0100 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2010-12-15 10:44:36 +0100 |
commit | 7982173fef8bd6de9805e782edb9aa827184b010 (patch) | |
tree | 43cf5982e45ee746aa5fbef6ffb36f30a77597cb /tests/support/test.tcl | |
parent | eae9cce166dbb896eabda3c7bd37bd0bca0b2311 (diff) | |
download | redis-7982173fef8bd6de9805e782edb9aa827184b010.tar.gz |
print test names inline in the non verbose output mode
Diffstat (limited to 'tests/support/test.tcl')
-rw-r--r-- | tests/support/test.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index c70cc049a..a9f2d76e8 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -44,8 +44,22 @@ proc assert_type {type key} { assert_equal $type [r type $key] } +# This is called before starting the test +proc announce_test {s} { + if {[info exists ::env(TERM)] && [string match $::env(TERM) xterm]} { + puts -nonewline "$s\033\[0K" + flush stdout + set ::backward_count [string length $s] + } +} + +# This is called after the test finished proc colored_dot {tags passed} { if {[info exists ::env(TERM)] && [string match $::env(TERM) xterm]} { + # Go backward and delete what announc_test function printed. + puts -nonewline "\033\[${::backward_count}D\033\[0K\033\[J" + + # Print a coloured char, accordingly to test outcome and tags. if {[lsearch $tags list] != -1} { set colorcode {31} set ch L @@ -115,6 +129,8 @@ proc test {name code {okpattern undefined}} { if {$::verbose} { puts -nonewline [format "#%03d %-68s " $::num_tests $name] flush stdout + } else { + announce_test $name } if {[catch {set retval [uplevel 1 $code]} error]} { |