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

print test names inline in the non verbose output mode

Browse Source
This commit is contained in:
antirez 2010-12-15 10:44:36 +01:00
parent eae9cce166
commit 7982173fef
1 changed files with 16 additions and 0 deletions

16
tests/support/test.tcl

@ -44,8 +44,22 @@ proc assert_type {type key} {
assert_equal $type [r 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} { proc colored_dot {tags passed} {
if {[info exists ::env(TERM)] && [string match $::env(TERM) xterm]} { 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} { if {[lsearch $tags list] != -1} {
set colorcode {31} set colorcode {31}
set ch L set ch L
@ -115,6 +129,8 @@ proc test {name code {okpattern undefined}} {
if {$::verbose} { if {$::verbose} {
puts -nonewline [format "#%03d %-68s " $::num_tests $name] puts -nonewline [format "#%03d %-68s " $::num_tests $name]
flush stdout flush stdout
} else {
announce_test $name
} }
if {[catch {set retval [uplevel 1 $code]} error]} { if {[catch {set retval [uplevel 1 $code]} error]} {