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

colorized make test output when the verbose output is disabled (default)

Browse Source
This commit is contained in:
antirez 2010-12-15 10:14:34 +01:00
parent 6a246b1e7e
commit eae9cce166
1 changed files with 43 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
tests/support/test.tcl
View File

@ -44,6 +44,46 @@ proc assert_type {type key} {
assert_equal $type [r type $key] assert_equal $type [r type $key]
} }
proc colored_dot {tags passed} {
if {[info exists ::env(TERM)] && [string match $::env(TERM) xterm]} {
if {[lsearch $tags list] != -1} {
set colorcode {31}
set ch L
} elseif {[lsearch $tags hash] != -1} {
set colorcode {32}
set ch H
} elseif {[lsearch $tags set] != -1} {
set colorcode {33}
set ch S
} elseif {[lsearch $tags zset] != -1} {
set colorcode {34}
set ch Z
} elseif {[lsearch $tags basic] != -1} {
set colorcode {35}
set ch B
} else {
set colorcode {37}
set ch .
}
if {$colorcode ne {}} {
if {$passed} {
puts -nonewline "\033\[0;${colorcode};40m"
} else {
puts -nonewline "\033\[0;40;${colorcode}m"
}
puts -nonewline $ch
puts -nonewline "\033\[0m"
flush stdout
}
} else {
if {$passed} {
puts -nonewline .
} else {
puts -nonewline F
}
}
}
proc test {name code {okpattern undefined}} { proc test {name code {okpattern undefined}} {
# abort if tagged with a tag to deny # abort if tagged with a tag to deny
foreach tag $::denytags { foreach tag $::denytags {
@ -88,7 +128,7 @@ proc test {name code {okpattern undefined}} {
puts "FAILED" puts "FAILED"
puts "$msg\n" puts "$msg\n"
} else { } else {
puts -nonewline "F" colored_dot $::tags 0
} }
} else { } else {
# Re-raise, let handler up the stack take care of this. # Re-raise, let handler up the stack take care of this.
@ -100,7 +140,7 @@ proc test {name code {okpattern undefined}} {
if {$::verbose} { if {$::verbose} {
puts "PASSED" puts "PASSED"
} else { } else {
puts -nonewline "." colored_dot $::tags 1
} }
} else { } else {
set msg "Expected '$okpattern' to equal or match '$retval'" set msg "Expected '$okpattern' to equal or match '$retval'"
@ -112,7 +152,7 @@ proc test {name code {okpattern undefined}} {
puts "FAILED" puts "FAILED"
puts "$msg\n" puts "$msg\n"
} else { } else {
puts -nonewline "F" colored_dot $::tags 0
} }
} }
} }